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ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK OFFER REF 1295 BRAND 
GO ~ ~ ~ - 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK ORDERS REF 1115 BRAND 
GO ~ 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK BID REF 1289 CONTRACT 
GO ~ ~ 

ALTER TABLE [dbo] . [BRAND] DROP CONSTRAINT FK BRAND REF 1301 CONTRACT 
GO - - _ _ 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK ORDERS REF 1608 CONTRACT 
GO ~ - - ~ 

ALTER TABLE [dbo] . [STATE] DROP CONSTRAINT FK STATE REF 2764 COUNTRY 
GO ~ ~ - 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK BID REF 5232 LOCALITY 
GO " 

ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK OFFER REF 5228 LOCALITY 
GO - - - _ 

ALTER TABLE [dbo] . [PLACE] DROP CONSTRAINT FK PLACE REF 5241 LOCALITY 
GO ~ _ - 

ALTER TABLE [dbo] . [PLACE] DROP CONSTRAINT FK PLACE REF 5245 LOCALITY 
GO - _ _ _ 

ALTER TABLE [dbo] . [SHIPPING] DROP CONSTRAINT FK_SHIPPING_REF_5224 LOCALITY 
GO 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK BID REF 1277 PERSON 
GO ~ 

ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK OFFER REF 1281 PERSON 
GO ~ ~ ~ ~ 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK ORDERS REF 324 PERSON 
GO - - _ _ 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK ORDERS REF 67 PERSON 
GO ~ - - - 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK BID REF 1317 PLACE 
GO ~ 

ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK OFFER REF 1321 PLACE 
GO ~ - - _ 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK ORDERS REF 1331 PLACE 
GO ~ - ~ 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK ORDERS REF 1335 PLACE 
GO - - _ _ 

^Procedure') = 1) f ° ° b * * * id ° b 6 - id N Cdbo] * [ gfo] d ob ectproperty id 

drop procedure CdboD . CspGF03 

60 

N^sProcedure') C = SyS ° bjeCtS where id = °^ ect JdCN ' Cdbo] . CspGSH] 1 ) and OBJECTPROPERTYC id, 

drop procedure [dbo] . EspGSM] 
GO 

if exists (select * from sysobjects where id = object idCN 1 Cdbo] . CspGSysHessaqe] ' ) and 
OBJECTPROPERTYC id, N ' IsProcedure' ) =1) P^ysnessagej , and 

drop procedure Cdbol. CspGSysMessage3 
GO 



if exists (select * from sysobjects where id = objected (N* [dbo] . [spGWOl] 1 ) and OB JECTPROPERTY ( id, 

N ' IsProcedure ' ) = 1) 

drop procedure [dbo] . [ spGWOl] 

GO 

if exists (select * from sysobjects where id = object_id (N ! [dbo] . [spOUsers] * ) and OB JECTPROPERTY (id, 

N 1 IsProcedure ' ) = 1) 

drop procedure [dbo] . [spOUsers] 

GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [spPBO_BP0] ' ) and 
OB JECTPROPERTY (id, N ' IsProcedure ' ) = 1) 
drop procedure [dbo] . [spPBO_BP0] 
GO 



if exists (select * from sysobjects where id - object_id {N 1 [dbo] . [spPBO_BPl] 1 ) and 
OB JECTPROPERTY (id, N ? IsProcedure 1 ) =1) 
drop procedure [dbo] . [spPBO_BPl] 
GO 



if exists (select * from sysobjects where id = obj ect_id (N ' [dbo] . [ spPB0_BP2] ' ) and 
OB JECTPROPERTY (id, N ' IsProcedure 1 ) =1) 
drop procedure [dbo] . [spPBO_BP2] 
GO 



if exists (select * from sysobjects where id = object_id(N' [dbo] . [spPB0_BP3] ' ) and 
OBJECT PROPERTY (id, N * IsProcedure * } = 1) 
drop procedure [dbo] . [spPB0_BP3j 
GO 

if exists (select * from sysobjects where id - object_id (N' [dbo] . [spPBO_Of f rR] ' ) and 
OB JECTPROPERTY (id, N ' IsProcedure T ) = 1) 
drop procedure [dbo] . [spPBO_Of frR] 
GO 

if exists (select * from sysobjects where id = objected (N * [dbo] . [spPBO_OffrT] f ) and 
OB JECTPROPERTY (id, N 1 IsProcedure ' } = 1) 
drop procedure [dbo] . [spPBO_Of f rT] 
GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [spPWO] * ) and OB JECTPROPERTY (id, 

N* IsProcedure ' ) = 1) 

drop procedure [dbo] . [spPWO] 

GO 

if exists (select * from sysobjects where id = object__id (N* [dbo] . [sp 0_OffrT] r ) and 
OB JECTPROPERTY (id, N ' IsProcedure * ) = 1) 
drop procedure [dbo] . [sp 0_OffrT] 
GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [sp 01]M and OB JECTPROPERTY (id, 
N ' I sProcedure ' } = 1 ) 
drop procedure r 



GO 



t dbo].[sp 01] 



if exists (select * from sysobjects where id 

N» IsProcedure 1 ) = 1) 

drop procedure [dbo] . [sp 02] 

GO 

if exists (select * from sysobjects where id 

N ' IsProcedure ' ) = 1) 

drop procedure [dbo] . [sp WO] 

GO 

if exists {select * from sysobjects where id 
OB JECTPROPERTY ( id, N ' IsProcedure * ) = 1) 
drop procedure [dbo] . [spTradingFloor] 
GO 



object_id{N' [dbo] . fsp 02] M and OB JECTPROPERTY {id, 



object_id(N' [dbo] . [sp WO] 1 ) and OB JECTPROPERTY (id, 



object_id(N f [dbo] . [spTradingFloor] ' ) and 



if exists (select * from sysobjects where id = obj ect_id (N 1 [dbo] . [BID] ' ) and OBJECTPROPERTY (id, 
N'lsUserTable' ) « 1) 
drop table [dbo] . [BID] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [BRAND] 1 ) and OBJECT PROPERTY (id, 
N'lsUserTable') = 1) 
drop table [dbo] . [BRAND] 
GO 

if exists {select * from sysobjects where id = object_id{N* [dbo] . [CONTRACT] 1 } and OB JECTPROPERTY ( id 

N'lsUserTable 1 ) - 1) 

drop table [dbo] . [CONTRACT] 

GO 

if exists (select * from sysobjects where id = object_id (N* [dbo] . [COUNTRY] ' ) and OB JECTPROPERTY (id, 

N'lsUserTable') = 1) 

drop table [dbo] . [COUNTRY] 

GO 

if exists (select * from sysobjects where id = object_id(N f [dbo] . [CREDIT] 1 ) and OB JECTPROPERTY (id, 
N'lsUserTable 1 ) = 1) 
drop table [dbo] . [CREDIT] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [LOCALITY] 1 ) and OB JECTPROPERTY (id 

N'lsUserTable') = 1) 

drop table [dbo] . [LOCALITY] 

GO 

if exists (select * from sysobjects where id = obj ect_id(N* [dbo] . [MESSAGE] ' } and OB JECTPROPERTY (id, 

N r IsUserTable') = 1) 

drop table [dbo] . [MESSAGE] 

GO 

if exists (select * from sysobjects where id = object__id(N* [dbo] . [OFFER] ' ) and OB JECTPROPERTY (id, 
N'lsUserTable') = 1) 
drop table [dbo] . [OFFER] 
GO 

if exists (select * from sysobjects where id = objected (N ' [dbo] . [ORDERS] * } and OBJECTPROPERTY (id, 
N'lsUserTable*) = 1) 
drop table [dbo] . [ORDERS] 
GO 

if exists (select * from sysobjects where id = objected (N ' [dbo] . [PARAMETER] 1 ) and 
OBJECTPROPERTY (id, N'lsUserTable*) = 1) 
drop, table [dbo] . [PARAMETER] 
GO 

if exists (select * from sysobjects where id = obj ect_id(N* [dbo] . [PERSON] * ) and OBJECTPROPERTY (id, 
N'lsUserTable') = 1) 



drop table [dbo] . [PERSON] 
GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [PLACE] 1 ) and OBJECTPROPERTY (id, 
N'lsCJserTable'} - 1) 
drop table [dbo] . [PLACE] 
GO 

if exists (select * from sysobjects where id = objectJLd (N r [dbo] . [SHIPPING] ' ) and OBJECTPROPERTY ( id, 

N'lsUserTable' ) = 1} 

drop table [dbo] . [SHIPPING] 

GO 

if exists (select * from sysobjects where id = object_id (N 1 [dbo] . [STATE] ' } and OBJECTPROPERTY (id, 
N'lsQserTable') = 1) 
drop table [dbo] . [STATE] 
GO 



if not exists {select * from sysusers where name = N ' Internet T and uid < 16382) 



EXEC sp_grantdbaccess N' Internet ' , N 1 Internet ' 

GO 



CREATE TABLE [dbo] . [BID] ( 

[BID_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL , 

[BID_BUYR] [numeric] {18, 0) NOT NULL , 

[BID_CONT] [numeric] (18, 0} NOT NULL , 

[BID_TO] [numeric] (18, 0) NOT NULL , 

[BID_TO_LOCL] [numeric] {18, 0) NULL , 

TBIDJDATE] [date time] NOT NULL , 

[BID_QTY] [int] NOT NULL , 

rBID_PRCE] [decimal] {4, 3} NOT NULL , 

|BID_SIZE] [bit] NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [BRAND] ( 

[BRAN_ID] [numeric] {18, 0) IDENTITY (1, 1) NOT NULL 
[ BRAN_CONT ] [numeric] (18, 0) NULL , 
rBRAN_NAME] [varchar] (60) NULL 

) 

GO 



CREATE TABLE 
[ CONT_ 

[ cont] 
[ cont] 
[ cont] 
I cont] 
I cont" 
I cont" 
[cont" 
[cont" 
[ cont] 
[ cont" 
[cont] 
[cont] 
! cont] 
f cont] 
I cont] 
1 cont" 

) 

GO 



[dbo] . [CONTRACT] ( 

ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

FMLY] [varchar] (20) NULL , 

CATG] [varchar] (30} NULL , 

PROC] [varchar] (20) NULL , 

MELTJTGT] [varchar] (10) NULL , 

MELT_RNG] [varchar] (20) NULL , 

]DENS_TGT] [varchar] (10) NULL , 

]DENS_RNG] [varchar] (20) NULL , 

]lZOD_TGT] [varchar] {10) NULL , 

]lZOD_RNG] [varchar] (20) NULL , 

ADDS_SLIP_TGT] [varchar] (10) NULL , 

ADDS_SLIP_RNG] [varchar] (45) NULL , 

ADDS_BLCK_TGT] [varchar] (10) NULL , 

ADDS_BLCK_RNG] [varchar] (45) NULL , 

FEAT ] [varchar] (25) NULL , 

LABL] [varchar] (60) NULL , 

ORDR] [int] NULL 



CREATE TABLE [dbo] . [COUNTRY] { 

fCTRY_CODE] [char] (2) NOT NULL , 
[CTRY_NAME] [varchar] (50) NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [CREDIT] ( 

[CRED_AMNT] [decimal] (1 , 3) NOT NULL , 
[CRED_A LB] [dec 



imal] (1 , 3) NOT NULL , 
[CRED_RATE] [decimal] (1 , 3) NOT NULL , 
[CRED_DATE] [date time] NOT NULL 

) ON [PRIMARY] 

GO 



CREATE TABLE [dbo] . [LOCALITY] ( 

[LOCL_ID] [numeric] {18, 0) IDENTITY {1, 1) NOT NULL 
[LOCL_CITY] [varchar] (20) NULL , 
[LOCL_STAT] [char] (2) NULL , 
[LOCL_CTRY] [char] (2) NULL 

) 

GO 



CREATE TABLE [dbo] . [MESSAGE] ( 

[MESS_ID] [numeric] (18, 0} IDENTITY (1, 1) NOT NULL 
[MESS_COMP] [numeric] (18, 0) NOT NULL , 
[MESS_TO] [numeric] (18, 0) NOT NULL , 
[MESS_FROM] [numeric] (18, 0) NOT NULL , 



[MESSJTEXT] [varchar] (8000) NOT NULL , 
[MESS_DATE] [datetime] NOT NULL , 
[MESS_TYPE] [char] (1) NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [OFFER] { 

[OFFR_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

[OFFR_SELR] [numeric] (18, 0} NULL , 

[OFFR_BRAN] [numeric] (18, 0) NULL , 

[OFFR_CONT] [numeric] (18, 0) NULL , 

[OFFR_FROM] [numeric] {18, 0) NULL , 

[OFFR_FROM_LOCL] [numeric] (18, 0) NULL , 

[OFFR_QTY] [int] NULL , 

[OFFR_PRCE] [decimal] (4, 3) NULL , 

[OFFR_SIZE] [bit] NULL , 

[OFFR_DATE] [datetime] NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [ORDERS] ( 

[ORDR_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

[ORDR_CONT] [numeric] (18, 0) NULL , 

[ORDR_BRAN] [numeric] (18, 0) NULL , 

[ORDR_BID] [numeric] (18, 0) NULL , 

[ORDRJDFFR] [numeric] (18, 0) NULL , 

[ORDR_BUYR] [numeric] (18, 0) NULL , 

[ORDR_SELR] [numeric] (18, 0} NULL , 

[ORDR_FROM] [numeric] (18, 0) NULL , 

[ORDR_TO] [numeric] (18, 0} NULL , 

[ORDR_QTY] [int] NULL , 

[ORDR_PRCE] [decimal] (4, 3) NULL , 

[ORDR_SIZE] [bit] NULL , 

[ORDR_SHIP] [char] (1) NULL , 

[ORDR_PAID] [bit] NULL , 

[ORDR_DATE] [datetime] NOT NULL , 

[ORDR_SHIP_PRCE] [decimal] (9, 3) NULL 

) 

GO 



CREATE TABLE [dbo] . [PARAMETER] ( 

[PARA_CODE] [char] (1) NOT NULL , 
[PARA_VALU] [varchar] (20) NOT NULL , 
[PARA_NAME] [varchar] (20) NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [PERSON] ( 

[PERS_ID] [numeric] (18, 0) IDENTITY {1, 1) NOT NULL 
[PERSJTYPE] [char] (1) NULL , 
[PERS_COMP_NAME] [varchar] (40) NULL , 
[PERS_COMP_TYPE] [char] (1) NULL , 
[PERS__LAST_NAME] [varchar] (20) NULL , 
[PERS_FRST_NAME] [varchar] (20) NULL , 
[ PERS_TITL] [varchar] (30) NULL 



) 

GO 



[PERS_PHON] [varchar] (15) NULL , 

[PERS_MAIL] [varchar] (50) NULL , 

[PERS_PSWD3 [varchar] (15) NULL , 

[PERS_DATE] [datetime] NULL , 

[PERS_ENBL] [bit] NULL , 

[PERS_LOGN] [varchar] (15) NULL , 
[PERS_LAST_CHKD] [datetime] NOT NULL 

{ PERS_PREF] [int] NOT NULL 



CREATE TABLE [dbo] . [PLACE] ( 

[PLAC_ID] [numeric] (18, 0} IDENTITY (1, 1) NOT NULL , 
[PLAC_LOCL] [numeric] (18, 0) NULL , 
[PLAC_TYPE] [char] (1) NULL 



GO 



CREATE TABLE [dbo] . [SHIPPING] ( 

[SHIPJTO_LOCL] [numeric] (18, 0) NOT NULL , 
[SHIP_FROM_LOCL] [numeric] (18, 0} NOT NULL , 
[SHIP_PRCE_TRUC] [decimal] (4, 3) NOT NULL , 
[SHIP_PRCE_FULL_TRUC] [decimal] (7, 3} NOT NULL , 
[SHIP_PRCE_RAIL] [decimal] (4, 3) NOT NULL , 
[SHIP_PRCE_FULL_RAIL] [decimal] (7, 3) NOT NULL 

) 

GO 

CREATE TABLE [dbo] . [STATE] { 

[STAT_CTRY] [char] (2) NOT NULL , 
[STAT^CODE] [Char] (2) NOT NULL , 
[STAT_NAME] [varchar] {50} NOT NULL 

) 

GO 



GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [BID] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [BRAND] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [CONTRACT] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [COUNTRY] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [CREDIT] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [LOCALITY] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [MESSAGE] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [OFFER] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [ORDERS] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [PARAMETER] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [PERSON] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [PLACE] TO [Internet] 
GO 

GRANT SELECT , UPDATE , INSERT , DELETE ON [dbo] . [SHIPPING] TO [Internet] 
GO 



GRANT 



SELECT , UPDATE , INSERT , DELETE ON [dbo] . [STATE] TO [Internet] 



GO 



SET QUOT£D_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spGFO 

@Id numeric = NULL, 

@Flag varchar(4} = NULL, 

@SesTyp varchar (4) = NULL, 
@ThisParam varchar (10) = NULL, 
GStrBis varchar (1000) - NULL, 



@Search varchar(lOO) = NULL, 
QShowAll varchar(lOO) 
QSearchCol varchar(lOO) 
@Col varchar(lOO) 
@Order varchar (100) 



NULL, 
NULL, 
NULL, 
NULL 



AS 

DECLARE 



@StrSql 



varchar (2000) 



IF <@Id!=-l AND @Id IS NOT NULL) 
BEGIN 

IF {(aFlag= , P l OR 8SesTyp=*P') 
BEGIN 

SET @StrSql— 1 SELECT * FROM (SELECT VARSHIP= (CASE ORDR SHIP WHEN ,r O ,T THEN 



'Inventory 1 ' WHEN 
'Delivered' ■ END) , 



ELSE 1 1 R 1 ' END) + ' 
VARCHAR) + f ' lbs ' 1 , 



THEN 



'Dispatched* 1 WHEN ' '2' ' THEN 1 'En Route' ' WHEN ' '3' ' THEN 



VARDATE-LEFT (CONVERT (VARCHAR, ORDR_DATE, 101) , 5) , 
ORDR_ID, 

VARSIZE=CAST (ORDR_QTY AS VARCHAR) +' ' ' ' + (CASE ORDR_SIZE WHEN 0 THEN ' ' T ' 1 
'+CAST< (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY AS 

VARCONTRACT= (SELECT CONT_LABL FROM CONTRACT WHERE CONT_I D=ORDR_CONT ) , 
VARBRAND=ISNULL ( (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) , 1 1 



(Generic) 1 ' ) , 



VARPRICE=CAST{ORDR_PRCE+ORDR_SHIP_PRCE AS VARCHAR), 

VARVALUE= (ORDR_PRCE+ORDR_SHIP_PRCE) * (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 

190000 END) *ORDR_QTY, 

VARPLACE= (SELECT LOCL__CITY+ ' ' , ' ' +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE PLAC_I D=ORDR_TO ) ) , 
ORDR_TO, 
VARSELR^ (SE T 



~ECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_SELR} , 

ORDR_SELR, 

VARBUYR=( SELECT PERS_LOGN FROM PERSON WHERE PERS__ID=ORDR_BUYR) , 
ORDR__BUYR, 

VARWGHT=ORDR_QTY* {CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) FROM 
ORDERS WHERE ORDR_BUYR= 1 +CAST ( @Id as varchar)+ t AND Month ( 1 * ' +@ This Pa ram+ ' ' ') =Month (ORDR_DATE) AND 
Year{ 1 ' 1 +@ThisParam+ ? • ' ) =Year (ORDR_DATE) , +@StrBis+ I )Q0' 

END 

ELSE 

BEGIN 

SET @StrSql= ' SELECT * FROM {SELECT VARSHIP= (CASE ORDR_SHIP WHEN '*0" THEN 
1 'Inventory' * WHEN 1 '1' 1 THEN ' 'Dispatched' ' WHEN ' f 2* * THEN ' 'En Route' ' WHEN ' '3' ' THEN 
1 'Delivered' 1 END) , 

VARDATE=LEFT (CONVERT {VARCHAR, ORDRJDATE, 101) , 5) , 
ORDR_ID, 

VARSIZE=CAST (ORDR_QTY AS VARCHAR) + * ' ' '+(CASE ORDR_SIZE WHEN 0 THEN ' 'T' ' 
ELSE "R'' END) + ' r ; "+CAST((CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY AS 
VARCHAR) + ' 'lbs 1 ' , VARCONTRACT= ( SELECT CONT_LABL FROM CONTRACT WHERE 

CONT_ID=ORDR_CONT) , 

VARBRAND=ISNULL{ (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) , ' 



(Generic) 1 r ) , 

VARPRICE=CAST(ORDR_PRCE AS VARCHAR) , 

VARVALUE=ORDR_PRCE* (CASE ORDR_SIZE WHEN 0 THEN 42000*ORDR_QTY*0 . 97 ELSE 
190000*ORDR_QTY*0.98 END), 

VARPLACE= (SELECT LOCL_CITY+", 1 1 +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID= (SELECT PLAC__LOCL FROM PLACE WHERE PLAC_ID=ORDR_FROM) } , 

ORDR_FROM, 

VARSELR= (SELECT PERS_LOGN FROM PERSON WHERE 
PERS__ID=ORDR_SELR) , ORDR_SELR, VARBUYR= (SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_BUYR) , 
ORDR_BUYR, 

VARWGHT=ORDR_QTY* (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) FROM 
ORDERS WHERE ORDR_SELR= 1 +CAST ( @Id as varchar)*' AND Month ( " ' +@ This Par arrH- 1 ' 1 ) —Month (ORDR_DATE) AND 
Year ( * ' ' +@ThisParam+ ' • 1 ) ^Year (ORDR_DATE) ' +@StrBis+ 1 ) Q0 1 
END 

END 

ELSE 

BEGIN 

SET @StrSql=' SELECT * FROM (SELECT VARSHIP- {CASE ORDR_SHIP WHEN "0" THEN "Inventory" 
WHEN THEN "Dispatched" WHEN "2" THEN "En Route" WHEN "3" THEN "Delivered" END), 

VARDATE=LEFT ( CONVERT ( VARCHAR, ORDR_DATE , 1 0 1 ) , 5 } , 
ORDR_ID, 



VARSIZE=CAST (ORDR_QTY AS VARCHAR) + ' ' 1 ' + ( CASE ORDR_SIZE WHEN 0 THEN r 'T ' ' ELSE ' ' R 1 1 
END) + 1 1 : ' '+CAST< (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 END ) * ORDR_QTY AS VARCHAR) + r 1 lbs 1 ' , 
VARCONTRACT={ SELECT CONT_LABL FROM CONTRACT WHERE CONT_I D=ORDR_CONT ) , 
VARBRAND=ISNULL( (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) , ' ' 

(Generic) ' 1 ) , 

VARS£LR= (SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_SELR) , 
ORDR_SELR, 

VARBUYR= (SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_BUYR) , 
ORDR__BUYR, 

VARWGHT=ORDR_QTY* {CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) FROM ORDERS WHERE 
ORDR_SELR IS NOT NULL AND Month (" 1 +@ This Param+ 1 *') =Month (ORDR_DATE) AND 
Year ( 1 ' ' +@ThisParam+ T ' ' ) =Year (ORDR_DATE) • +@StrBis+' ) Q0 • 
END 

IF ^Search IS NOT NULL AND @ShowAll IS NULL 
BEGIN 

IF @SearchCol='ALL' 
BEGIN 

SET @StrSql=@StrSql+ r WHERE (VARDATE LIKE ' ' % 1 +@Search+ ' % ' ' OR ORDR_I D LIKE 
f 'I'+eSearch+'l' ' OR VARBRAND LIKE 1 ' % ' +@Search-f » % T 1 1 
IF @Fla 



g IS NOT NULL OR @SesTyp< 'AD ' 

BEGIN 

SET @StrSql=@StrSql+' OR VARPLACE LIKE 1 ' % ' +@Search+ 1 % T ' 
SET @StrSql=@StrSql+ r OR VARPRICE LIKE 1 ' % 1 +@Search+ 1 % ' 1 
SET @StrSql=@StrSql+' OR VARVALUE LIKE ' ' % ' +@Search+ 1 % ' 1 

END 

SET gStrSql-estrSqH-' OR VARBUYR LIKE " % ' +@Search+ * % " ' 
SET @StrSql=@StrSql+* OR VARSELR LIKE f 1 % ' +@Search+ • % ' • 1 
SET @StrSql=@StrSql+ J OR VARCONTRACT LIKE ' ' % 1 +@Search+ 1 % ' ' ' 
SET @StrSql=@StrSql+ f OR VARSIZE LIKE ' 1 % ' +@Search+ 1 % 1 1 * 
SET @StrSql=@StrSql+ t OR VARSHIP LIKE ' ' % ' +@Search+ 1 % ' 1 ) * 



SET @StrSql=0StrSql+' WHERE ' +@SearchCol+ 1 LIKE * ' % r +@Search+'% ' 



END 

ELSE 

BEGIN 

END 

END 



SET @StrSql=@StrSql+ l ORDER BY ' 
IF 9 Col IS NOT NULL 

SET @StrSql=@StrSql+@Col+' '+@Order 

ELSE 

SET @StrSql=@StrSql+'ORDR_ID DESC* 
Exec {@StrSql) 
RETURN 



GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [ spGFO] TO [Internet] 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI__NULLS ON 
GO 



CREATE Proced re spGSM 

@Dest n meric - NULL, 

@Id n meric = NULL, 
— @Comp n meric = NULL, 

@Mess varchar (8000) = NULL 

As 

INSERT INTO MESSAGE (MESSJTO, MESS_FROM, MESS_COMP, MESSJTEXT, MESS_DATE) 
VALUES (@Dest, @Id, 1, @Mess, GET DATE { } ) 



return 



GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spGSM] TO [Internet] 
GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spGSysMessage 

@PersId numeric = 0, 

QPersTyp varchar{2) = ' ' 
AS 

IF ©PersTyp^'P 1 

SELECT MESS_DATE, MESS_TEXT, MESS_ID, MESS_FROM, I SNULL ( (SELECT PERS_TYPE FROM PERSON WHERE 
PERS_ID=MESS_FROM) , 'A 1 ) , MESS_TYPE, (CASE MESS__FROM WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' 
ELSE (SELECT PERS_LAST_NAME+ ' ' +PERS_FRST_NAME FROM PERSON WHERE PERS_ID=MESS_FROM) END) FROM 
MESSAGE WHERE MESS_TO=@PersId OR MESS_TO=0 OR MESS_TO=-2 ORDER BY MESS_ID DESC 
ELSE IF @PersTyp= T S' 

SELECT MESS_DATE, MESS_TEXT , MESS_ID, MESS_FROM, ISNULL ( (SELECT PERS_TYPE FROM PERSON WHERE 
PERS_ID=MESS_FROM) , 'A') ,MESS_TYPE, (CASE MESS_FROM WHEN -6 THEN 'Administrator 1 WHEN 0 THEN 'System 1 
ELSE (SELECT PERS_LAST_NAME+ ' * +PERS_FRST_NAME FROM PERSON WHERE PERS_ID=MESS_FROM) END} FROM 
MESSAGE WHERE MESS_TO=@PersId OR MESS_TO=0 OR MESS_TO— 3 ORDER BY MESS_ID DESC 
ELSE IF @PersTyp='AD' OR @PersTyp='M' 

SELECT MESS_DATE, MESS__TEXT , MESS_ID, MESS_FROM, ISNULL (< SELECT PERS_TYPE FROM PERSON WHERE 
PERS_ID=MESS_FROM) , 'A' ) ,MESSJTYPE, (CASE MESS_FROM WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' 
ELSE (SELECT PERS_LAST_NAME+ 1 ' +PERS_FRST_NAME FROM PERSON WHERE PERS_ID=MESS_FROM) END) FROM 
MESSAGE WHERE MESS_TO=@PersId OR MESS_TO=0 OR MESS_TO=-6 ORDER BY MESS_ID DESC 
RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

GRANT EXEC 



UTE ON [dbo] . [spGSysMessage] TO [Internet] 

GO 



SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spGWOl 

@Id numeric 
@Flag varchar (4) 

@SesTyp varchar (4) = NULL, 

@ Number numeric = NULL, 

@Search varchar (100) = NULL, 



eshowAli 
@SearchCol 
@Col 
@Order 



varchar (100) 
varchar (100) 
varchar (100) 
varchar (100) 



AS 

/*pour 1' 
DECLARE 



NULL, 
NULL, 



NULL, 
NULL, 
NULL, 
NULL 



id: passer -1 au lieu de *Offer ou *Bid*/ 



(§StrSql 



varchar (2000) 



IF (@Id!=-l AND @Id IS NOT NULL} 
BEGIN 

IF (@Flag='P T ) 
BEGIN 

SET @StrSql= ' SELECT * FROM {SELECT VARDATE=LEFT {CONVERT (VARCHAR, BID_DATE, 101) ,5) , 
VARID^BID_ID, 

VARSIZE=CAST(BID_QTY AS VARCHAR) + * 1 ,, + (CASE BID_SIZE WHEN 0 THEN * ' T ' ' ELSE 
1 'R 1 * END) + ' 1 : 1 1 +CAST ( (CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *BID_QTY AS 
VARCHAR) + * ' lbs ' 1 , 

VARCONTRACT={ SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=BID_CONT) , 
VARPRICE=CAST(BID_PRCE AS VARCHAR) , 

VARVALUE=BID_PRCE* (CASE BID__SIZE WHEN 0 THEN 42000 ELSE 190000 END) *BID_QTY, 
VARPLACE= (SELECT LOCL_CITY+ ' ' , ' * +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=BID_TO) ) , 
VARPLACEID=BID_TO, 

VARUSR- (SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=BID_BUYR) , 
VARUS RI D=B I D_BUYR, 

VARWGHT=BID_QTY* {CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END) , 
BID_DATE 
FROM BID 

WHERE BID_BUYR='+CAST {@Id AS varchar) + ? AND BID_CONT= (CASE ' +CAST ( @Number as 
varchar)+' WHEN -1 THEN BID_CONT ELSE 1 +CAST ( @ Number as varchar)+' END) ) Q0 1 
END 
ELSE 
BEGIN 

SET @StrSql= ' SELECT * FROM (SELECT V ARDATE= LEFT (CONVERT (VARCHAR, OFFR_DATE, 101 ), 5 ) , 
VARI D=OFFR_I D , 

VARSIZE=CAST(OFFR_QTY AS VARCHAR) + 1 ' ' 1 +{CASE OFFR_SIZE WHEN 0 THEN ' 'T' 1 
ELSE "R" END)*' 1 : ' 1 -f CAST { (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *OFFR__QTY AS 
VARCHAR) + f 'lbs 1 ' , 

VARCONTRACT= (SELECT CONT_LABL FROM CONTRACT WHERE 

CONT 



_ID=OFFR_CONT)+' 1 br bs bs bs SPAN CLASS=S9 * T +ISNULL ( ( SELECT BRAN_NAME FROM BRAND 
WHERE BRAN_ID=OFFR_BRAN) , ' r ' ' ) + ' * / SPAN ' r , 

VARPRICE=CAST(OFFR_PRCE AS VARCHAR) , 

VARVALUE=OFFR_PRCE* (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 

END) *OFFR_QTY, 

VARPLACE={ SELECT LOCL_CITY+ 1 ' , 1 ' +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=OFFR_FROM) ) , 
VARPL AC E I D= O F FR_ FROM , 

VARUS R— ( SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=OFFR_SELR) , 
VARUSRID=OFFR_SELR, 

V ARWGH T- OF FR__QT Y * (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) , 
OFFR_DATE 
FROM OFFER 

WHERE OFFR_SELR='+CAST{@Id AS varchar) +' AND OFFR_CONT= (CASE ' +CAST ( ©Number as 
varchar)+* WHEN -1 THEN OFFR_CONT ELSE ' +CAST { ^Number as varchar)+' END) ) Q0 1 
END 

END 

ELSE 

BEGIN 

IF (@Flag= , P') 

SET @StrSql= 1 SELECT * FROM { SELECT VARDATE=LEFT (CONVERT (VARCHAR, BID_JDATE, 101) ,5) , 
VARID=BID_ID, 

VARSIZE=CAST(BID_QTY AS VARCHAR) + ' 1 1 '+{CASE BID_SIZE WHEN 0 THEN ' 1 T ' * ELSE 
1 1 R' 1 END) + 1 ' : 1 '+CAST( (CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *BID_QTY AS 
VARCHAR) +' 'lbs' ' , 

VARCONTRACT= {SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=BID_CONT) , 

VARPRICE=CAST{BID_PRCE AS VARCHAR), 

VARVALUE=BID 



PRCE*(CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *BID_QTY, 
VARPLACE= (SELECT LOCL_CITY+ • • , ' T +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=- (SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=BID_TO) ) , 
VARPLACE I D=B I D_TO , 

VARUS R= ( SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=BID_BUYR) , 
VARUSRI D-B I D_BUYR, 

VARWGHT=BID_QTY* (CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END), 
BID_DATE 
FROM BID 

WHERE BID_BUYR IS NOT NULL AND BID_CONT= {CASE '+CAST {GNumber as varchar)+' WHEN -1 
THEN BID_CONT ELSE 1 +CAST ( @Number as varchar)*' END) ) Q0 f 
ELSE 

SET @StrSql= ' SELECT * FROM (SELECT VARDATE=LE FT (CONVERT (VARCHAR, OFFR_DATE f 101) , 5 ) , 



VARID=OFFR_ID, 

VARSIZE=CAST(OFFR_QTY AS VAR^AR)*' 1 l, +(CASE OFFR_SIZE WHEN 0 THEN 1 'T'' 
ELSE 1 ' R 1 ' END) + ' 1 : ' ' +CAST ( (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *OFFR_QTY AS 
VARCHAR) + ' f lbs ' ' , 

VARC ON TRACT= (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=OFFR_CONT)+ T '<br>   <SPAN CLASSES 9> r ' +ISNULL ( (SELECT BRAN_NAME FROM BRAND 
WHERE BRAN_ID=OFFR_BRAN) , ' ' * 1 ) + ' r </SPAN> 1 1 , 

VARPRICE=CAST(OFFR_PRCE AS VARCHAR) , 

VARVALUE=OFFR_PRCE* (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 

END) *OFFR_QTY, 

VARPLACE=( SELECT LOCL_CITY+ ' 1 , ' ' +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=OFFR_FROM) ) , 
VARPLACE I D=OFFR_FROM, 

VARUSR-( SELECT PERS_LOGN FROM PERSON WHERE PERS__ID=OFFR_SELR) , 
VARUSRID=OFFR_SELR, 

VARWGHT=OFFR_QTY* {CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END), 
OFFR_DATE 
FROM OFFER 

WHERE OFFR_SELR IS NOT NULL AND OFFR_CONT= (CASE 1 +CAST (@Number as varchar)+' WHEN 
THEN OFFR_CONT ELSE 1 -s-CAST <@Number as varchar)+' END) ) Q0 ' 
END 



IF @Search IS NOT NULL AND @ShowAll IS NULL 
BEGIN 

IF (aSearchCol^'ALL 1 
BEGIN 

SET @StrS l=@StrS 1+' WHERE (VARDAT 17 



u LI E r +@Search+' 11 OR VARID LI E 
, +@Search+' ?l OR VARPLACE LI E " , +@Search+' 11 OR VARPRICE LI E " ^Searc*^' " OR VAR VALUE 
LI E 1 1 '+@Search+ ? OR VARUSR LI E " , +@Search+' ' ' OR VARCONTRACT LI E " ^Search^- 1 ' ' OR 
VARSIZE LI E " '+@Search+ f 1 ' ) 1 
END 
ELSE 
BEGIN 

SET @StrS l^QStrS 1+' WHERE ' +@SearchCol+ ' LI E ' ' '+@Search+' ' " 

END 

END 

SET @StrS l=@StrS l+ r ORDER BY ' 

IF @Col IS NOT NULL 
BEGIN 

IF (@Col='OFFR_DATE' AND {{@Flag=*P f AND @Flag<>") OR @Id=-l) ) 
SET @StrS l=@StrS 1+'BID_DATE '+@Order 

ELSE 
BEGIN 

IF (@Col='BID_DATE' AND (({aFlago'P 1 AND @Flag<> * 1 ) OR @Id=-l) ) 
SET @StrS l=@StrS 1+ ' OFFR_DATE '+@Order 

ELSE 

SET @StrS l=@StrS l+@Col+ ? f +@Order 

END 

END 
ELSE 

SET @StrS l-tiStrS 1+' VARID DESC 

--SELECT @StrS 1 
E ec (@StrS 1) 



RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJHJLLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spGWOl] TO [Internet] 
GO 

SET QUOTED_I DENT I F I ER ON SET ANSI_NULLS ON 
GO 



CREATE Procedure spOUsers 
AS 

SELECT PERS_ID, 1 { 1 +PERS_TYPE+ ' ) 1 +PERS_LAST_NAME+ 1 ' +PERS_FRST_NAME FROM PERSON 
RETURN 



GO 

SET QUOTED_I DENTI FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spOUsers] TO [Internet] 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPBO_BP0 

@j numeric = NULL, 

@i numeric - NULL 
AS 

SELECT EXPR=BID_PRCE+ (SELECT SHIP_PRCE__TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL=@ j AND 
SHIP_FROM__LOCL=SHIP_TO_LOCL) - (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL=@ j AND 
SHIP_TO_LOCL=BID_TO_LOCL} ,BID_QTY,BID_BUYR FROM BID WHERE BID_SI2E=0 AND BID_CONT=@i ORDER BY EXPR 
DESC 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJflULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spPBO_BP0] TO [Internet] 
GO 

SET QUOTED__I DENTI FIER OFF SET ANSIJHJLLS ON 
GO 



CREATE Procedure spPBO_BPl 

@From_Locl numeric - NULL, 

@j numeric = NULL, 

@i numeric - NULL 
AS 

SELECT EXPR=BID_PRCE+ISNULL( (SELECT SHIP_PRCE__TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL=9From_Locl AND 
SHIP TO LOCL- @j),0)-I SNULL ( ( SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP FROM LOCL=@From Loci AND 



SHIP__TO_LOCL=BID_TO_LOCL) ,0) , BID_QTY, BIDJBUYR FROM BID WHERE BID_SIZE=0 AND BID_CONT-@l ORDER BY 
EXPR DESC 



GO 

SET QUOTED__I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [ spPBO_BPl] TO [Internet] 
GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPBO_BP2 

@j numeric = NULL, 

@i numeric - NULL 
AS 

SELECT EXPR=BID_PRCE+ (SELECT SHIP__PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL=@ j AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL) - (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROMJLOCL=@ j AND 
SHIPJTO_LOCL=BID_TO_LOCL) , BID_QTY, BIDJBUYR FROM BID WHERE BID_SIZE=1 AND BID_CONT=@i ORDER BY EXPR 
DESC 



GO 

SET ' QUOTED__I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spPBO_BP2] TO [Internet] 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPBO_BP3 

@Frorn_Locl numeric = NULL, 

@j numeric = NULL, 

@i numeric - NULL 
AS 

SELECT EXPR=BID_PRCE+ISNULL { {SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL*=@From_Locl AND 
SHIP_TO_LOCL=@ j ) ,0) -ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL=@From_Locl AND 
SHIP_TO_LOCL=BID_TO_LOCL) ,0) , BID_QTY, BID_BUYR FROM BID WHERE BID_SIZE=1 AND BID_CONT=@i ORDER BY 
EXPR DESC 



GO 

SET QUOTE D_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spPBO_BP3] TO [Internet] 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJtfULLS ON 
GO 



CREATE Procedure spPBO_OffrR 

@j numeric ~ NULL, 

@i numeric = NULL 
AS 

SELECT OFFR_FROM_LOCL,EXPR=OFFR_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL=@ j ) , 0) , OFFR_QTY FROM OFFER WHERE OFFR_SI2E=^l AND 
OFFR 



CONT=@i ORDER BY EXPR ASC 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spPBO_Of frR] TO [Internet] 
GO 

SET QUOTED_I DENTI FI ER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPBO_OffrT 

@j numeric = NULL, — Ship_To_Locl 

@i numeric = NULL — Offr_Cont 

AS 

SELECT OFFR_FROM_LOCL,EXPR=OFFR_PRCE+ISNULL{ (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP__TO_LOCL-@ j ) , 0) , OFFR_QTY FROM OFFER WHERE OFFR_SIZE=0 AND 
OFFR CONT=^@i ORDER BY EXPR ASC 



GO 

SET QUOTED_I DENT I FIER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spPBO_Of frT] TO [Internet] 
GO 

SET QUOTE D_I DENT I FIER ON SET ANSI_NULLS ON 
GO 



CREATE Procedure spPWO 

@BidId varchar(lO) = NULL 
AS 

/*** ********* **************************************** 

** File: spPWO.sql 
** Name: spPWO 

** Desc: Purchaser Working Orders 
* * 

************************************************************* 
** Change Histor 



y 

******************************************************************************* 

** Date: Author: Description: 

** 12/04/2000 Gerald Colin Purchaser Working Orders 
* * 

******************************************************************************* J 
DECLARE @BidPrce varchar (10) , 

SBidQty varchar (2) , 

@ParaValu varchar (20), 

@ContLabl varchar (60), 

@Prce varchar (20), 

@Locl varchar (200) , 

@Str varchar (2), 

@PersId varchar (10) 
DECLARE myCurs CURSOR FOR 
SELECT BID_PRCE, 

BID_QTY, 

(CASE BID_SIZE WHEN 0 THEN 'Truckload' ELSE 'Rail Car 1 END) , 

(SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=BID_CONT) , 

{CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END) *BID_PRCE*BID_QTY, 

(SELECT LOCL_CITY+\ ' +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=BID_TO_LOCL) , 



BID_BUYR 

FROM BID WHERE BID_ID=@BidId 
OPEN myCurs 

FETCH NEXT FROM myCurs INTO GBidPrce, @BidQty, @ParaValu, GContLabl, @Prce, dLocl, @PersId 

IF @@ROWCOUNT>0 

BEGIN 

UPDATE CREDIT SET CRED_AVLB=CRED__AVLB+@Prce 

SET @Prce=CONVERT {VARCHAR, CONVERT (MONEY, GPrce, 1 ) , 101 ) 

SET @Prce=LEFT { @Prce, LEN (@Prce) -3) 

IF @BidQty>l 

SET @Str=*s f 
ELSE 

SET @Str=' ' 

INSERT INTO MESSAGE (MESS j:OMP, MESSJTO,MESS_FROM, MESS JTEXT,MESS_DATE,MESS_TYPE) 

VALUES { 1, @ Per si d, 0, 1 # ' +0BidId+ ' to BUY , +@BidQty+' 1 +@ParaValu+@Str+ ' ' +@ContLabl+ ' for 

$ ' +RIGHT { @BidPrce, LEN (@BidPrce) -1) + 1 per pound. Delivery to , +@Locl+'. Estimate value of 

$ ' +@ Prce , GETDATE { ) , ' 4 1 ) 
DELETE FROM BID WHERE BID_ID=@BidId 

END 

CLOSE myCurs 
DEALLOCATE myCurs 

RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [ spPWO] TO [Internet] 
GO 

SET QUOTED_I DENT I FIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spSSO_OffrT 

@Type varc ar ( ) = NULL, 

@i numeric = NULL, 

@ numer 



ic = NULL 



AS 

IF @Type= , T 1 
BEGIN 

SELECT BIDJTO_LOCL,BID_PRCE-ISNULL{ (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=BIDJTO_LOCL AND SHIP_FROM_LOCL=@ ),0) AS EXPR, BID_QTY FROM BID WHERE BID_SIZE=0 AND 
BID_CONT=@i ORDER BY EXPR DESC 
END 
ELSE 
BEGIN 

SELECT BID_TO_LOCL,BID_PRCE- (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=@ ) AS EXPR, BID_QTY FROM BID WHERE BID_SI2E=1 AND 
BID_CONT=@i ORDER BY EXPR DESC 
END 

—SELECT BID_TO_LOCL,BID_PRCE AS EXPR, BID_QTY FROM BID WHERE BID_SIZE=1 AND BID_CONT="&i&" ORDER BY 
EXPR DESC 



GO 

SET QUOTED_I DENTI FI ER OFF SET ANSI__NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spSSO_Of frT] TO [Internet] 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spSSOl 

@Flag numeric = NULL, 

@j numeric = NULL, 

@i numeric - NULL, 

@BidLocl numeric = NULL 

AS 

IF @Flag=0 

SELECT EXPR=OFFR_PRCE-ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=@ j AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL) , 0) +ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=@ j 
AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) , 0) , OFFR_QTY, OFFR_SELR FROM OFFER WHERE OFFR_SIZE=0 AND 
OFFR_CONT=@i ORDER BY EXPR ASC 
ELSE 

SELECT EXPR=OFFR_PRCE-ISNULL( {SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=@BidLocl AND SHI P_FROM_LOCL=@ j ), 0 ) +ISNULL {( SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=@BidLocl AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) , 0 ) , OFFR_QTY, OFFR_SELR FROM OFFER WHERE 
OFFR SIZE=0 AND OFFR CONT=@i ORDER BY EXPR ASC 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spSSOl] TO [Internet] 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spSS02 

@Flag numeric = NULL, 

@j numeric - NULL, 

@i numeric = NULL, 

@BidLocl numeric = NULL 

AS 



IF @Flag=0 

SELECT EXPR=OFFR_PRCE-ISNULL( {SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_T0_L0CL=@ j AND 
SHIP_FROM__LOCL=SHIP_TO_LOCL} , 0} +ISNULL{ (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=@ j 
AND SHIP_FROM__LOCL=OFFR_FROM_LOCL) , 0) , OFFR_QTY, OFFR_SELR FROM OFFER WHERE OFFR_SIZE=l AND 
OFFR_CONT=@i ORDER BY EXPR ASC 
ELSE 

SELECT EXPR=OFFR_PRCE-ISNULL{ (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=@BidLocl AND SHIP_FROM_LOCL=@i) , 0) +ISNULL { (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=@BidLocl AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) , 0 ) , OFFR_QTY, OFFR_SELR FROM OFFER WHERE 
OFFR 



SIZE=1 AND OFFR CONT=@i ORDER BY EXPR ASC 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spSS02] TO [Internet] 
GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spSWO 

SOffrld varcharUO) = NULL 
AS 



/****************************************************************************** 

** File: spSWO.sql 
** Name: spSWO 

** Desc: Supplier Working Orders 
** 

************************************************************************* 
** Change History 

******************************************************************************* 
** Date: Author: Description: 

** 12/04/2000 Gerald Colin Supplier Working Orders 
* * 

*******************************************************************************/ 
DECLARE SOffrPrce varchar(lO), 

SOffrQty varchar(2), 

@ParaValu varchar (20), 

SContLabl varchar (60), 

@Prce varchar (20), 

@Locl varchar (200) , 

@Str varchar (2), 

SPersId varchar (10) 
DECLARE myCurs CURSOR FOR 
SELECT CAST(OFFR_PRCE AS DECIMAL {4, 3) ) , 

OFFR_QTY, 

(CASE OFFR_SIZE WHEN 0 THEN 'Truckload' ELSE 'Rail Car' END), 
(SELECT CONT_LABL FROM CONTRACT WHERE CONT_I DOFFR_CONT ) , 

CONVERT (VARCHAR, CONVERT (MONEY, (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *OFFR__PRCE*OFFR_QTY, 1) , 101) , 

(SELECT LOCL_CITY+\ ' +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=OFFR_FROM_LOCL) , 
OFFR_SELR 

FROM OFFER WHERE OFFR_ID=@Of f rid 
OPEN myCurs 

FETCH NE T FROM myCurs INTO @OffrPrce, @OffrQty, @ParaValu, @ContLabl, @Prce, @Locl, @PersId 

IF @@ROWCOUNT 0 

BEGIN 



„ET @Prce=LEFT (@Prce , LEN <@Prce) -3) 
IF @OffrQty 1 

SET @Str= , s 1 
ELSE 

SET @Str=' ' 

INSERT INTO MESSAGE {MESS_COMP, MESSJTO, MESS_FROM,MESS_TE T, MESS_DATE,MESS_TYPE) 

VALUES U,@PersId,0, 1 # * +@0f f rld+ ' to SELL , +80ffrQty+' 1 +@ParaValu+@Str+ ' 1 +QContLabl+ ' for 

$ * +RIGHT ( @Of f rPrce, LEN { @Of f rPrce) -1 ) + 1 per pound. Picked up at '+@Locl+'. Estimate value of 

$ 1 +@Prce, GET DATE { ) , '4') 
DELETE FROM OFFER WHERE OFFR_ID=@Of f rid 

END 

CLOSE myCurs 
DEALLOCATE myCurs 



RETURN 



GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT E ECUTE ON [dbo] . [spSWO] TO [Internet] 
GO 

SET QUOTED_I 



GO 



DENTIFIER OFF SET ANSI NULLS 



CREATE Procedure spTradingFloor 

@Cont_typ varchar(lO) = NULL, 

@Locl_Id numeric = NULL, 

@Comp__Id numeric = NULL, 

@User_Id numeric = NULL, 

@User_Type char(l) = ' P* 

AS . 



IF @User_Type= , P* 
BEGIN 
IF QCont^typ^'Cust' 
BEGIN 
SELECT 
cont_id, 
cont^labl, 

cont_bid__truc=CASE ISNULL (cont_offr_truc, '-1') 
WHEN THEN 
{ SELECT TOP 1 val=CAST{exprl AS VARCHAR) + ' ; ' + 

CAST { (SELECT SUM (BID_QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
(BID_PRCE+ISNULL{ (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL=@Locl_Id AND 
SHIP_TO_LOCL-SHIP_FROM__LOCL) , 0) -ISNULL ( (SELECT SHI P_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=@Locl_Id AND SHIP_TO_LOCL-BID_TO_LOCL) , 0 ) ) =EXPR1) AS VARCHAR} + ' ; 1 + 

CAST {BID_BUYR AS VARCHAR) 

FROM (SELECT BID_CONT, B I D_PRCE+ISNULL ( (SELECT SHIP__PRCEJTRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=@Locl_Id AND SHI P_TO_LOCL=SHIP_JROM_LOCL) , 0) -ISNULL ( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=@Locl_Id AND SHIP_TO_LOCL-BID_TO_LOCL) , 0) AS EXPRl , BID_BUYR FROM BID 
WHERE BID_SIZE=0)Q WHERE BID_CONT=CONT_ID ORDER BY EXPRl DESC) 
ELSE 

(SELECT TOP 1 exprl=CAST ( (BID_PRCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN (SUBSTRING (cont_of f r_truc, 1 , PATINDEX {'%;% 1 , cont_of f r_truc) -1 ) ) AND 

SHI P_TO_LOCL=@Locl_Id) , 0) -ISNULL { (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOO>BID_TO_LOCL 
AND SHIP_FROM_LOCL IN (SUBSTRING (cont_of f r_truc, 1, PATINDEX <■%;%•, cont_of f r_truc) -1 ))), 0) ) AS 
VARCHAR) + ' ; * + 

CAST ((SELECT SUM (BID_QTY) FROM BID WHERE BID__SIZE=0 AND BID_CONT=CONT_ID AND 
CAST ( (BID_PRCE+ ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRINGfcont^ffr^rucl^ATINDEXt^^^^on^off^truc)-!) ) AND SHIP_TO_LOCL=@Locl_Id) ,0}- 
ISNULL ( {SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP TO LOCL=BID TO LOCL AND SHIP FROM LOCL IN 



(SUBSTRING (cont_offr_truc, 1, PATINDEX ('%;%', con t_offr_t rue) -1} ) ) ,0) ) AS 

VARCHAR) =CAST ( {Q . BID_PRCE+ISNULL ( {SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING (cont_of f r_truc, 1, PATINDEX ( 1 %; % 1 , cont_of f r_truc) -1 ) ) AND SHIP_TO_LOCL=@Locl_Id) , 0) - 
ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=Q. BID_TO_LOCL AND SHIP_FROM_LOCL IN 
(SUBSTRINGfCOnt^off^trucl^ATINDEXC^^'^ont^Off^truc)-!)))^)) AS VARCHAR) ) AS VARCHAR) + 1 ; ' + 
CAST (BID_BUYR AS VARCHAR) 
FROM BID Q WHERE BID__SIZE=0 AND BID_CONT=CONT_ID ORDER BY EXPRl DESC) 
END, 

cont__o f f r_t rue , 

cont_bid_rail=CASE ISNULL ( con t_offr_rail, '-!') 
WHEN 1 -1 ' THEN 
(SELECT TOP 1 val=CAST(exprl AS VARCHAR) + 1 ;' + 

CAST ( (SELECT SUM (BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
(BID_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL=@Locl_Id AND 
SHIP_TO_LOCL-SHIP_FROM__LOCL) , 0) -ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=@Locl_Id AND SHIPJTO_LOCL==BID_TO_LOCL} , 0) ) =EXPR1 ) AS VARCHAR) + r ;' + 

CAST (BID_BUYR AS VARCHAR) 

FROM (SELECT BID_CONT, BID_PRCE+ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=@Locl_Id AND SHI P_TO_LOCL=SHIP_FROM_LOCL) , 0 ) -ISNULL ( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=@Locl_Id AND SHIP_TO__LOCL=BID_TO_LOCL) , 0) AS EXPRl , BID_BUYR FROM BID 
WHERE BID_SIZE=1)Q WHERE BID_CONT=CONT_ID ORDER BY EXPRl DESC) 
ELSE 

(SELECT TOP 1 exprl=CAST( (BID_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN ( SUBSTRING ( cont_off r_r ail , 1, PATINDEX ('%;%*, cont_of f r_rail) -1) ) AND 
SHIP_TO_LOCL=@Locl_Id) , 0) -ISNULL ( (S v 



i^LECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL 
AND SHIP_FROM_LOCL IN { SUBSTRING (cont_of f r_rail, 1, PATINDEX ('%;%', cont_of f r_rail) -1) }), 0) ) AS 
VARCHAR) + 1 ; ' + 

CAST { ( SELECT SUM (BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
CAST ( (BID_PRCE+ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
( SUBSTRING (cont_offr_rail, 1, PATINDEX { 1 %;% * , cont_of f r_rail) -1) ) AND SHIP_TO_LOCL=6Locl_Id) , 0) - 
ISNULL { { SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL IN 
{SUBSTRING{cont_offr_rail,l,PATINDEX( I %;% l ,cont_offr_rail)-l) ) >,0) ) AS 

VARCHAR) =C AST { (Q.B I D_PRCE+ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING (cont_of fr_rail, 1, PATINDEX ('%;%*, cont_of f r_rail) -1) } AND SHIP_TO_LOCL=@Locl_Id) , 0) - 
ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=Q. BID_TO_LOCL AND SHIP_FROM_LOCL IN 
(SUBSTRINGtcont^ffr^rail^^ATINDEXt^^^cont^ffr^raiD-l)})^) ) AS VARCHAR) ) AS VARCHAR) + ' ; 1 + 
CAST (BID_BUYR AS VARCHAR) 

FROM BID Q WHERE BID_SIZE=1 AND BID_CONT^CONT_ID ORDER BY EXPRl DESC) 
END, 
cont_of fr_rail 
FROM 
(SELECT 



cont_id, 

cont_labl, 

cont_ordr, 

cont_offr_t rue- {SELECT TOP 1 val=CAST (of f r_FROM_locl AS VARCHAR) + ' ; 1 + 
CAST (expr AS VARCHAR) + ' ; 1 + 

CAST ( (SELECT SUM (OFFR_QTY) FROM OFFER WHERE { OFFR_PRCE+ I SNULL ({ SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL=@Locl_Id) , 0 ) ) -EXPR AND OFFR_SIZE=Q AND 
OFFR_CONT=CONT_ID) AS VARCHAR) +';' + 
CAST(offr_selr AS VARCHAR) 

FROM (SELECT OFFR_FROM_LOCL, OFFR_SELR, EXPR=OFFR_PRCE+I SNULL ( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL-@Locl_Id) , 0) , OFFR_QTY FROM OFFER WHERE 
OFFR_SIZE=0 AND OFFR_CONT-CONT__ID) Q ORDER BY expr ASC) , 

cont_offr_rail= (SELECT TOP 1 val=CAST (of f r_FROM_locl AS VARCHAR) + ';' + 
CAST ( expr AS VARCHAR) + 1 ; » + 

CAST ( (SELECT SUM (OFFR_QTY) FROM OFFER WHERE ( OFFR_PRCE+I SNULL ( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL=@Locl_Id} , 0} ) =EXPR AND OFFR_SIZE=l AND 
OFFR_CONT-CONT_ID) AS VARCHAR) + ' ; * + 
CAST(offr_selr AS VARCHAR) 

FROM (SELECT OFFR_FROM_LOCL, OFFR_SELR, EXPR=OFFR_PRCE+I SNULL ( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_JFO_LOCL-@Locl_Id) , 0) , OFFR_QTY FROM OFFER WHERE 
OFFR_SIZE=l AND OFFR_CONT=CONT_ID) Q ORDER BY expr ASC) 

FROM CONTRACT WHERE POWER (2 , CONT_ID-l )& (SELECT PERS_PREF FROM PERSON WHERE PERS_ID=@User_Id) <>0 
)Q0 ORDER BY CONTJDRDR 
END 

ELSE — @Cont_t pO'Cust' 



BEGIN 
SELECT 
cont_id, 
cont_labl, 

cont_bid__truc=CASE ISNULL {cont_of f r_truc, ' -1 1 ) 
WHEN '-1' THEN 
{ SELECT TOP 1 val=CAST(exprl AS VARCHAR) + T ; 1 + 

CAST ( ( SELECT SUM (BIDJ2TY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
(BID_PRCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL=@Locl_Id AND 
SHIP_TO_LOCL=SHIP_FROM__LOCL) , 0) -ISNULL { (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=@Locl_Id AND SHIP_TO_LOCL=BID_TO_LOCL) , 0) ) =EXPR1 ) AS VARCHAR) + ' ; ' + 

CAST (BID__BUYR AS VARCHAR) 

FROM (SELECT BID_CONT, B I D_PRCE+ ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=@Locl_Id AND SHI P_TO_LOCL=SHIP_FROM_LOCL) , 0) -ISNULL ( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=@Locl_Id AND SHIP_TO_LOCL=BIDJFO_LOCL) , 0 ) AS EXPRl , BID_BUYR FROM BID 
WHERE BID_SIZE=0)Q WHERE BID_CONT=CONT_ID ORDER BY EXPRl DESC) 
ELSE 

(SELECT TOP 1 exprl=CAST( (BID_PRCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM__LOCL IN (SUBSTRING (con t_offr_truc, 1 , PAT INDEX ('%;%', con t_offr_truc) -1) } AND 

SHIP_TO_LOCL=@Locl_Id) , 0) -ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL 
AND SHIP_FROM_LOCL IN (SUBSTRING (cont_of f r_truc, 1 , PATINDEX ( 1 %;%', cont_of f r_truc) -1 ))), 0) ) AS 
VARCHAR) + ' ; 1 + 

CAST ((SELECT SUM(BID_QTY) FROM BID WHERE BID_SI2E=0 AND BID_CONT=CONT_ID AND 
CAST ( (BID_PRCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING (con t_offr_t rue, 1, PATINDEX ( ' %;% ' , cont_of f r_truc) -X) ) AND SHIP_TO_LOCL-@Locl_Id) , 0) - 
ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHI P_FROM_LOCL IN 
(SUBSTRING {cont_offr_truc,l, PATINDEX { '%;%' , cont__of fr_truc) -1) )) ,0) ) AS 

VARCHAR) =CAST ( (Q . BID_PRCE+ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_ 



LOCL IN 

{SUBSTRING ( con t_offr_t rue, 1 , PATINDEX ('%;%', cont_of f r_truc) -1) } AND SHIP_TO_LOCL=@Locl_Id) , 0) - 
ISNULL{ (SELECT SHIP__PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=Q.BIDJTO_LOCL AND SHIP_FROM_LOCL 
(SUBSTRING (cont_offr_truc, 1, PATINDEX { '%;%' ,cont_of f r_truc) -1) ) } ,0) ) AS VARCHAR) ) AS VARCHAR) + ' ; 1 
CAST (BID_BUYR AS VARCHAR) 
FROM BID Q WHERE BID_SIZE=0 AND BID_CONT^CONT_ID ORDER BY EXPRl DESC) 
END, 

cont_of fr_truc, 

cont_bid_rail=CASE ISNULL (cont_of f r_rail, ' -1 1 ) 
WHEN '-l' THEN 
(SELECT TOP 1 vaX=CAST(exprl AS VARCHAR) +'; 1 + 

CAST ( (SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
(BID_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOO>@Locl_Id AND 
SHIP_TO_LOCL=SHIP_FROM_LOCL) , 0) -ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL==@Locl_Id AND SHIP_TO_LOCL=BID_TO_LOCL) , 0) ) =EXPR1) AS VARCHAR) + *;' + 

CAST (BID_BUYR AS VARCHAR) 

FROM (SELECT B I D_CONT , BID_PRCE+ ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP FROM L0CL=@L0Cl Id AND SHIP TO LOCL=SHIP FROM LOCL) , 0 } -ISNULL ( (SELECT SHIP PRCE RAIL FROM 



SHIPPING WHERE SHIP_FROM_LOCL=@Locl_Id AND SHIP_TO_LOCL=BID_TO_L0CL) , 0} AS EXPRl , BID_BUYR FROM BID 
WHERE BID_SIZE=1)Q WHERE BID_CONT=CONT_ID ORDER BY EXPRl DESC) 
ELSE 

(SELECT TOP 1 exprl=CAST( (BID_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN (SUBSTRING (cont_offr_rail, 1, PATINDEX {'%;%', cont_of f r_rail) -1) ) AND 

SHIP_TO_LOCL=@Locl_Id} , 0)-ISNULL{ (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL 
AND SHIP_FROM_LOCL IN (SUBSTRING (cont_of f r_rail, 1, PATINDEX ( f %;%', cont_of f r_rail) -1) )}, 0) ) AS 
VARCHAR) + ' ; ' + 

CAST ( ( SELECT SUM (BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
CAST { (BID_PRCE+ISNULL{ {SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING (cont_of f r_rail, 1, PATINDEX ( ' %; % 1 , cont_of f r_rail ) -1 ) ) AND SHIP_TO_LOCL-@Locl_Id) , 0) - 
ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL IN 
(SUBSTRING (cont_offr_rail, 1, PATINDEX { ' %; % 1 , cont_of fr_rail) -1) ) ) ,0) ) AS 

VARCHAR) =CAST ( {Q.B I D_PRCE+ISNULL ( {SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
{SUBSTRING {cont_of f r_rail, 1, PATINDEX {'%;%', cont_of f r_rail) -1} ) AND SHIP_TO__LOCL=0Locl__Id) , 0) - 

ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=Q.BID_TO_LOCL AND SHIP_FROM_LOCL IN 
(SUBSTRING{cont_offr_rail / l / PATINDEX( , %;% , / cont_offr_rail)-l))),0)) AS VARCHAR)) AS VARCHAR) +'; • + 
CAST (BID_BUYR AS VARCHAR) 

FROM BID Q WHERE BID_SIZE=1 AND BID_CONT=CONT_ID ORDER BY EXPRl DESC) 

END, 
cont_of f r_rail 
FROM 

(SELECT 

cont_id, 

cont_labl, 

cont_ordr, 

cont 



of fr_truc= (SELECT TOP 1 al=CAST {of f r_FROM_locl AS VARCHAR) + T ; ' + 
CAST (expr AS VARCHAR) + ' ; 1 + 

CAST ( (SELECT SUM (OFFR_QTY) FROM OFFER WHERE ( OFFR_PRCE+ I SNULL { (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHI P_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL=@Locl_Id) , 0 ) ) =EXPR AND OFFR_SIZE=0 AND 
OFFR_CONT=CONT_ID) AS VARCHAR) +';' + 
CAST(offr_selr AS VARCHAR) 

FROM (SELECT OFFR_FROM_LOCL , OFFR_SELR, EX PR=OFFR_PRCE+ I SNULL (( SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL-@Locl_Id) ,0) , OFFR_QTY FROM OFFER WHERE 
OFFR_SIZE=0 AND OFFR__CONT=CONT_ID) Q ORDER BY expr ASC> , 

con t_offr_rail= (SELECT TOP 1 al=CAST (of f r_FR0M_locl AS VARCHAR) + \* ' + 
CAST (expr AS VARCHAR) + * ; 1 + 

CAST { ( SELECT SUM (OFFR_QTY) FROM OFFER WHERE { OFFR_PRCE+I SNULL ( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL=@Locl_Id) , 0) ) =EXPR AND OFFR_SIZE=l AND 
OFFR_CONT=CONT_ID) AS VARCHAR) +';* + 
CAST(offr_selr AS VARCHAR) 

FROM (SELECT OFFR_FROM_LOCL, OFFR_SELR, EXPR-OFFR_PRCE+I SNULL ( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL-@Locl_Id) , 0) ,OFFR_QTY FROM OFFER WHERE 
OFFR_SIZE=l AND OFFR_CONT=CONT_ID) Q ORDER BY expr ASC) 

FROM CONTRACT WHERE CONT LABL LI E @Cont t p )Q0 ORDER BY CONT ORDR 



cND 
END 

ELSE IF @User_T pe^'S' 
BEGIN ' 
IF QCont_t p=*Cust' 
BEGIN 
SELECT 
cont_id, 
cont_labl, 
cont__bid_truc, 

cont_of f r_truc=CASE ISNULL (cont_bid_truc, ' -1 ' ) 
WHEN '-1' THEN 
(SELECT TOP 1 al=CAST{exprl AS VARCHAR) + 1 ; ' + 

CAST ( (SELECT SUM (OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID AND (OFFR_PRCE- 
ISNULL ( ( SELECT SHIP__PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=@Locl_Id AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL) , 0) +ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=@Locl__Id AND SHIP_FROM_LOCL-OFFR_FROM_LOCL) , 0 } ) =EXPR1) AS VARCHAR) 4- f ;* + 

CAST (OFFR_SELR AS VARCHAR) 

FROM (SELECT OFFR_CONT, OFFR^PRCE- I SNULL < (SELECT SHIF_PRCEJTRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL-@Locl_ld AND SHI P_FROM_LOCL=SHIP_TO_LOCL) , 0 ) +ISNULL ( (SELECT SHIP_PRCS_TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL=@Locl_Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) , 0) AS EXPRl, OFFR_SELR FROM 
OFFER WHERE OFFR_SIZE=0 ) Q WHERE OFFR_CONT=CONT_ID ORDER BY EXPRl ASC) 
ELSE 

(SELECT TOP 1 exprl=CAST( (OFFR_PRCE-ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL IN (SUBSTRING ( cont_bid_t rue, 1, PATINDEX ('%;%*, cont_bid_truc) -1) ) AND 
SHIP FROM LOCL=@Locl Id) , 0) +ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 



SHIP_FROM_L0CL=0FFR_FROM_L0CL AND SHI P_TO_LOCL IN 

{SUBSTRIKGicont^id^rucl/PATINDEXt^^'^ont^id^rucJ-l) ) ),0)) AS VARCKAR)+'; T + 

CAST ( {SELECT SUM (OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=Q AND OFFR_CONT=CONT_ID AND 
CAST ( (OFFR__PRCE-ISNULL{ (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL IN 

( SUBSTRING (cont_bid_truc, 1 , PAT INDEX ( r % ; % ' , cont_bidJ:ruc } -1 ) ) AND 

SHIP_FROM_LOCL=@Locl_Id) , Q)+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SOBSTRINGfcont^id^truclrPATINDEXt^^'/Cont^bid^trucJ-l) ) ) ,0) ) AS VARCHAR) =CAST { ( Q „ OFFR_PRCE- 
ISNULL{ {SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL IN 
( SUBSTRING ( cont_bid_t ruc,l, PAT INDEX ('%;%', con t_bid_t rue)- 1) ) AND 
SHIP_JFROM_LOCL-@Locl_Id) , 0) +ISNULL { {SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

{ SUBSTRING (cont__bid_truc, 1, PATINDEX ('%;%', cont_bid_truc) -1) ) ) , 0 ) ) AS VARCHAR) ) AS VARCHAR) + 1 ; 1 + 
CAST {OFFR_SELR AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
END, 
cont_bid_rail , 

cont_of f r_rail=CASE ISNULL (cont_bid_rail, ' -1 1 ) 
WHEN THEN 
(SELECT TOP 1 val=CAST(exprl AS VARCHAR) +'; 1 + 

CAST {(SELECT SUM (OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=l AND OFFR_CONT=CONT_ID AND (OFFR_PRCE- 
ISNULL ( {SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=@Locl_Id AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL) , 0) +ISNULH (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=@Locl_Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) , 0) ) =EXPR1 ) AS VARCHAR) +•; 1 + 

CAST (OFFR_SELR AS VARCHAR) 

FROM ( SELECT OFFR_CONT, OFFR__PRCE- ISNULL ( {SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=@Locl_Id AND SHI P_FROM_LOCL=SHI P_TO_LOCL) , 0) +ISNULL ( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL=@Locl_Id AND SHI P_FROM_LOCL=OFFR_FROM_LOCL ) , 0 ) AS EXPRl , OFFR_SELR FROM 
OFFER WHERE OFFR SIZE=1)Q WHERE OFFR CONT= 



CONT_ID ORDER BY EXPR1 ASC) 

ELSE 

(SELECT TOP 1 exprl=CAST { (OFFR_PRCE-ISNULL ( (SELECT SHIP__PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL IN (SUBSTRING (cont_bid_rail, 1, PATINDEX (»%;% 1 , cont_bid_rail) -1) ) AND 
SHIP_FROM_LOCL=@Locl__Id) , 0) +ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

( SUBSTRING ( con t_bid_rail, 1, PATINDEX ( * % ; % ' , cont_bid_rail) -1) ) } ,0) ) AS VARCHAR) + 1 ; ' + 

CAST ( (SELECT SUM (OFFRJ2TY) FROM OFFER WHERE OFFR_SIZE=l AND OFFR_CONT=CONT_ID AND 
CAST { (OFFR_PRCE-ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUBSTRING (cont_bid_r ail, 1, PATINDEX ('%;%', cont_bid_rail ) -1 } } AND 
SHIP_FROM_LOCL-@Locl_Id) , 0) +ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

( SUBSTRI NG ( cont_bid_rail , 1 , PATINDEX (•%;%', cont_bid_rail ) - 1 } ) ) , 0 ) ) AS VARCHAR) =CAST ( ( Q . OFFR_PRCE- 
ISNULL ( ( SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUBSTRING ( cont_bid_rail, 1 , PATINDEX ('%;%*, cont_bid_rail) -1 ) ) AND 
SHIP_FROM_LOCL=@Locl_Id),0)+ISNULL({ SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=*Q.OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid_rail,l,PATINDEX{ , %;% t / cont_bid_rail)-l))),0)) AS VARCHAR)} AS VARCHAR) +';' + 
CAST {OFFR_SELR AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SIZE-l AND OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
END 
FROM 
(SELECT 
cont_id, 
cont_labl, 
cont 



ordr, 

cont_bid_truc= (SELECT TOP 1 val=CAST (bid_to_locl AS VARCHAR) + ' ; ' + 
CAST { expr AS VARCHAR) + 1 ; 1 + 

CAST { (SELECT SUM (BID_QTY) FROM BID WHERE ( BID_PRCE- I SNULL (( SELECT SHIP_PRCE_TRUC FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=@Locl_Id) , 0 ) ) =EXPR AND BID_SIZE=0 AND 
BID_CONT=CONT_ID) AS VARCHAR) + 

CAST(bid_buyr AS VARCHAR) 

FROM (SELECT BID_TO_LOCL, BID_BUYR, EXPR=BID_PRCE-I SNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=@Locl_Id) , 0) , BID_QTY FROM BID WHERE BID_SIZE=0 AND 
BID_CONT=CONT_ID)Q ORDER BY expr DESC) , 

cont_bid_rail= (SELECT TOP 1 val=CAST (bid_to_locl AS VARCHAR) + 1 ; ' + 

CAST (expr AS VARCHAR) + 1 ; * + 

CAST ( (SELECT SUM (BID_QTY) FROM BID WHERE ( BID_PRCE- I SNULL (( SELECT SHIP_PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=@Locl_Id) , 0) ) =EXPR AND BID_SIZE=1 AND 
BID_CONT=CONT_ID) AS VARCHAR) + 1 ; ' + 
CAST (bid_buyr AS VARCHAR) 



FROM (SELECT BID_TO_LOCL, BID_BUYR, EXPR=BID_PRCE-ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM__LOCL=@Locl_Id) , 0) , BID_QTY FROM BID WHERE BID_SIZE=1 AND 
BID_CONT=CONT_ID}Q ORDER BY expr DESC) 

FROM CONTRACT WHERE POWER (2, CONT_ID-l) & (SELECT PERS_PREF FROM PERSON WHERE 
PERS_ID=@User_Id)O0)Q0 ORDER BY CONTJDRDR 
END 

ELSE — @Cont_typ<> 1 Cust ' 
BEGIN 

SELECT 

cont_id, 

cont_labl, 

cont_bid_truc, 

cont_of fr_truc=CASE ISNULL (cont_bid_truc, '-1' ) 
WHEN '-l* THEN 
(SELECT TOP 1 val=CAST(exprl AS VARCHAR) 1 + 

CAST {(SELECT SQM (OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID AND (OFFR_PRCE- 
ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=@Locl_Id AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL) , 0) +ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=@Locl_Id AND SHIP_FROM__LOCL=OFFR_FROM_LOCL) , 0 ) ) =EXPR1 ) AS VARCHAR) +*;• + 

CAST (OFFR_SELR AS VARCHAR) 

FROM (SELECT OFFR_CONT, OFFR_PRCE- I SNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL-@Locl_Id AND SHIP_FROM__LOCL-SHIP_TO_LOCL) , 0) +ISNULL ( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL-@Locl_Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) , 0) AS EXPRl , OFFR_SELR FROM 
OFFER WHERE OFFR_SI2E=0 ) Q WHERE OFFR_CONT=CONT_I D ORDER BY EXPRl ASC) 
ELSE 

(SELECT TOP 1 exprl=CAST( (OFFR_PRCE-ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIPJTO_LOCL IN (SUBSTRING (cont_bid_truc, 1, PATINDEX ( 1 %; % 1 , cont_bid_truc) -1) ) AND 
SHIP_FROM__LOCL=QLocl__Id) , 0) +ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

( SUBSTRING (cont bidtruc, 1, PATINDEX ('%;%', cont_bid_truc) -1) ) ) , 0) ) AS VARCHAR) +* 



■ ; » + 

CAST ( (SELECT SUM (OFFR_QTY) FROM OFFER WHERE OFFRJSIZE=0 AND OFFR_CONT=CONT_ID AND 
CAST { (OFFR_PRCE-ISNULL ( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUBSTRING (cont_bid_t rue, 1, PAT INDEX ('%;%', cont_bid_truc) -1 ) ) AND 
SHIP_FROM_LOCL=8Locl_Id) , 0) +ISNULL ( {SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL*=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING (cont_bid_truc, 1 , PATINDEX {'%;%', cont_bid_truc) -1 ) ) ) ,0) ) AS VARCHAR) =CAST ( (Q . QFFR_PRCE- 
ISNULL( (SELECT SHI P_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL IN 
( SUBSTRING (cont_bid_t rue, 1, PATINDEX {'%;%', cont_bid_truc) -1) ) AND 
SHIP_FROM__LOCL=@Locl_Id) ,0)+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR_FROM_LOCL AND SHIPJTO_LOCL IN 

(SUBSTRING (cont_bid_truc,l, PATINDEX ('%;%', contJbid_truc) -1) ) ),G)) AS VARCHAR}) AS VARCHAR) +*;' + 
CAST (OFFR_SELR AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
END, 
cont_bid_raiX, 

cont_of f r_rail=CASE ISNULL (cont_bid_rail, 1 -1 1 ) 
WHEN .'-l 1 THEN 
(SELECT TOP 1 val=CAST(exprl AS VARCHAR) + 1 ; l + 

CAST ( (SELECT SUM ( OFFR_QTY ) FROM OFFER WHERE OFFR_SIZE=l AND OFFR_CONT=CONT_ID AND <OFFR_PRCE- 
ISNULL( (SELECT SHIP_PRC C ' 



^_RAIL FROM SHIPPING WHERE SHIPJTO_LOCL=@Locl_Id AND 
SHIP_FROMJ J OCL=SHIPJTO_LOCL) ,0)+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=@Locl_Id AND SHIP_FROM_LOCL-OFFR_FROM_LOCL) , 0) ) =EXPR1) AS VARCHAR) + 1 ; ' + 
CAST (OFFR_SELR AS VARCHAR) 

FROM (SELECT OFFR_CONT, OFFR_PRCE- I SNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=@Locl_Id AND SHI P_FROM_LOCL=SHI P_TO_LOCL >, 0} +ISN0LL { (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL-@Locl_Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) , 0} AS EXPR1 , OFFR_SELR FROM 
OFFER WHERE OFFR_SIZE=l ) Q WHERE OFFR_CONT=CONT_ID ORDER BY EXPRl ASC) 
ELSE 

(SELECT TOP 1 exprl=CAST( (OFFR_PRCE-ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL IN (SUBSTRING (cont_bid_r ail, 1 , PAT INDEX ( 1 % ; % ' , cont_bid_rail) -1) ) AND 
SHIP_FROM_LOCL=@Locl_Id) ,0)+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING (coritjoid_r ail, 1, PAT INDEX ( '%;% Scon t_bid_rail) -1) ) ) ,0) } AS VARCHAR) + 1 ; T + 

CAST { (SELECT SUM (OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=l AND OFFR_CONT=CONT_ID AND 
CAST ( (OFFR_PRCE-ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL IN 
{SUBSTRING (cont_bid_rail, 1, PATINDEX { 1 % ; % 1 , cont_bid_rail) -1} ) AND 
SHIP_FROM_LOCL=@Locl_Id) , 0) +ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 
(SUBSTRING (cont_bxd_r ail, 1, PATINDEX ( 1 %; % 1 , cont_b 



id_rail)-l))),0)) AS VARCHAR) =CAST ( (Q. OFFR_PRCE- 
ISNULL{ (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUBSTRING (con t_bid_rail, 1, PATINDEX ( ' %; % 1 , cont_bid_rail) -1) ) AND 



SHIP_FROM_LOCL=@Locl_Id) , 0} + I SNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRINGtcontJoid^rail/l^PATINDEXt^^^cont^id^aiD-l) ) >,0) ) AS VARCHAR) ) AS VARCHAR) + ' ; ' + 
CAST (OFFR_SELR AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SIZE=l AND OFFR_CONT=CONT_ID ORDER BY EXPRl ASC) 
END 
FROM 
{SELECT 
cont_id, 
cont_labl, 
cont_ordr, 

con t_bid_truc= {SELECT TOP 1 val=*CAST (bid_to_locl AS VARCHAR) +';' + 
CAST (expr AS VARCHAR) + 1 ; ' + 

CAST ( ( SELECT SUM (BID_QTY) FROM BID WHERE (BID_PRCE-ISNULL { (SELECT SHIP_PRCE_TRUC FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=@Locl_Id) , 0 } } =EXPR AND BID_SIZE=0 AND 
BID_CONT=CONT_ID) AS VARCHAR) + 1 ;* + 

CAST{bid_buyr AS VARCHAR) 

FROM {SELECT BID_TO_LOCL, BID_BUYR, EXPR=BID_PRCE- I SNULL {( SELECT SHIP_PRCE_TRUC FROM SHIPPING 
WHERE SHIP_TO_LOCL=BIDJTO_LOCL AND SHIP_FROM_LOCL=@Locl_Id) , 0 ) , BID_QTY FROM BID WHERE BID_SIZE=0 AND 
BID_CONT=CONT_ID)Q ORDER BY expr DESC) , 

cont_bid_rail~ (SELECT TOP 1 val=CAST (bid_to_locl AS VARCHAR) + 1 ;' + 

CAST ( expr AS VARCHAR) + ' ; * + 

CAST( (SELECT SUM (BID_QTY) FROM BID WHERE ( BID_PRCE- I SNULL {{ SELECT SHIP_PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL-BID_TO_LOCL AND SHIP_FROM_LOCL=@Locl_Id> , 0} ) =EXPR AND BID_SIZE=1 AND 
BID CONT=CONT_ID) AS VARCHAR) + 1 ; 1 + 



CAST (bid_buyr AS VARCHAR) 

FROM (SELECT BID_TO_LOCL, BID_BUYR, EXPR=BID_PRCE-ISNULL ( (SELECT SHIP_PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=@Locl__Id) , 0} ,BID_QTY FROM BID WHERE BID_SIZE=1 AND 
BID_CONT=CONT_ID)Q ORDER BY expr DESC) 

FROM CONTRACT WHERE CONT_LABL LIKE @Cont_typ )Q0 ORDER BY CONT_ORDR 
END 
END 

RETURN 1 



GO 

SET QUOTE D_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

GRANT EXECUTE ON [dbo] . [spTradingFloor] TO [Internet] 
GO 



ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK_OFFER_REF_1295_BRAND 
GO 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK_ORDERS_REF_1115_BRAND 
GO 

ALTER TABLE [dbo] . [ASSOCIATE] DROP CONSTRAINT FK_ASSOCIAT_REF_1481_COMPANY 
GO 

ALTER TABLE [dbo] - [ASSOCIATE] DROP CONSTRAINT FK_ASSOCIAT_REF_6029_COMPANY 
GO 

ALTER TABLE [dbo] . [BANK] DROP CONSTRAINT FK_BANK__REF_1485 ^COMPANY 
GO 

ALTER TABLE [dbo] . [BANK] DROP CONSTRAINT FK_BANK_REF_6025_COMPANY 
GO 

ALTER TABLE [dbo] . [BRAND] DROP CONSTRAINT FK_BRAND_REF_1343_COMPANY 
GO 

ALTER TABLE [dbo] . [CREDIT] DROP CONSTRAINT FK_CREDIT__REF_6055_COMPANY 
GO 

ALTER TABLE [dbo] . [EXTRUST] DROP CONSTRAINT FK_TRUST_REF_6049_COMPANY 
GO 

ALTER TABLE [dbo] . [PERSON] DROP CONSTRAINT FK_PERSON_REF_1244 ^COMPANY 
GO 

ALTER TABLE [dbo] . [PLACE] DROP CONSTRAINT FKJ>LACE_REF_1250_COMPANY 
GO ■ 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK_B I D_REF_12 8 ^CONTRACT 
GO 

ALTER TABLE [dbo] . [BRAND] DROP CONSTRAINT FK_BRAND_REF_1301_CONTRACT 
GO 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK_ORDERS_REF_1608_CONTRACT 
GO 

ALTER TABLE [dbo] .[ STATE] DROP CONSTRAINT FK_STATE_REF_2764_COUNTRY 
GO 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK_BID_REF_5232_LOCALITY 
GO 

ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK_OFFER_REF_5228_LOCALITY 
GO 

ALTER TABLE [dbo] . [PLACE] DROP CONSTRAINT FK_PLACE_REF_5241_LOCALITY 
GO 

ALTER TABLE [dbo] . [PLACE] DROP CONSTRAINT FK_PLACE_REF_5245_LOCALITY 
GO 

ALTER TABLE [dbo] . [SHIPPING] DROP CONSTRAINT FK_SHIPPING_REF_6037_LOCALITY 
GO 

ALTER TABLE [dbo] . [SHIPPING] DROP CONSTRAINT FK_SHIPPING_REF_6041_LOCALITY 
GO 

ALTER TABLE [dbo] . [PAYMENT] DROP CONSTRAINT FK_PAYMENT_REF_8550_ORDERS 
GO 

ALTER TABLE [dbo] . [SHIP] DROP CONSTRAINT FK_SHIP_REF_7384_ORDERS 
GO 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK_BID_REF_1277 JPERSON 
GO 



ALTER TABLE [dbo] . [CUSTOM] DROP CONSTRAINT FK__CUSTOM_REF_1498_PERSON 
GO 

ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK_OFFER_REF_1281_PERSON 
GO 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK_ORDERS_REF_324_PERSON 
GO 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK_ORDERS_REF_67_PERSON 
GO 

ALTER TABLE [dbo] . [BID] DROP CONSTRAINT FK__BID_REF_1317_PLACE 
GO 

ALTER TABLE [dbo] . [OFFER] DROP CONSTRAINT FK_OFFER_REF__1321_PLACE 
GO 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK_ORDERS_REF_1331_PLACE 
GO 

ALTER TABLE [dbo] . [ORDERS] DROP CONSTRAINT FK_ORDERS_REF_1335_PLACE 
GO 

if exists (select * from sysobjects where id - object_id {N 1 [dbo] . [spCManagement] ' ) and 
OBJECTPROPERTY (id, N T IsProcedure ' ) = 1) 
drop procedure [dbo] . [spCManagement] 
GO 

if exists {select * from sysobjects where id = object_id (N 1 [dbo] . [spCPPayment] ' } and 
OBJECTPROPERTY {id, N 1 IsProcedure 1 ) = 1} 
drop procedure [dbo] . [spCPPayment] 
GO 

if exists {select * from sysobjects where id = object_id {N 1 [dbo] . [spCSPayment] 1 ) and 
OBJECTPROPERTY (id, N' IsProcedure ' ) = 1) 
drop procedure [dbo] . [spCSPayment] 
GO 



if exists (select * from s 



ysobjects where id = object_id{N f [dbo] . [spGBrand] ' ) and OBJECT PROPERTY {id, 

N'lsProcedure 1 ) - 1} 

drop procedure [dbo] . [spGBrand] 

GO 



if exists {select * from sysobjects where id = object__id {N * [dbo] . [spGContract] ' } and 
OBJECTPROPERTY ( id, N'lsProcedure') = 1} 
drop procedure [dbo] . [spGContract] 
GO 



if exists (select * from sysobjects where id 
OBJECTPROPERTY { id, N ' IsProcedure ' ) = 1} 
drop procedure [dbo] . [spGCountry] 
GO 

if exists {select * from sysobjects where id 

N'lsProcedure') - 1) 

drop procedure [dbo] . [spGFO] 

GO 



object_id(N' [dbo] . [spGCountry] 1 ) and 



object__id(N' [dbo] . [spGFO] ' ) and OBJECTPROPERTY (id, 



if exists {select * from sysobjects where id = object_id{N T [dbo] . [spGPlace] ' ) and OBJECTPROPERTY {id, 

N 1 IsProcedure ' ) - 1) 

drop procedure [dbo] . [spGPlace] 

GO 



if exists (select * from sysobjects where id = object_id(N T [dbo] . [spGSM] 1 ) and OBJECTPROPERTY (id, 

N'lsProcedure') = 1) 

drop procedure [dbo] . [spGSM] 

GO 



if exists (select * from sysobjects where id = obj ect_id (N ' [dbo] . [ spGState] ' ) and OBJECTPROPERTY {id, 

N 1 IsProcedure 1 ) - 1) 

drop procedure [dbo] . [spGState] 

GO 

if exists (select * from sysobjects where id ~ object_id(N' [dbo] . [spGSysMessage] ') and 
OBJECTPROPERTY { id, N 1 IsProcedure * ) = 1) 
drop procedure [dbo] . [spGSysMessage] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [spGTempBrand] 1 ) and 
OBJECTPROPERTY (id, N 1 IsProcedure ' ) = 1) 
drop procedure [dbo] . [spGTempBrand] 
GO 

if exists (select * from sysobjects where id = objected <N' [dbo] . [spGTFl] ' ) and OBJECTPROPERTY (id, 

N' IsProcedure' ) = 1) 

drop procedure [dbo] . [spGTFl] 

GO 

if exists (select * from sysobjects where id = object_id (N 1 [dbo] . [spGTF2 ] 1 ) and OBJECTPROPERTY (id, 

N ' IsProcedure ' ) = 1) 

drop procedure [dbo] . [spGTF2] 

GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [spGTradingFloor] 1 } and 
OBJECTPROPERTY (id, N 1 IsProcedure • ) = 1) 
drop procedure [dbo] . [spGTradingFloor] 
GO 

if exists (select * from sysobjects where id = object_id (W [dbo] . [spGWOl] ' ) and OBJECTPROPERTY (id, 

N ' IsProcedure 1 } = 1} 

drop procedure [dbo] . [ spGWOl] 

GO 

if exists (select * from sysobjects where id = ob j ect_id (N 1 [dbo] . [ spLive Prices ] ' ) and 
OBJECTPROPERTY (id, N 1 IsProcedure 1 ) = 1) 
drop procedure [dbo] . [spLivePrices] 
GO 

if exists (select * from sysobjects where id - object_id(N' [dbo] . [spMail] 1 } and OBJECTPROPERTY (id, 

N 1 IsProcedure 1 ) = 1} 

drop procedure [dbo] . [spMail] 

GO 



if exists (select * from sysobjects where id = object_id (N ' [dbo] . [spNews] 1 } and OBJECTPROPERTY (id, 
N ' IsProcedure ' } 



= 1) 

drop procedure [dbo] . [spNews] 
GO 



if exists {select * from sysobjects where id = object_id (N 1 [dbo] . [spOAddLoc] 1 ) and 
OBJECTPROPERTY (id, N ' IsProcedure T ) = 1) 
drop procedure [dbo] . [spOAddLoc] 
GO 



if exists (select * from sysobjects where id = object_id(N' [dbo] . [spOAddLocTemp] 1 ) and 
OBJECTPROPERTY (id, N 1 IsProcedure 1 ) = 1) 
drop procedure [dbo] . [spOAddLocTemp] 
GO 



if exists (select * from sysobjects where id « object__id (N 1 [dbo] . [spOEFilters] 1 ) and 
OBJECTPROPERTY (id, N ' IsProcedure 1 ) = 1) 
drop procedure [dbo] . [spOEFilters] 
GO 



if exists (select * from sysobjects where id = object_id (N* [dbo] . [spOSM] ' ) and OBJECTPROPERTY (id, 

N' IsProcedure ' ) - 1) 

drop procedure [dbo] . [spOSM] 

GO 



if exists {select * from sysobjects where id = object_id (N ■ [dbo] . [ spOUsers ] 1 ) and OBJECTPROPERTY {id, 

N ' IsProcedure 1 ) = 1) 

drop procedure [dbo] . [spOUsers] 

GO 

if exists (select * from sysobjects where id = object_id{N f [dbo] . [spP] » ) and OBJECTPROPERTY (id, 

N ' IsProcedure 1 ) = 1} 

drop procedure [dbo] . [spP] 

GO 

if exists {select * from sysobjects where id = object_id{rr [dbo] . [spPBM] 1 } and OBJECTPROPERTY (id, 

N 1 IsProcedure ' ) = 1) 

drop procedure [dbo] . [spPBM] 

GO 

if exists (select * from sysobjects where id =* object_id(N* [dbo] . [spPBMl] ') and OBJECTPROPERTY {id, 

N' IsProcedure ' ) - 1) 

drop procedure [dbo] . [spPBMl] 

GO 

if exists (select * from sysobjects where id = object_id(N* [dbo] . [spPBO_BP0] ' ) and 
OBJECTPROPERTY (id, N ' IsProcedure 1 ) = 1) 
drop procedure [dbo] . [spPBO_BP0] 
GO 

if exists (select * from sysobjects where id = object_id (N f [dbo] . [ spPBO_BPl] ' ) and 
OBJECT PROPERTY { id , N' IsProcedure 1 } - 1) 
drop procedure [dbo] . [spPBO_BPl] 
GO 

if exists {select * from sysobjects where id = object_id{N f [dbo] . [spPB0_BP2] * ) and 
OBJECTPROPERTY (id, N ' IsProcedure 1 ) = 1) 
drop procedure [dbo] . [spPB0_BP2] 
GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [ spPB0_BP3] ' ) and 
OBJECTPROPERTY (id, N ' IsProcedure * ) = 1) 
drop procedure [dbo] . [spPBO_BP3] 
GO 

if exists (select * from sysobjects where id - object_id(N' [dbo] . [spPBO_Of fr] ' ) and 
OBJECTPROPERTY {id, N * IsProcedure ' ) = 1) 
drop procedure [dbo] . [spPBO_Offr] 
GO 

if exists (select * from sysobjects where id = object_id{N' [dbo] . [spPBO_Of frR] * ) and 
OBJECTPROPERTY {id, N 1 IsProcedure ' ) = 1) 
drop procedure [dbo] . [spPBO__Of f rR] 
GO 

if exists (select * from sysobjects where id = object_id(N 1 [dbo] . [spPBO_Of f rT] ' ) and 
OBJECTPROPERTY (id, N ' IsProcedure ? ) = 1) 
drop procedure [dbo] . [spPBO_Of f rT] 
GO 



if exists {select * from sysobjects where id = object_id (N 1 [dbo] . [spPE ]') and OBJECTPROPERTY (id, 

N' IsProcedure ' ) = 1) 

drop procedure [dbo] . [spPE ] 

GO 

if exists (select * from sysobjects where id = object__id{N' [dbo] . [spPE l] f ) and OBJECTPROPERTY {id, 

N' isProcedure * ) = 1) 

drop procedure [dbo] . [spPE 1] 

GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [spP 0] ' ) and OBJECTPROPERTY ( id, 

N* IsProcedure ' ) = 1) 

drop procedure [dbo] . [spP O] 

GO 



if exists (select * from sysobjects where id = object_id (W [dbo] . [spPFOBis] * ) and OBJECTPROPERTY (id, 

N ' IsProcedure 1 ) - 1) 

drop procedure [dbo] . [spPFOBis] 

GO 

if exists (select * from sysobjects where id = object__id (N 1 [dbo] . [spPFOCal] ' } and OBJECTPROPERTY {id, 

N' IsProcedure 1 } = 1) 

drop procedure [dbo] . [spPFOCal] 

GO 

if exists (select * from sysobjects where id = ob j ect_id ( N ' [ dbo 3 . [ spPT ] 1 ) and OBJECTPROPERTY {id, 

N' IsProcedure M = 1) 

drop procedure [dbo] . [spPT] 

GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [spPTl] ' ) and OBJECTPROPERTY (id, 

N f IsProcedure ' ) = 1) 

drop procedure [dbo] . [spPTl] 

GO 

if exists {select * from sysobjects where id = object_id(N* [dbo] . [spPTransactionEngine] 1 ) and 
OBJECTPROPERTY (id, N * IsProcedure 1 ) = 1) 
drop procedure [dbo] . [spPTransactionEngine] 
GO 

if exists (select * from sysobjects where id = object_id{N' [dbo] . [spPWO] ' ) and OBJECTPROPERTY (id, 

N ' IsProcedure 1 ) - 1) 

drop procedure [dbo] . [spPWO] 

GO 

if exists (select * from sysobjects where id = object_id(N* [dbo] . [spSEFl] ' ) and OBJECTPROPERTY (id, 

N' IsProcedure 1 ) = 1) 

drop procedure [dbo] . [spSEFl] 

GO 

if exists (select * from sysobjects where id = object_id (N 1 [dbo] . [spSFOBis] T ) and OBJECTPROPERTY (id, 

N* IsProcedure * ) =1) 

drop procedure [dbo] . [spSFOBis] 

GO 

if exists (select * from sysobjects where id - object_id (N ' [dbo] . [ spShortNews] 1 ) and 
OBJECTPROPERTY (id, N * IsProcedure ' ) = 1) 
drop procedure [dbo] . [spShortNews] 
GO 

if exists (select * from sysobjects where id = object_id{N' [dbo] . [spSSO_Off rT] ' ) and 
OBJECTPROPERTY (id, N ' IsProcedure ' ) = 1) 
drop procedure [dbo] . [spSSO_OffrT] 
GO 

if exists (select * from sysobjects where id - obj ect_id (N ' [dbo] . [ spSSOl] ' ) and OBJECTPROP 



N 1 IsProcedure' ) = 1} 

drop procedure [dbo] . [spSSOl] 

GO - 

if exists (select * from sysobjects where id 

N ' IsProcedure ' ) = 1) 

drop procedure [dbo] . [spSS02] 

GO 

if exists (select * from sysobjects where id 
OB JECTPROPERTY ( id, N ' IsProcedure 1 } = 1) 
drop procedure [dbo] . [spSTransactionEngine] 
GO 

if exists (select * from sysobjects where id 

N 1 IsProcedure 1 ) = 1) 

drop procedure [dbo] . [spSWO] 

GO 



ERTY ( id 



object_id{N' [dbo] . [spSS02] 1 ) and OB JECTPROPERTY (id 



object_id(N r [dbo] . [spSTransactionEngine] f ) and 



object_id(N' [dbo] . [spSWO] ' ) and OB JECTPROPERTY (id, 



if exists (select * from sysobjects where id = object_id(N' [dbo] . [spTradingFloor] 1 ) and 
OBJECTPROPERTY (id, N' IsProcedure ' ) - 1) 
drop procedure [dbo] . [spTradingFloor] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [ASSOCIATE] 1 ) and 
OBJECTPROPERTY (id, N r IsUserTable ' ) = 1) 
drop table [dbo] . [ASSOCIATE] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [BANK] ' ) and OBJECTPROPERTY (id, 
N' IsUserTable ') - 1) 
drop table [dbo] . [BANK] 
GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [BID] ' ) and OBJECTPROPERTY (id, 
N ' IsUserTable ' ) = 1) 
drop table [dbol . [BID] 
GO 

if exists (select * from sysobjects where id = object_id(N r [dbo] . [BRAND] ' ) and OBJECTPROPERTY (id, 
N ' IsUserTable * ) = 1) 
drop table [dbo] . [BRAND] 
GO 

if exists (select * from sysobjects where id = object_id(N r [dbo] . [COMPANY] ' ) and OBJECTPROPERTY (id, 

N' IsUserTable M = 1) 

drop table [dbo] . [COMPANY] 

GO 

if exists (select * from sysobjects where id = object_id (N f [dbo] . [CONTRACT] ■ ) and OBJECTPROPERTY (id, 

N 1 IsUserTable 1 ) = 1) 

drop table [dbo] . [CONTRACT] 

GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [COUNTRY] 1 ) and OBJECTPROPERTY (id, 

N' IsUserTable ' ) = 1) 

drop table [dbo] . [COUNTRY] 

GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [CREDIT] 1 ) and OBJECT 



PROPERTY (id, 

N'lsUserTable' ) = 1) 
drop table [dbo] . [CREDIT] 
GO 

if exists (select * from sysobjects where id = objected (N ' [dbo] . [CUSTOM] ? ) and OBJECTPROPERTY {id, 
N'lsUserTable') - 1) 
drop table [dbo] . [CUSTOM] 
GO 

if exists (select * from sysobjects where id = object_id (N 1 [dbo] . [DEBIT] * ) and OBJECT PROPERTY (id, 
N'lsUserTable') = 1) 
drop table [dbo] . [DEBIT] 
GO 

if exists (select * from sysobjects where id = object_id (N 1 [dbo] . [EXPOSURE] 1 } and OBJECTPROPERTY (id, 

N'lsUserTable') = 1) 

drop table [dbo] . [EXPOSURE] 

GO 

if exists (select * from sysobjects where id = object_id (N ' [dbo] . [EXTRUST] ' ) and OBJECTPROPERTY (id, 

N'lsUserTable') = 1) 

drop table [dbo] . [EXTRUST] 

GO 

if exists (select * from sysobjects where id = object_id (K 1 [dbo] . [LOCALITY] • ) and OBJECTPROPERTY {id, 

N'lsUserTable') = 1) 

drop table [dbo] . [LOCALITY] 

GO 



if exists (select * from sysobjects where id - object_id (N ' [dbo] . [MESSAGE] ' ) and OB JECTPROPERTY ( id, 

N 1 IsUserTable ' ) = 1} 

drop table [dbo] . [MESSAGE] 

GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [NEWS] 1 ) and OB JECTPROPERTY (id, 
N 1 IsUserTable ' ) = 1} 
drop table [dbo] . [NEWS] 
GO 

if exists (select * from sysobjects where id - object_id{N' [dbo] . [OFFER] 1 ) and OB JECTPROPERTY (id, 
N f IsUserTable'} = 1) 
drop table [dbo] . [OFFER] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [ORDERS] ' ) and OBJECT PROPERTY (id, 
N ' IsUserTable* ) = 1) 
drop table [dbo] . [ORDERS] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] , [PARAMETER] 1 ) and 
OB JECTPROPERTY (id, N 1 IsUserTable ' ) = 1) 
drop table [dbo] . [PARAMETER] 
GO 

if exists (select * from sysobjects where id = object_id(N f [dbo] . [PAYMENT] 1 ) and OB JECTPROPERTY ( id, 

N 'IsUserTable 1 ) = 1) 

drop table [dbo] . [PAYMENT] 

GO 

if exists (select * from sysobjects where id = object_id(N r [dbo] . [PERSON] ' ) and OB JECTPROPERTY (id, 
N' IsUserTable') = 1) 
drop table [dbo] . [PERSON] 
GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [PLACE] ' ) and OB JECTPROPERTY (id, 
N ' IsUserTable ' ) = 1) 
drop table [dbo] . [PLACE] 
GO 

if exists (select * from sysobjects where id = object_id (N* [dbo] . [SHIP] ' ) and OB JECTPROPERTY (id, 
N 1 IsUserTable ' ) - 1} 
drop table [dbo 



GO 



] . [SHIP] 



if exists (select * from sysobjects where id = object_id (N 1 [dbo] . [SHIPPING] M and OBJECTPROPERTY (id, 

N f IsUserTable' ) = 1) 

drop table [dbo] . [SHIPPING] 

GO 

if exists (select * from sysobjects where id = object_id(N' [dbo] . [STATE] M and OBJECT PROPERTY (id, 
N' IsUserTable' ) = 1) 
drop table [dbo] . [STATE] 
GO 

if exists (select * from sysobjects where id = object_id (N* [dbo] . [TEMP_ASSOCIATE] ' ) and 
OBJECT PROPERTY {id, N 1 IsUserTable 1 ) * 1) 
drop table [dbo] . [TEMP_ASSOCIATE] 
GO 

if exists (select * from sysobjects where id = object_id (N * [dbo] . [TEMP_BANK] * ) and 
OBJECTPROPERTY (id, N ' IsUserTable r } - 1) 
drop table [dbo] . [TEMP_BANK] 
GO 

if exists (select * from sysobjects where id - object_id (N ? [dbo] . [TEMP_BRAND] ' ) and 
OBJECTPROPERTY (id, N » IsUserTable ' ) = 1) 
drop table [dbo] . [TEMP_BRAND] 
GO 



if exists (select * from sysobjects where id 
OBJECTPROPERTY (id, N ' IsUserTable ' ) = 1} 
drop table [dbo] , [TEMP_COMPANY] 
GO 

if exists {select * from sysobjects where id 
OBJECTPROPERTY (id, N ' IsUserTable f ) = 1) 
drop table [dbo] . [TEMP_DEBIT] 
GO 

if exists (select * from sysobjects where id 
OBJECTPROPERTY (id, N 1 IsUserTable ' ) = 1) 
drop table [dbo] . [TEMPJEXPOSURE] 
GO 

if exists {select * from sysobjects where id 
OBJECTPROPERTY (id, N 1 IsUserTable ' ) = 1) 
drop table [dbo] . [TEMP_PERSON] 
GO 

if exists (select * from sysobjects where id 
OBJECTPROPERTY (id, N 1 IsUserTable 1 ) = 1) 
drop table [dbo] . [TEMP_PLACE] 
GO 

if exists (select * from sysobjects where id 
OBJECTPROPERTY (id, N ' IsUserTable ' ) = 1) 
drop table [dbo] . [TMP_J?LACE] 
GO 

if exists (select * from sysobjects where id 
N ' IsUserTable ' ) = 1) 
drop table [dbo] . [TRUST] 
GO 

if exists (select * from sysobjects where id 

K ' IsUserTable * ) - 1) 

drop table [dbo] . [VALIDITY] 

GO 



object_id(N' [dbo] . [TEMP_COMPANY] 1 ) and 



ob3ect_id(N t [dbo] . [TEMP_DEBIT] ' ) and 



object_id (N ' [dbo] . [TEMP_EXPOSURE] 1 ) and 



object_id(N* [dbo] . [TEMP_PERSON] ' ) and 



object_id(N' [dbo] . [TEMP_PLACE] ' ) and 



object_id(N* [dbo] . [TMP_PLACE] » ) and 



object_id(N' [dbo] . [TRUST] 1 ) and OBJECTPROPERTY (id, 



object_id(N* [dbo] . [VALIDITY] * ) and OBJECTPROPERTY (id, 



if not exists (select * from sysusers where name = N ' Internet 1 and uid < 16 



EXEC sp_grantdbaccess N 1 Internet • , N' Internet' 

GO 



382) 



CREATE TABLE [dbo] . [ASSOCIATE] ( 

[ASSO_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL , 

[ASSO_COMP] [numeric] {18, 0) NULL , 

[ASSO_NAME] [varchar] (40) NULL , 

[ASSO_ACNT_NB] [varchar] (15) NULL , 

[ASSO_PERS] [varchar] (20) NULL , 

[ASSO_PHON] [varchar] (20) NULL 

) 

GO 



CREATE TABLE [dbo] . [BANK] { 

[BANK_COMP] [numeric] (18, 0) NOT NULL , 
[BANK_NAME] [varchar] (50) NULL , 
[BANK_PERS] [varchar] (20) NULL , 
[BANEC_ACNT_NB] [varchar] (15) NULL , 
[BANK_ADDRJ0NE] [varchar] (50) NULL , 
[ BANK_ADDR_TWO] [varchar] (50) NULL , 
[BANK_CITY] [varchar] (20) NULL f 
[BANK_ZIP] [varchar] (10) NULL , 
[BANK_STAT] [char] (2) NULL , 
[BANK_CTRY] [char] (2) NULL , 
[BANK_PHON] [varchar] (20) NULL , 
[BANK_FAX] [varchar] (20) NULL 

) 

GO 



CREATE TABLE [dbo] . [BID] ( 



[BID_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL , 

[BID_BUYR] [numeric] (18, 0} NOT NULL , 

[BID_CONT] [numeric] (18, 0) NOT NULL , 

[BIDJTO] [numeric] (18, 0) NOT NULL , 

[BID_TO_L0CL] [numeric] (18, 0} NULL , 

[BID_DATE] [datetime] NOT NULL , 

[BID_QTY] [int] NOT NULL , 

[BID^PRCE] [decimal] (4, 3) NOT NULL , 

[BID_SIZE] [bit] NOT NULL , 

[BID_BUYR_COMP] [numeric] (18, 0) NULL 

) 

GO 



CREATE TABLE [dbo] . [BRAND] ( 

[BRAN_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 
[BRAN_CONT] [numeric] ( 18, 0) NULL , 
[BRAN_COMP] [numeric] (18, 0) NULL , 
[BRAN_NAME] [varchar] (60) NULL , 
[BRAN_ENBL] [bit] NULL 

) 

GO 



CREATE TABLE [dbo] . [COMPANY] ( 

[COMP_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

[COMPJTYPE] [char] (1) NULL , 

[COMP_NAME] [varchar] (40) NULL , 

[COMPJJRL] [varchar] (50) NULL , 

[COMP_REG] [bit] NULL , 

[COMP_DATE] [datetime] NULL , 

[COMP_FED_TAX] [varchar] (15) NULL , 

[ COMPOST ATJTAX] [varchar] (15) NULL , 

[COMP_DUNS] [varchar] (15) NULL , 

[COMP_SIC] [varchar] (15) NULL , 

[COMP_STRC] [char] (1) NULL , 

[COMP_STATJENC] [char] (2) NULL , 

[COMP_PUB] [varchar] (3) NULL , 

[COMP_OWN] [varchar] (3) NULL , 

[COMP_FELN] [bit] NOT NULL , 

[COMP_BKRP] [bit] NOT NULL , 

[COMP_ENBL] [bit] NULL , 

[COMP_PREF] [int] NULL 

) 

GO 



CREATE TABLE [dbo] . [CONTRACT] ( 

[CONT_ID] [numeric] (18, 0} IDENTITY (1, 1) NOT NULL 

[CONT_FMLY] [varchar] (20) NULL , 

[CONT__CATG] [varchar] (30) NULL , 

[CONT_PROC] [varchar] (20) NULL , 

[CONTJ4ELT_TGT] [varchar] (10) NULL , 

[CONT 
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_IZOD_ 


_RNG] 
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TGT] [varchar] 
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NULL 


[COWT~ 
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]blck] 


]RNG3 [varchar] 


(45) 


NULL 



[CONT_FEAT] [varchar] (25) NULL , 
[CONT_LABL] [varchar] (60) NULL , 
[CONT_ORDR] [int] NULL 

) 

GO 

CREATE TABLE [dbo] . [COUNTRY] { 

[CTRY_CODE] [char] (2) NOT NULL , 
[CTRY_NAME] [varchar] (50) NOT NULL , 
[CTRY_ENBL] [bit] NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [CREDIT] ( 

[CRED_COMP] [numeric] {18, 0} NOT NULL , 
[CRED_AMNT] [decimal] (19, 3) NOT NULL , 
[CRED_AVLB] [decimal] (19, 3) NOT NULL , 
[CRED^RATE] [decimal] (9, 8} NOT NULL , 
[CRED_RATE_1] [decimal] (9, 8) NULL , 
[CRED_RATE_2] [decimal] (9, 8) NULL , 
[ CRED_RATE_3 ] [decimal] (9, 8) NULL , 
[CRED_RATE_4] [decimal] (9, 8) NULL , 
[CRED_DATE] [date time 3 NOT NULL 

) 

GO 

CREATE TABLE [dbo] . [CUSTOM] ( 

[CUST_PERS] [numeric] (18, 0) NOT NULL , 
[CUST_CONT] [numeric] (18, 0) NOT NULL , 
[CUST_NOT_TRST] [numeric] (18, 0) NOT NULL 

) 

GO 

CREATE TABLE [dbo] . [DEBIT] ( 

[DEB_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL , 

[DEB_COMP] [numeric] (18, 0) NULL , 

[DEB__LEND] [varchar] (20) NULL , 

[DEB_MAT] [varchar] (7) NULL , 

[DEB_AMNT] [varchar] (10) NULL , 

[DEBJDUTJ [varchar] (10) NULL , 

[DEB_RECV] [bit] NULL , 

[DEB_EQUP] [bit] NULL , 

[DEB_INV] [bit] NULL , 

[DEB_STAT] [bit] NULL 

) 

GO 

CREATE TABLE [dbo] . [EXPOSURE] ( 

[EXP_ID] [numeric] (18, 0) IDENTITY (1, 1} NOT NULL , 

[EXP_COMP] [numeric] (18, 0) NULL , 

[EXP_CUST] [varchar] (20) NULL , 

[EXP_CITY_STAT] [varchar] (50) NULL , 

[EXPJDUT] [varchar] (10) NULL , 

[EXP_RECV] [varchar] {3} NULL 

) 

GO 

CREATE TABLE [dbo] . [EXTRUST] ( 

[TRST_COMP] [numeric] (18, 0) NOT NULL , 
ITRST_CONT] [numeric] (18, 0) NOT NULL , 
f TRST_NOT_TRST] [numeric] ( 18 , 0) NOT NULL , 
[TRST_NO_WAY] [bit] NOT NULL 

) 

GO 

CREATE TABLE [dbo] . [LOCALITY] ( 
[LOCL 



_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 
[LOCL^CITY] [varchar] (20) NULL , 
[LOCL_STAT] [char] (2) NULL , 
[LOCL_CTRY] [char] (2) NULL 

) 

GO 



CREATE TABLE [dbo] . [MESSAGE] ( 

[MESS_IDJ [numeric] (18, 0} IDENTITY {1, 1) NOT NULL 
[MESS_COMP] [numeric] (18, 0) NOT NULL , 
[MESSJTO] [numeric] {18, 0) NOT NULL , 
[MESS_FROM] [numeric] (18, 0) NOT NULL , 
[MESS_TEXT] [varchar] (8000) NOT NULL , 
[MESS_DATE] [datetime] NOT NULL , 
[MESS__TYPE] [char] (1) NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [NEWS] ( 

[NEWS_ID] [numeric] (18, 0) IDENTITY {1, 1) NOT NULL 

[NEWS_DATE] [datetime] NOT NULL , 

[NEWS_LABL] [varchar] (200) NULL 
) ON [PRIMARY] 
GO 

CREATE TABLE [dbo] . [OFFER] ( 

[OFFR_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

[OFFR_SELR] [numeric] (18, 0) NULL , 

[OFFR_BRAN] [numeric] (18, 0) NULL , 

[ OFFR_CONT ] [numeric] (18, 0} NULL , 

[OFFR_FROM] [numeric] (18, 0) NULL , 

[OFFR_FROM_LOCL] [numeric] (18, 0) NULL , 

[ OFFR_QTY ] [int] NULL , 

[ OFFR_PRCE] [decimal] (4, 3} NULL , 

[OFFR_SIZE] [bit] NULL , 

[OFFRJDATE] [datetime] NOT NULL , 

[OFFR_GENE] [bit] NULL , 

[OFFR__SELR_COMP] [numeric] (18, 0) NULL , 

{ OFFR_BRAN_COMP ] [numeric] (18, 0) NULL , 

[OFFR_FOB] [bit] NOT NULL 

) 

GO 

CREATE TABLE [dbo] . [ORDERS] ( 

[ORDR_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

[ ORDR_CONT ] [numeric] (18, 0} NULL , 

[ORDR_BRAN] [numeric] (18, 0) NULL , 

I ORDR_BID] [numeric] (18, 0) NULL , 

I ORDR_OFFR] [numeric] (18, 0) NULL , 

[ORDR_BUYR] [numeric] (18, 0) NULL , 

[ORDR_SELR] [numeric] (18, 0) NULL , 

[ORDR_FROM] [numeric] (18, 0) NULL , 

[ORDRJTO] [numeric] (18, 0) NULL , 

[ORDR_QTY] [int] NULL , 

[ORDR_PRCE] [decimal] (4, 3) NULL , 

[ORDR_SIZE] [bit] NULL , 

[ORDR_SHIP] [char] (1) NOT NULL , 

[ ORDR__DATE_FACT ] [datetime] NULL , 

[ORDR_DATE_UPDT] [datetime] NULL , 

[ORDR_SELR_PAID] [decimal] (9, 2) NOT NULL , 

[ORDR_SELR_RATE] [decimal] (10, 8) NULL , 

[ORDR_BUYR_PAID] [decimal] (9, 2) NOT NULL , 

[ORDR_BUYR_RATE] [decimal] (10, 8) NULL , 

[ORDR__PAID] [char] (1) NULL , 

[ORDR_DATE] [datetime] NOT NULL , 

[ORDR_SHIP_PRCE] [decimal] (9, 3) NULL , 

[ORDR SHIP FULL PRCE] [decimal] ( 



7, 3} NULL , 



[ORDR 
[ORDR 
[ORDR~ 

[ordr~ 



GENE 3 [bit] NULL , 

WGHT ] [int] NULL , 

TERM] [char] {3) NULL 
*FOB] [bit] NULL 



GO 



CREATE TABLE [dbo] . [PARAMETER] ( 

[PARA_CODE] [char] (1) NOT NULL , 
[PARA_VALU] [varchar] (20) NOT NULL , 
[PARA_NAMEJ [varchar] (20) NOT NULL 



CREATE TABLE [dbo] . [PAYMENT] ( 

[PAY_ORDR] [numeric] (18, 0) NULL , 
[PAY_PERS] [numeric] (18, 0) NULL , 
[PAY_AMNT] [numeric] (18, 0) NULL , 
[PAYJDATE] [datetime] NOT NULL 

) ON [PRIMARY] 



GO 



GO 



CREATE TABLE [dbo] .[ PERSON] { 

IPERS_ID] [numeric] (18, 0) IDENTITY {1, 1) NOT NULL 

[PERS_COMP] [numeric] (18, 0} NULL , 

[PERSJFYPE] [char] (1) NULL , 

[PERS_LAST_NAM£] [varchar] (20) NULL , 

iPERS_FRST_NAME] [varchar] (20) NULL , 

[PERSJTITL] [varchar] (30) NULL , 

[PERS_PHON] [varchar] (15) NULL , 

{ PERS_FAX] [varchar] (15) NULL , 

[PERS_MAIL] [varchar] (50) NULL , 

[PERS_PSWD] [varchar] (15) NULL , 

[PERSJDATE] [datetime] NOT NULL , 

[PERS_ENBL] [bit] NULL , 

[PERS_REG] [bit] NOT NULL , 

IPERS_LOGN] [varchar] (15) NULL , 

[PERS_LAST_CHKD] [datetime] NOT NULL , 

[PERS_ALIA] [numeric] (18, 0) NULL , 

[ PERS__PREF] [int] NULL 

> 

GO 

CREATE TABLE [dbo] . [PLACE] ( 

JPLAC_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

fPLAC_COMP] [numeric] (18, 0) NULL , 

jPLAC_LOCL] [numeric] (18, 0) NULL , 

[PLAC^PERS] [varchar] (50) NULL , 

[PLAC_PHON] [varchar] (15) NULL , 

i PLAC_ADDR_ONE ] [varchar] (50) NULL , 

[PLAC_ADDR_TWO] [varchar] (50) NULL , 

1PLAC_ZIP] [varchar] (10) NULL , 

[PLAC_TYPE] [char] (1) NULL , 

[FLAC^ENBL] [bit] NULL , 

[PLAC_INST] [varchar] (250) NULL , 

[PLAC_LABL] [varchar] (50) NULL 

) 

GO 

CREATE TABLE [dbo] . [SHIP] ( 

[SHIP_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

[SHIP_ORDR] [numeric] {18, 0) NULL , 

[SHIP_ID_CH] [varchar] (15) NULL , 

[SHIP_WGHT] [int] NULL , 

[SHIP_STAT] [char] (1) NOT NULL , 

[ SHI P_DATE_TAKE ] [varchar] (10) NULL , 

[SHIP_DATE_DELI] [varchar] (10) NULL 
) ON [PRIMARY] 
GO 

CREATE TABL 



E [dbo] . [SHIPPING] ( 
[SHIP_TO_LOCL] [numeric] (18, 0) NOT NULL , 
[SHIP_FROM_LOCL] [numeric] { 18 , 0) NOT NULL , 
[LOC_LOCL_IDJ [numeric] {18, 0} NULL , 
[SHIP_PRCE_TRUC] [decimal] (4, 3) NULL , 
[SHIP_PRCE_FULL_TRUC] [decimal] (7, 3) NOT NULL , 
[SHIP_PRCE_RAIL] [decimal] (4, 3) NOT NULL , 
[SHIP_PRCE_FULL_RAIL] [decimal] (10, 3) NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [STATE] ( 

[STAT_CTRY] [char] {2} NOT NULL , 
[STAT_CODE] [Char] (2) NOT NULL , 
[STAT_NAME] [varchar] (50) NOT NULL 

) 

GO 



CREATE TABLE [dbo] . [TEMP_ASSOCIATE] ( 

[TEMP_ASSO_ID] [numeric] (18, 0} IDENTITY (1, 1) NOT NULL 
[TEMP_ASSO_PERS] [numeric] (18, 0) NULL , 
[ T EMP_AS S 0_N AM E ] [varchar] {40} NULL , 



[TEMP_ASSO_ACNT_NB] [varchar] (15) NULL , 
[TEMP_ASSO_CONT] [varchar] (20) NULL , 
[TEMP_ASSO_PHON] [varchar] (20) NULL 

) 

GO 



CREATE TABLE [dbo] . [TEMP_BANK] ( 

[TEMP_BANK_PERS] [numeric] (18, 0) NOT NULL , 
[TEMP_BANK_NAME] [varchar] (50) NULL , 
[TEMP_BANK_CONT] [varchar] (20) NULL , 
[TEMP_BANK_ACNT_NB] [varchar] (15) NULL , 
[ TEMP_BANK_ADDR_ONE ] [varchar] (50) NULL , 
[TEMP_BANK_ADDR_TWO] [varchar] (50) NULL , 
[TEMP_BANK_CITY] [varchar] (20) NULL , 
[ TEMP__BANK_Z IP] [varchar] (10) NULL , 
[TEMP_BANK_STAT] [char] (2) NULL , 
[TEMP_BANK_CTRY] [char] (2) NULL , 
[TEMP_BANK_PHON] [varchar] (20) NULL , 
[TEMP_BANK_FAX] [varchar] (20) NULL 

) 

GO 
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) 
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CREATE TABLE [dbo] . [TEMP_COMPANY] ( 

[TEMP_COMP_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL , 
[TEMP_COMP_PERS] [numeric] (18, 0) NULL , 
[TEMP_COMP_TYPE] [char] (1) NULL , 
[TEMP_COMP_NAME] [varchar] (40) NULL , 
[TEMP_COMP_URL] [varchar] (50) NULL , 
[TEMP_COMP_REG] [bit] NULL , 
[TEMP_COMP_DATE] [datetime] NOT NULL , 
[TEMP_COMP_FED_TAX] [varchar] (15) NULL , 
[TEMP_COMP_STAT_TAX] [varchar] (15) NULL , 



[ TEMP_ 


_COMP_ 


JXJNS] 


[varchar] 


(15) NULL , 


[temp] 


]comp] 


[sic 3 


[varchar] 


(15) NULL , 


[TEMP" 


]comp] 


]STRC] 


[char] (1 


} NULL , 


[TEMP] 


]C0MP] 


]stat_ 


INC] [char 


] (2) NULL , 


[ temp" 


~COMP" 


"pub ) 


[varchar] 


(3) NULL , 


[temp" 


]C0MP] 


[own 3 


[varchar] 


(3) NULL , 


[ temp" 


]cOMP] 


>ELN] 


[bit] NOT 


NULL , 


[temp" 


"COMP" 


"bkrp3 


[bit] NOT 


NULL , 


[temp] 


~ C0MP . 


[done] 


[bit] NOT 


NULL 



) 

GO 



CREATE TABLE 


[dbo] . [TEMP_DEBIT] ( 




[TEMP 


DEB 


ID] [ 


numeric] (18, 0) 


IDENTITY (1, 1) NOT NULL 


[ TEMP] 


_deb] 


_PERS] 


[numeric] (18, 


0) NULL , 


[temp" 


"deb" 


"lend] 


[varchar] (20) 


NULL , 


[TEMP] 


_deb] 


]mat] 


[varchar] (7) NULL , 


[temp" 


"deb] 


]amnt] 


[varchar] (10) 


NULL , 


[TEMP] 


_deb] 


]0UT] 


[varchar] (10) 


NULL , 


[temp" 


_deb] 


]recv] 


[bit] NULL , 




[temp] 


_deb] 


]equp] 


[bit] NULL , 




[temp] 


deb" 


~INV] 


[bit] NULL , 




[ temp] 


_deb] 


]STAT] 


[bit] NULL 





) 

GO 



CREATE TABLE [dbo] . [TEMP EXPOSURE] ( 



[TEMP_EXP_ID] [numeric] (18, 0} IDENTITY (1, 1) NOT NULL , 
[TEMP_EXP_PERS] [numeric] (18, 0) NULL , 
[TEMP_EXP_CUST] [varchar] (20) NULL , 
[TEMP_EXP_CITY_STAT] [varchar] (50) NULL , 
LTEMP_£XP_OUT] [varchar] (10) NULL , 
LTEMP_EXP_RECVj [varchar] (3) NULL 

) 

GO 

CREATE TABLE [dbo] . [TEMP_PERSON] ( 

[TEMP_PERS_ID] [numeric] (18, 0) IDENTITY (1, 1) NOT NULL , 

[TEMP_PERS_COMP] [numeric] (18, 0) NULL , 

[TEMP_PERS_LAST_NAME] [varchar] (20) NULL , 

[TEMP_PERS_FRST_NAME] [varchar] (20) NULL , 

[TEMP_PERS_TITL] [varchar] (30) NULL , 

[TEMP_PERS_PHON] [varchar] (15) NULL , 

i TEMP_PERS_FAX] [varchar] (15) NULL , 

j TEMP_PERS_MAILJ [varchar] (50) NULL , 

[TEMP_PERS_ASKD] [varchar] (10) NULL , 

[TEMP_PERS_LOGN] [varchar] (15) NULL , 

[TEMP_PERS_PSWD] [varchar] (15) NULL 

) 

GO 

CREATE TABLE [dbo] . [TEMP_PLACE] { 

[TEMP_PLAC_ID3 [numeric] (18, 0) IDENTITY (1, 1) NOT NULL , 
[TEMP_PLAC_PERS] [numeric] (18, 0) NULL , 
[TEMP_PLAC_CONT] [varchar] (20) NULL , 
[TEMP_PLAC_PHON] [varchar] (15) NULL , 
[TEMP_PLAC_ADDR_ONE] [varchar] (50) NULL , 
[TEMP_PLAC_ADDR_TWO] [varchar] (50) NULL , 
[TEMP_PLAC_CITY] [varchar] (20) NULL , 
[TEMP_PLAC_ZIP] [varchar] (10) NULL , 
[TEMP_PLAC_STAT] [char] (2) NULL , 
[TEMP_PLAC_CTRY] [char] (2) NULL , 
[ TEMP__PL AC_T YPE ] [char] (1) NULL , 
[TEMP_PLAC_INST] [varchar] (250) NULL , 
[TEMP_PLAC_LABL] [varchar] (30) NULL 

) 

GO 



CREATE TABLE [dbo] . [TMP_JPLACE] ( 

r 



t TMP_PLAC_ID3 [numeric] (18, 0) IDENTITY (1, 1) NOT NULL 

[TMP_PLAC_COMP] [varchar] (20) NULL , 

[TMP_PLAC_PERS] [varchar] (20) NULL , 

[TMP_PLAC_PHON] [varchar] (15) NULL , 

[TMP_PLAC_CITY] [varchar] (20) NULL , 

[TMP_PLAC_STAT] [char] (2) NULL , 

[TMP_PLAC_CTRY] [char] (2) NULL , 

[ TMP__PLAC_T YPE ] [char] (1) NULL , 

[TMP_PLAC_ADDR_ONE] [varchar] (50) NULL , 

[TMP_PLAC_ADDR_TWO] [varchar] (50) NULL , 

[TMP_PLAC_ZIP] [varchar] (10) NULL , 

[TMP_PLAC_INST] [varchar] (250) NULL , 

[TMP_PLAC_LABL] [varchar] (30) NULL 
) ON [PRIMARY] 
GO 

CREATE TABLE [dbo] . [TRUST] ( 

[TRST_COMP] [numeric] (18, 0) NOT NULL , 
[TRST_NOT_TRST] [numeric] (18, 0) NOT NULL , 
[TRST_CONT] [int] NOT NULL 

) ON [PRIMARY] 

GO 

CREATE TABLE [dbo] . [VALIDITY] ( 

[VALI_PERS] [numeric] (18, 0) NOT NULL , 
[VALI_ZERO] [char] (1) NULL , 
[VALI_ONE] [char] (1) NULL , 
[VALIJTWO] [Char] (1) NULL , 
[VALIJTHREE] [char] (1) NULL , 



[VALI_FOUR] [char] (1) NULL , 
[VALI_FIVE] [char] (1) NULL , 
[VALI_SIX] [char] (1} NULL 

) 

GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spCManagement 
HSCol varchar(lOO) = ' 
@Search varchar{200) = '0', 
@CoX varchar(200) = ' 
GOrder varchar(4) = 'ASC 

AS 

/****************************************************************************** 

** File: spCManagement . sql 
** Name: spCManagement 
** Desc: Management List 
** 

************************************** 
** Change History 

******* * * ********************************************************************** 

** Date: Author: Description: 

** 12/19/2000 Patrick Zaouter Management List 

* * 

******************************************************************************* J 
IF SOrder-'ASC* 

IF @Col= , COMP_NAME' OR @Col= 1 COMP_TYPE ' OR @Col='' 
SELECT 

{CASE @Col 

WHEN 1 COMP_NAME 1 THEN COMP_NAME 

WHEN 'COMPJTYPE* THEN COMP_TYPE 

ELSE COMP_NAME 

END) , 



FROM 
(SELECT 

COMP_ID, 

COMP_NAME, 

COMP_TYPE, 

(SELECT CRED_AVLB FROM CREDIT WHERE CRED_COMP=COMP_ID) AS CRED^AVLB, 
WO=ISNULL( (CASE COMPJTYPE 
WHEN 'P' THEN 

(SELECT SUM((CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 
END} *BID_PRCE*BID_QTY) FROM BID WHERE BID_BUYR_COMP=COMP_ID) 
ELSE 

(SELECT SUM( (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *OFFR_PRCE*OFFR_QTY) FROM OFFER WHERE OFFR_SELR_COMP=COMP_ID) 
END) ,0} , 

FO-ISNULL( {CASE COMPJTYPE 
WHEN ' P* THEN 

(SELECT SUM((CASE ISNULL (ORDR_WGHT, -1 ) WHEN -1 THEN (CASE ORDR_SIZE 
WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR_WGHT*ORDR_BUYR_RATE 

END) * (ORDR_PRCE+ORDR_SHIP_PRCE) ) FROM ORDERS WHERE ISNULL (ORDR_BUYR_RATE, 1 ) <>0 . 0 AND (SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=ORDR_BUYR) =COMP_ID) 
ELSE 

(SELECT SUM((CASE ISNULL (ORDR_WGHT, -1 ) WHEN -1 THEN (CASE ORDR_SIZE 
WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR_WGHT * ORDR_SELR_RATE END) *ORDR_PRCE* (CASE 
ORDR_SIZE WHEN 0 THEN 0.97 ELSE 0.9 END)} FROM ORDERS WHERE ISNULL (ORDR_SELR_RATE, 1 ) <>0 . 0 AND 



(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=ORDR_SELR) =COMP_ID) 
END) ,0) 
FROM COMPANY 
WHERE 

COMP_REG=l AND 

COMP JTYPE IN { ' P 1 , 1 D ' , ' S 1 } ) Q 

WHERE 

( (CASE @SCol 



WHEN ' COMP_NAME ' THEN COMP_NAME 

WHEN 'COMP_TYPE' THEN (CASE COMPJTYPE WHEN 'S 1 THEN 'Supplier' 

WHEN 1 D ' THEN 'Distributor 1 ELSE 'Purchaser' END) 

WHEN ' CRED_AVLB ' THEN CAST (CRED_AVLB AS VARCHAR) 

WHEN 'WO' THEN CAST (WO AS VARCHAR) 

WHEN 'FO' THEN CAST(FO AS VARCHAR) 

WHEN 'ALL' THEN ' 1 

ELSE @Search 
END) LIKE ^^Search*' 5 ^ OR 

(COMP_NAME LIKE 1 % ' +@Search+ ' % ' OR 

(CASE COMP_TYPE WHEN 'S' THEN 'Supplier 1 WHEN 'D' THEN 'Distributor 1 ELSE 
'Purchaser' END) LIKE ' % * +@Search+' % * OR 

CAST (CRED_AVLB AS VARCHAR) 
LIKE , % r +@Search+'%' OR 

CAST (WO AS VARCHAR) 
LIKE '%'+@Search+ , %' OR 

CAST(FO AS VARCHAR) 
LIKE '%'+@Search+'%' ) AND @Scol= ' ALL 1 ) 
ORDER BY 1 ASC 

ELSE 

SELECT 

(CASE @Col 

WHEN 'WO 1 THEN WO 

WHEN 'FO* THEN FO 

WHEN ' CRED_AVLB 1 THEN CREDJWLB 

END) , 

FROM 
(SELECT 

COMP_ID, 

COMP_NAME, 

COMPJTYPE, 

(SELECT CRED_AVLB FROM CREDIT WHERE CRED_COMP=COMP_ID) AS CRED_AVLB , 
WO=ISNULL( (CASE COMP_TYPE 
WHEN ' P ' THEN 

(SELECT SUM ({CASE BID__SI2E WHEN 0 THEN 42000 ELSE 190000 
END) *BID_PRCE*BID_QTY) FROM BID WHERE BID_BUYR_COMP=COMP_ID) 
ELSE 

(SELECT SUMUCASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *OFFR_PRCE*OFFR_QTY) FROM OFFER WHERE OFFR_SELR_COMP^COMP_ID) 
END),0), 

FO=ISNULL( (CASE COMPJTYPE 
WHEN 'P' THEN 

{ SELECT SUMUCASE I S NULL ( ORDR_WGHT , - 1 ) WHEN -1 THEN (CASE ORDR_SIZE 
WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR_WGHT*ORDR_BUYR_RATE 

END) * (ORDR_PRCE+ORDR_SHIP_PRCE) ) FROM ORDERS WHERE ISNULL (ORDR_BUYR_RATE, 1 ) <>0 . 0 AND (SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=ORDR_BUYR) =COMP_ID) 
ELSE 

(SELECT SUM((CASE I SNULL ( ORDR_WGHT , - 1 ) WHEN -1 THEN (CASE ORDR_SI2E 
WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR 



_WGHT * ORDR__S E L R_RAT E END) *ORDR_PRCE* {CASE 
ORDR_SIZE WHEN 0 THEN 0.97 ELSE 0.98 END) ) FROM ORDERS WHERE ISNULL {ORDR_SELR__RATE, 1 ) <>0 . 0 AND 
{SELECT PERS_COMP FROM PERSON WHERE PERS_ID=ORDR_SELR) =COMP_ID) 
END) ,0) 
FROM COMPANY 
WHERE 

COMP_REG=l AND 

COMPJFYPE IN ( ' P' , 'D', ' S ' ) ) Q 

WHERE 

( {CASE @SCol 

WHEN ' COMP_NAME ' 
WHEN 'COMPJTYPE* 
ELSE 'Purchaser' END) 
WHEN 1 CRED_AVLB 1 
WHEN 'WO' 
WHEN f FO ! 
WHEN 'ALL 1 
ELSE ©Search 
LIKE '% , +@Search+ , %' OR 
(COMP_NAME 

(CASE COMP_TYPE WHEN 'S' THEN 
•Purchaser 1 END) LIKE ' % ' +@Search+ ' % ' OR 



WHEN , D* THEN 'Distributor 1 



END) 



THEN COMP_NAME 

THEN {CASE COMPJTYPE WHEN 'S' THEN 'Supplier' 

THEN CAST {CRED_AVLB AS VARCHAR) 
THEN CAST {WO AS VARCHAR) 
THEN CAST{FO AS VARCHAR) 
THEN ' ' 



LIKE 'I'+eSearch+'l 
'Supplier' WHEN 'D' 



' OR 
THEN 



'Distributor' ELSE 



CAST ( CRED_AVLB AS VARCHAR) 
LIKE , % , +@Search+ , % , OR 

CAST {WO AS VARCHAR) 
LIKE , % t +@Search+'% f OR 

CAST(FO AS VARCHAR) 
LIKE , % , +@Search+'%M AND eScol-'ALL') 
ORDER BY 1 ASC 

ELSE 

IF @Col= f COMP_NAME' OR @Col^ * COMPJTYPE ' 
SELECT 

(CASE <§Col 

WHEN 1 COMP_NAME 1 THEN COMP_NAME 

WHEN 'COMPJTYPE' THEN COMP_TYPE 

END) , 

FROM 
(SELECT 

COMP_ID, 
COMP_N AME , 
COMP_TYPE , 

(SELECT CRED_AVLB FROM CREDIT WHERE CRED_COMP=COMP_ID) AS CRED_AVLB, 
WO= ISNULL ( (CASE COMP_TYPE 
WHEN 'P' THEN 

(SELECT SUM((CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *BID_PRCE*BID_QTY) FROM BID WHERE BID_BUYR_COMP=COMP_ID) 
ELSE 

(SELECT SUMHCASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *OFFR_PRCE*OFFR_QTY) FROM OFFER WHERE OFFR_SELR_COMP=COMP_ID) 
END) , 0 ) , 

FO=ISNULL ( (CASE COMP_TYPE 
WHEN 'P' THEN 

(SELECT SUM((CASE ISNULL {ORDR_WGHT, -1) WHEN -1 THEN (CASE ORDR_SIZE 
WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR_WGHT*ORDR_BUYR_RATE 

END) * (ORDR_PRCE+ORDR_SHIP_PRCE) ) FROM ORDERS WHERE ISNULL (ORDR_BUYR_RATE, 1) <>0 . 0 AND (SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=ORDR_BUYR) =COMP_ID) 
ELSE 

(SELECT SUM((CASE I SNULL ( ORDR_WGHT , - 1 ) WHEN -1 THEN (CASE ORDR_SIZE 
. WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR__WGHT*ORDR_SELR_RATE END) *ORDR_PRCE* {CASE 
ORDR_SIZE WHEN 0 THEN 0.97 ELSE 0.98 END}) FROM ORDERS WHERE ISNULL (ORDR_SELR_RATE, 1) <>0 . 0 AND 
(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=ORDR_SELR) -COMP__ID) 
END) ,0) 
FROM COMPANY 
WHERE 

COMP_REG=l AND 

COMP_TYPE IN ('P'/D'/S'JJQ 

WHERE 

( (CASE QSCol 

WHEN 'COMP NAM 



E ' 

WHEN 'COMPJTYPE' 
WHEN ' D ' THEN 'Distributor' ELSE 'Purchaser' END) 

WHEN 1 CRED_AVLB' 
WHEN 'WO 1 
WHEN 'FO' 
WHEN 'ALL' 
ELSE @Search 
END) LIKE '%'-f@Search+'% ' OR 
{ COMP_NAME 

(CASE COMPJTYPE WHEN *S' THEN 
'Purchaser' END) LIKE ' % ' +@Search+ ' % 1 OR 

CAST (CRED_AVLB AS VARCHAR) 
LIKE ' % r +@Search+'%' OR 

CAST (WO AS VARCHAR) 
LIKE , %'+@Search+'% t OR 

CAST(FO AS VARCHAR) 
LIKE ' %'+@Search+'%' ) AND @Scol='ALL r 
ORDER BY 1 DESC 

ELSE 

SELECT 

(CASE @Col 

WHEN 'WO' THEN WO 

WHEN 'FO' THEN FO 



THEN COMP_NAME 

THEN (CASE COMPJTYPE WHEN 'S' THEN 'Supplier' 

THEN CAST {CRED_AVLB AS VARCHAR) 
THEN CAST (WO AS VARCHAR) 
THEN CAST ( FO AS VARCHAR) 
THEN 1 ' 



LIKE , %'+@Search+ , %* OR 

'Supplier' WHEN 'D' THEN 'Distributor' ELSE 



WHEN 'CRED AVLB ' 



THEN CRED AVLB 



END) , 



FROM 



(SELECT 

COMP_ID, 

COMP_NAME, 

COMPJTYPE, 

(SELECT CRED_AVLB FROM CREDIT WHERE CRED_COMP=COMP_ID) AS CRED_AVLB, 
WO=ISNULL( (CASE COMPJTYPE 
WHEN 'P' THEN 



(SELECT SUM{(CASE BID SIZE WHEN 0 THEN 42000 ELSE 190000 



END) *BI D_PRCE* BI D_QTY ) FROM BID WHERE BID_BUYR COMP^COMP ID) 



(SELECT SUM((CASE OFFR SIZE WHEN 0 THEN 42000 ELSE 190000 



END) *OFFR_PRCE*OFFR_QTY) FROM OFFER WHERE OFFR_SELR_COMP=COMP ID) 



END) ,0) , 

FO=ISNULL< (CASE COMP_TYPE 
WHEN 'P' THEN 

{SELECT SUM((CASE ISNULL (ORDR_WGHT, -1 ) WHEN -1 THEN (CASE ORDR_SIZE 



WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR_WGHT*ORDR_BUYR_RATE 

END) * (ORDR_PRCE+ORDR_SHIP_PRCE) ) FROM ORDERS WHERE ISNULL (ORDR_BUYR_RATE, 1 ) <>0 . 0 AND (SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=ORDR BUYR)=COMP ID) 



(SELECT SUM{(CASE I SNULL ( ORDR_WGHT , - 1 ) WHEN -1 THEN (CASE ORDR_SIZE 



WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY ELSE ORDR_WGHT*ORDR_SELR_RATE END) *ORDR_PRCE* (CASE 
ORDR_SIZE WHEN 0 THEN 0.97 ELSE 0.98 END) ) FROM ORDERS WHERE ISNULL (ORDR_SELR_RATE, 1) <>0 - 0 AND 
(SELECT PERS^COMP FROM PERSON WHERE PERS_ID=ORDR SELR) =COMP ID) 



END) ,0) 
FROM COMPANY 
WHERE 

COMP_REG-l AND 

COMPJTYPE IN { 'P* , 'D\ 'S' ) )Q 

WHERE 

( (CASE @SCol 



WHEN 'D' THEN 'Distributor 1 ELSE 'Purchaser* END) 



ELSE 



ELSE 



WHEN 'COMP_NAME' 
WHEN 'COMP TYPE 1 



THEN COMP_NAME 

THEN (CASE COMPJTYPE WHEN 'S 1 THEN 'Supplier* 



WHEN 1 CRED_AVLB 1 
WHEN 'WO 1 
WHEN ' FO* 
WHEN 'ALL ' 
ELSE ^Search 



THEN CAST (CRED_AVLB AS VARCHAR) 
THEN CAST (WO AS VARCHAR) 
THEN CAST(FO AS VARCHAR) 
THEN 1 ' 



END) LI E ? '+@Search+' ' < 
(COMP__NAME 

(CASE COMP TYPE WHEN *S T T 1 



OR 



LI E 



'+0Search+' 



OR 



nEN 'Supplier' WHEN * D' THEN 'Distributor' ELSE 

'Purchaser' END) LI E ' '♦©Search* 1 1 OR 

CAST (CRED_AVLB AS VARCHAR) 
LI E ' '+@Search+' * OR 

CAST (WO AS VARCHAR) 
LI E * '+9Search+' ' OR 

CAST(FO AS VARCHAR) 
LI E » *+@Search+' '} AND gScol^'ALLM 
ORDER BY 1 DESC 

RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 



GO 



CREATE PROCEDURE spCPPayment 
@Id numeric = NULL, 
@Value decimal (17,9) = NULL 
AS 

DECLARE 

@TV decimal (17, 9), 
@Rate decimal (10,9) , 
@Pers numeric 

SELECT @TV=ORDR_WGHT* (ORDR_PRCE+ORDR_SHIP_PRCE) , @Rate=ORDR_BUYR_RATE, @Pers-ORDR_BUYR FROM ORDERS 
WHERE ORDR_ID-(§Id 
IF @Value/@TV>@Rate 
BEGIN 

UPDATE ORDERS SET ORDR_BUYR_RATE— 0 , ORDR__BUYR_PAID=ORDR_BUYR_PAID+@Rate*@TV WHERE ORDR_ID=@Id 
INSERT INTO PAYMENT ( PAY_ORDR, PAY_PERS, PAY_AMNT) VALUES { @Id, @Pers, @TV*@Rate) 
UPDATE CREDIT SET CRED_AVLB=CRED_AVLB+@TV*@Rate WHERE CRED__COMP- ( SELECT PERS_COMP FROM 
PERSON WHERE PERS_ID=@Pers ) 
SELECT (@TV*@Rate) 

END 

ELSE 

BEGIN 

UPDATE ORDERS SET ORDR_BUYR_RATE-@Rat e-@ Value /@ TV, ORDR_BUYR_PAID=ORDR_BUYR_PAID+@ Value WHERE 
ORDR_ID=@Id 

INSERT INTO PAYMENT (PAY_ORDR, PAY_PERS, PAY_AMNT) VALUES (@ Id, @Pers, gValue) 

UPDATE CREDIT SET CRED_AVLB=CRED_AVLB+@ Value WHERE CRED_COMP= (SELECT PERS_COMP FROM PERSON 
WHERE PERS__ID={3Pers) 
SELECT @Value 

END 



GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spCSPayment 
@Id numeric = NULL, 
@Value decimal (17, 9) = NULL 
AS 

DECLARE 

@TV decimal (17, 9} , 
@Rate decimal (10, 9) , 
@Pers numeric 

SELECT @TV=ORDR_WGHT*ORDR_PRCE* (CASE ORDR_SIZE WHEN 0 THEN 0.97 ELSE 0.98 
END) , @Rate=ORDR_SELR_RATE, @Pers=ORDR_SELR FROM ORDERS WHERE ORDR_ID=@Id 
IF @Value/@TV>@Rate 
BEGIN 

UPDATE ORDERS SET ORDR_SELR_RATE=0, ORDR_SELR_PAID=ORDR_SELR_PAID+@Rate*@TV WHERE ORDR_ID=@Id 
INSERT INTO PAYMENT (PAY_ORDR, PAY_PERS, PAY_AMNT) VALUES <@ Id, @Pers, @TV*@Rate) 
SELECT (@TV*@Rate) 

END 
ELSE 
BEGIN . 

UPDATE ORDERS SET ORDR 



SELR_RATE=@Rate~@Value/@TV, ORDR_SELR_PAID-ORDR_SELR_PAID+@Value WHERE 

ORDR ID=@Id 



INSERT INTO PAYMENT ( PAY_ORDR, PAY__PERS , PAY_AMNT ) VALUES (@Id, @Pers, @Value) 
SELECT @Value 

END 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED__I DENT I FIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spGBrand 

@ContId numeric = 0, 

SCompId numeric = 0 
AS 

IF @CompId=0 

SELECT BRAN_ID,BRAN_NAME FROM BRAND WHERE BRAN_ENBL=1 AND BRAN_CONT~@ContId ORDER BY BRAN_NAME 
ELSE 

SELECT BRAN_ID, BRAN_JJAME FROM BRAND WHERE BRAN_COMP=@CompId AND BRAN_ENBL=1 AND BRAN_CONT=(2ContId 
ORDER BY BRAN_NAME 
RETURN 



GO 

SET QUOTED_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

SET QUOTE D_I DENT I FI ER ON SET ANSI_NULLS ON 
GO 



CREATE Procedure spGContract 

SCompId numeric = 0, 

@PersId numeric = 0 
As 

IF @CompId<>0 

IF @PersId=0 

SELECT CONT_ID,CONT_LABL,CONT_MELT_RNG,CONT_DENS_RNG / CONT_IZOD_RNG FROM CONTRACT 
WHERE POWER (2 , CONT_ID-l) & (SELECT COMP_PREF FROM COMPANY WHERE COMP_ID=@CompId) <>0 AND 
ISNULL {POWER (2, CONT_ID-l ) & (SELECT DISTINCT TRST_CONT FROM TRUST WHERE TRST_COMP=@CompId) , 0) =0 ORDER 
BY CONT_ORDR 

— DJAY SELECT CONT_ID, CONT_LABL, CONT_MELT_RNG, CONT_DENS_RNG / CONT_IZOD_RNG FROM CONTRACT 

WHERE POWER (2 , CONT_ID-l )& (SELECT COMP_PREF FROM COMPANY WHERE COMP_ID=@CompId) <>0 AND 

POWER (2, CONTJCD-l) & (SELECT TRST_CONT FROM TRUST WHERE TRST_COMP=@CompId) =0 ORDER BY CONT_ORDR 

SELECT CONT_ID / CONT_LABL,CONT_MELT_RNG,CONT_DENS_RNG / CONT_IZOD_RNG FROM CONTRACT 
WHERE CONT_ID IN {SELECT TRST_CONT FROM TRUST WHERE TRST_COMP=@CompId AND TRST_NOT_TRST-0 AND 
TRST_CONT<>0) ORDER BY CONT_ORDR 
ELSE 

SELECT CONT_ID, CONT_LABL, CONT_MELT_RNG, CONT_DENS_RNG, CONT_IZOD_RNG FROM CONTRACT 
WHERE POWER (2 , CONTID-1 ) & (SELECT COMPPREF FROM COMPANY WW 



..ERE COMP_ID-@CompIdX>0 AND 
ISNULL (P0WER(2, C0NT_ID-1) & (SELECT DISTINCT TRST_CONT FROM TRUST WHERE TRST_COMP=@CompId) , 0) =0 AND 
POWER ( 2 , CONT_I D- 1 ) & { SELECT PERS_PREF FROM PERSON WHERE PERS_ID=@PersId) <>0 ORDER BY CONT_ORDR 
— DJAY SELECT CONT_ID, CONT_LABL, CONT_MELT_RNG, CONT_DENS_RNG / CONT_I ZOD_RNG FROM CONTRACT 

WHERE POWER (2, CONT_ID-l)& (SELECT COMP_PREF FROM COMPANY WHERE CQMP__ID=@CompId) <>0 AND 
POWER (2, CONT_ID-l) & (SELECT TRST_CONT FROM TRUST WHERE TRST_COMP=@CompId) =0 AND POWER ( 2 , CONT_I D- 
1) & (SELECT PERS__PREF FROM PERSON WHERE PERS__ID=@PersId} <>0 ORDER BY CONTJDRDR 

SELECT CONT_ID, CONT_LABL, CONT_MELT_RNG, CONT_DENS_RNG, CONT_IZOD_RNG FROM CONTRACT 
WHERE POWER(2,CONT_ID-l> & (SELECT TRST_CONT FROM TRUST WHERE TRST_COMP=@CompId AND TRST_NOT_TRST=0 



AND TRST_CONT<>0 AND POWER (2, TRST_C0NT-1) & (SELECT PERS_PREF FROM PERSON WHERE 
PERS_ID=@PersId)<>0) ) <>0 ORDER BY CONT_ORDR 

SELECT CONT_ID, CONT_LABL, CONT_MELT_RNG, CONT_DENS_RNG, CONT_IZOD_RNG FROM CONTRACT 
WHERE CONT_ID IN (SELECT TRST_CONT FROM TRUST WHERE TRST_COMP=@CompId AND TRST_NOT_TRST=0 AND 
TRST_CONT<>0 AND TRST_CONT NOT IN (SELECT CUST_CONT FROM CUSTOM WHERE CUST_NOT_TRST=0 AND 
CUST_PERS=@PersId) ) ORDER BY CONT_ORDR 
ELSE 

SELECT CONT_ID,CONT_LABL FROM CONTRACT ORDER BY CONT_ORDR 

RETURN 



GO 

SET QUOTE D__I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spGCountry 

©Flag bit = 0 
AS 

/****************************************************************************** 
** File: spCountry.sql 
** Name: spCountry 
** Desc: Country List 

* * 

************************************************************************^ 
** Change History 

******************************************************************************* 

** Date: Author: Description: 

** 12/19/2000 Patrick Zaouter Country List 

* * 

********************************************************** 

SELECT CTRY_CODE , CTRY__NAME FROM COUNTRY WHERE CTRY_ENBL=1 OR @ Flagyl 

RETURN 



GO 

SET QUOTE 



D_IDENTIFIER OFF SET ANSI_NULLS ON 

GO 

SET QUOT E D_I DENT I FI ER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spGFO 

@Id numeric = NULL, 

@CompId numeric - NULL, 

@Flag varchar{4) = NULL, 

@SesTyp varchar{4) = NULL, 

@ThisParam varchar(lO) = NULL, 
SStrBis var char (1000) = NULL, 

^Search varchar (100) = NULL, 
@ShowAU varchar(lOO) = NULL, 

@SearchCol varchar(lOO) = NULL, 



@Col varchar(lOO) = NULL, 

@Order varchar(lOO) - NULL 

AS 

DECLARE 

@StrSql varchar{2000) 

IF"{@Id!=-l AND @Id IS NOT NULL) 
BEGIN 

IF {@Flag='P' OR @SesTyp~ ? OP ' OR SSesTyp^'P 1 ) 
BEGIN 

SET @StrSql= 1 SELECT * FROM (SELECT VARSHIP= (CASE ORDR_SHIP WHEN "0" THEN 
"Inventory" WHEN »'l" THEN 1 'Dispatched' * WHEN "2" THEN ' *En Route" WHEN "3" THEN 
"Delivered" END) , 

VARDATE=LEFT (CONVERT (VARCHAR, ORDR_DATE , 101 ) , 5 ) , 
ORDRJLD, 

VARSIZE=CAST (ORDR_QTY AS VARCHAR) + " " + (CASE ORDR_SIZE WHEN 0 THEN *'T" 
ELSE "R" END) + " : " +CAST (I SNULL (ORDR_WGHT, (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *ORDR_QTY) AS VARCHAR) + " lbs " , 

VARCONTRACT= (SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 

VARBRAND- (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) + (CASE 
ORDR_GENE WHEN 0 THEN " (Generic)" END), 

VARPRICE^CAST (ORDR_PRCE+ORDR_SHIP_PRCE AS VARCHAR), 

VARVALUE= (ORDR_PRCE+ORDR_SHIP_PRCE) *ISNULL (ORDR_WGHT, (CASE ORDR_SIZE WHEN 0 
THEN 42000 ELSE 190000 END) *ORDR__QTY) , 

VARDUE= I SNULL (CAST ( (ORDR_PRCE+ORDR_SHIP_PRCE) *ORDR_WGHT*ORDR_BUYR_RATE AS 

VARCHAR), "-") , 

VARPLACE-I SNULL ( (SELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=ORDR_TO) , (SELECT 

LOCL CITY+ 1 ' , ' r +LO 



CL_STAT FROM LOCALITY WHERE LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE 

PLAC_ID=ORDR_TO) ) ) , 

ORDR_TO , 

VARSELR= (SELECT PERS_LOGN FROM PERSON WHERE PERS_ID-ORDR_SELR) , 
ORDR^SELR, 

VARBUYR=( SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_BUYR> , 
ORDR_BUYR, 

ORDR_WGHT= (CASE WHEN ORDRJflGHT IS NULL THEN ' ' False 1 ' ELSE '* True 11 END) , 
VARWGHT=ISNULL(ORDR_WGHT,ORDR_QTY* (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 
190000 END) ) FROM ORDERS WHERE ORDR_BUYR= 1 +CAST ( @ I d as varchar)+' AND 

Month { » * '+@ThisParam+' 1 ' ) =Month (ORDR_DATE) AND Year ( ' ? * +@ThisParam+ ' 1 ' ) =Year (ORDRJDATE) 
, +@StrBis+' )Q0' 

END 

ELSE 

BEGIN 

SET @StrSql= ' SELECT * FROM (SELECT VARSHIP= (CASE ORDR_SHIP WHEN ' '0" THEN 
'•Inventory 11 WHEN "l" THEN ' 1 Dispatched' ' WHEN "2" THEN ' 'En Route 1 ' WHEN 1 f 3 1 ' THEN 
1 'Delivered' ' END) , 

V ARDAT E= L E FT (CONVERT (VARCHAR, ORDR_DATE , 101 ) , 5 ) , 
ORDRJLD, 

VARSIZE=CAST(ORDR_QTY AS VARCHAR) + " 1 1 + (CASE ORDR_SIZE WHEN 0 THEN ,! T" 
ELSE ' 'R' ' END) + ' ' : " +CAST (ISNULL (ORDRJfGHT, (CASE ORDR^SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *ORDR_QTY) AS VARCHAR) + 1 f lbs 1 ' , VARCONTRACT— ( SELECT CONT_LABL FROM CONTRACT 

WHERE CONT_ID=ORDR_CONT) , 

VARBRAND- (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) + (CASE 
ORDRJ3ENE WHEN 0 THEN '' (Generic)' 1 END) f 

VARPRICE=CA 



ST{ORDR_PRCE AS VARCHAR) , 
VARVALUE=ORDR_PRCE* {CASE ORDR_SIZE WHEN 0 THEN 

ISNULL (ORDR_WGHT,42000*ORDR_QTY)*0. 97 ELSE ISNULL (ORDR_WGHT, 190000*ORDR_QTY) *0 . 98 END) , 

VARDUE=I SNULL (CAST (ORDR_PRCE*ORDR_WGHT*ORDR_SELR_RATE AS VARCHAR) , ' ' ) , 
VARPLACE=ISNULL( (SELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=ORDR_FROM) , (SELECT 

LOCL_CITY+' * , ,f +LOCL_STAT FROM LOCALITY WHERE LOCL_ID= (SELECT PLAC__LOCL FROM PLACE WHERE 

PLAC_ID=ORDR_FROM) ) ) , 

ORDR_FROM, 

VARSELR- {SELECT PERS_LOGN FROM PERSON WHERE 
PERS_ID=ORDR_SELR) , ORDR_SELR, VARBUYR- (SELECT P£RS_LOGN FROM PERSON WHERE PERS_ID=ORDR_BUYR) , 
ORDR_BUYR, 

ORDR_WGHT= (CASE WHEN ORDRJffGHT IS NULL THEN " False" ELSE "True" END), 
VARWGHT- ISNULL (ORDR_WGHT, ORDR_QTY* {CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 

190000 END) ) FROM ORDERS WHERE ORDR_SELR= 1 +CAST (@Id as varchar)+ f AND 

Month { 1 ' r +@ThisParam+' ' 1 ) =Month { ORDR_DATE ) AND 

Year ( ' " +@ThisParam+ " 1 ) =Year (ORDR_DATE) ' +8StrBis+ ' ) QO ' 
END 



END 

ELSE 

BEGIN 

IF (@CompId!=-l AND @CompId!=-2 AND @CompId!=-3 AND @CompId IS NOT NULL) 
BEGIN 

IF (8Flag='P f OR @SesTyp= *OP ' ) 
BEGIN 

SET Q StrSql= 1 SELECT * FROM (SELECT VARSHIP- (CASE ORDR_SHIP WHEN ''O 1 ' THEN 
"Inventory" WHEN "1" THEN * ' Dispatched 1 ' WHEN 11 2' 1 THEN ''En Route ? ' WHEN "3" THEN 
* 'Delivered' ' END) , 

VARDATE=LEFT (CONVERT (VARCHAR, ORDRJDATE, 101) , 5) , 
ORDR_ID, 

VARSIZE-CAST (ORDR_QTY AS VARCHAR}*" ''+(CASE ORDR_SIZE WHEN 0 THEN 
"T" ELSE ' 'R' ' END) + " : ' ' +CAST (ISNULL <ORDR_WGHT, {CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *ORDR_QTY) AS VARCHAR) + " lbs " , 

VARCONTRACT= {SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 

VARBRAND= (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) + {CASE 
ORDR_GENE WHEN 0 THEN " {Generic) 1 ' END) , 

VARPRICE=CAST{ORDR_PRCE+ORDR_SHIP_PRCE AS VARCHAR), 

VARVALUE= {ORDR_PRCE+ORDR_SH I P_PRCE ) * ISNULL (ORDR_WGHT, (CASE ORDR_SIZE 
WHEN 0 THEN 42000 ELSE 190000 END) *ORDR_QTY) , 

VARDUE^ISNULUCAST ( (ORDR_PRCE+ORDR_SHIP_PRCE) *ORDR_WGHT*ORDR_BUYR_RATE 

AS VARCHAR) , "-") , 

VARPLACE=ISNULL ( (SELECT PLAC_LABL FROM PLACE WHERE 
PLAC__I D-ORDR_TO ) , {SELECT LOCL_CITY+ 1 1 , 1 * +LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL 



FROM PLACE WHERE PLAC__ID=ORDRJTO) ) ) , 

ORDRJTO, 

VARSELR= ( SELECT PERS_LOGN FROM PERSON WHERE PERS_ID-ORDR_SELR) , 
ORDR_SELR, 

VARBUYR={ SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_BUYR) , 
ORDR_BUYR, 

ORDR_WGHT= (CASE WHEN ORDR__WGHT IS NULL THEN " False' • ELSE 1 "True" 

END) , 

VARWGHT=ISNULL (ORDR_WGHT, ORDR_QTY* {CASE ORDR_SIZE WHEN 0 THEN 42000 
ELSE 190000 END) ) FROM ORDERS WHERE {SELECT PERS_COMP FROM PERSON WHERE PERS_ID=ORDR_BUYR) = 1 +CAST 
(@CompId as varchar) + ' AND Month {" ' +@ThisParam+' ' 1 ) =Month (ORDR_DATE) AND 
Year ( 1 1 r +QThisParam+ ' ' ' ) -Year (ORDR_DATE) ' +@StrBis+ * ) Q0 ' 

END 

ELSE 

BEGIN 

SET @StrSql= f SELECT * FROM {SELECT VARSHIP= (CASE ORDR_SHIP WHEN ' '0'' THEN 
' 'Inventory ' ' WHEN "l" THEN 1 ' Dispatched 1 r WHEN "2" THEN ' 1 En Route" WHEN "3 11 THEN 
' 'Delivered' 1 END) , 

VARDATE-LEFT (CONVERT ( VARCHAR, ORDR_DATE , 1 0 1 ) , 5 ) , 
ORDR_ID, 

VARSIZE=CAST (ORDR_QTY AS VARCHAR) + ' ' 11 + {CASE ORDR_SIZE WHEN 0 THEN 
' 1 T 1 ' ELSE "R" END) + 1 ' : ' 1 +CAST (ISNULL (ORDRJfGHT, (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *ORDR_QTY) AS VARCHAR) + ' 1 lbs ' ' , 

VARCONTRACT= ( SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 

VARBRAND= (SELECT BRAN NAME FROM BRAND WHERE 



BRAN_I D=ORDR_BRAN ) + {CASE 

ORDR_GEME WHEW 0 THEN ' ' (Generic) * ' END) , 

VARPRICE=CAST(ORDR_PRCE AS VARCHAR) , 
VARVALUE-ORDR_PRCE* {CASE ORDR_SIZE WHEN 0 THEN 

ISNULL (ORDR_WGHT,42000*ORDR_QTY) *0.97 ELSE ISNULL (ORDR_WGHT, 190000*ORDR_QTY) *0 . 98 END) , 

VARDUE= IS NULL (CAST (0RDR_PRCE*ORDR_WGHT*0RDR_SELR_RATE AS VARCHAR), ' 

"), 

VARPLACE=ISNULL( (SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID=ORDR_FROM) , (SELECT LOCL_CITY+ ' ' , 1 ' +LOCL_STAT FROM LOCALITY WHERE LOCL_ID- (SELECT PLAC_LOCL 
FROM PLACE WHERE PLAC_I D-ORDR_FROM ) } ) , 

ORDR_FROM, 

VARSELR= (SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_SELR) , 
ORDR_SELR, 

VARBUYR- (SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR__BUYR) , 
ORDRJ3UYR, 

ORDR_WGHT— { CAS E WHEN ORDRJffGHT IS NULL THEN 11 False* * ELSE ' 'True'' 

END) , 

VARWGHT= ISNULL (ORDR_WGHT, ORDR_QTY* {CASE ORDR_SIZE WHEN 0 T 



HEN 42000 

ELSE 190000 END) ) FROM ORDERS WHERE (SELECT PERS_COMP FROM PERSON WHERE 

PERS_ID=ORDR_SELR)= , +CAST(9CompId as varchar)+' AND Month ( 1 1 1 +@ThisParam+ ' 1 ') =Month (ORDR_DATE) AND 
Year( ' 1 1 +@ThisParam+ 1 ' 1 )=Year {ORDRJDATE) ' +@StrBis+ t ) Q0 1 
END 



END 

ELSE 

BEGIN 

IF (@CompId=-3) 
BEGIN 

SET @StrSql= ' SELECT * FROM (SELECT VARSHIP= (CASE ORDR_SHIP WHEN T, 0'' THEN 
' 'Inventory' ' WHEN ' '1* ' THEN * 'Dispatched* • WHEN ' '2' ' THEN ' 'En Route' ' WHEN ' *3' ' THEN 
1 'Delivered' ' END) , 

VARDATE=LEFT {CONVERT (VARCHAR, ORDR_D ATE, 101) ,5) , 
ORDR_ID, 

VARS I Z E=C AS T ( ORDR_QT Y AS VARCHAR) + ' ' *' + {CASE ORDR_SIZE WHEN 0 THEN 
"T" ELSE ' 'R" END) + 1 ' : ' ' +CAST ( I SNULL ( ORDR_WGHT , { CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END) *ORDR_QTY) AS VARCHAR) + " lbs 1 ' , 

VARCONTRACT- {SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 

VARBRAND= {SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) + (CASE 
ORDR_GENE WHEN 0 THEN ' ' (Generic) ' ' END) , 

VARPRICE=CAST{ORDR_PRCE+ORDR_SHIP__PRCE AS VARCHAR), 

VARVALUE={ORDR_PRCE+ORDR_SHIP_PRCE) * I SNULL ( ORDR_WGHT , {CASE ORDR_SIZE 
WHEN 0 THEN 42000 ELSE 190000 END) *ORDR__QTY) , 

VARDUE=ISNULL{CAST { {ORDR_PRCE+ORDR_SHIP_PRCE) * ORDR_WGHT * ORDR_BU YR_RATE 

AS VARCHAR) , * '-» * ) , 

VARPLACE=ISNULL{ (SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID=ORDR_TO) , (SELECT LOCL_CITY+ ' ' , ' 1 +LOCL_STAT FROM LOCALITY WHERE LOCL_ID= (SELECT PLAC_LOCL 
FROM PLACE WHERE PLAC_ID=ORDR_TO) ) ) , 

ORDR_TO, 

VARSELR={ SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_SELR) , 

ORDR_jSELR, 

V 



ARBU YR= { SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR__BUYR) , 
ORDR_BUYR, 

ORDR_WGHT= { CAS E WHEN ORDR_WGHT IS NULL THEN 1 'False' 1 ELSE ''True'' 

END) , 

VARWGHT=ISNULL(ORDR_WGHT,ORDR_QTY* (CASE ORDR_SIZE WHEN 0 THEN 42000 
ELSE 190000 END) ) FROM ORDERS WHERE Month ( 1 1 1 +@ThisParam+ ' ' * ) =Month (ORDR_DATE) AND 
Year ( 1 ' , +@ThisParam+ , ' 1 ) =Year (ORDR_DATE) ' +@StrBis+' ) Q0' 

END ELSE 

BEGIN 

IF (@CompId=-2) 
BEGIN 

SET @StrSql= 1 SELECT * FROM (SELECT VARSHIP= (CASE ORDR_SHIP WHEN ''0' 1 
THEN ' 1 Inventory * ' WHEN * 'l' 1 THEN 1 ' Dispatched ' ' WHEN ''2'' THEN 11 En Route ' * WHEN « '3 11 THEN 
1 'Delivered' ' END) , 

VARDATE=LEFT {CONVERT (VARCHAR, ORDRJDATE, 101) , 5) , 
ORDR_ID, 

VARS I ZE=CAST { ORDR_QTY AS VARCHAR) + ' 1 ' '+(CASE ORDR_SIZE WHEN 0 
THEN 1 ' T 1 ' ELSE "R" END) + 1 f : 1 ' +CAST { ISNULL (ORDR_WGHT, (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 
190000 END) *ORDR_QTY) AS VARCHAR) +" lbs ' \ VARCONTRACT= ( SELECT 

CONT_LABL FROM CONTRACT WHERE CONT_I D=ORDR_CONT ) , 

VARBRAND= (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN)+(CASE ORDR_GENE WHEN 0 THEN '' (Generic) ' ' END) , 

VARPRICE=CAST (ORDR_PRCE AS VARCHAR), 

VARVALUE=ORDR_PRCE * (CASE ORDR_SIZE WHEN 0 THEN 
ISNULL (ORDR_WGHT,42000*ORDR_QTY) *0.97 ELSE ISNULL {ORDR_WGHT, 190 000 *ORDR_QTY) *0 . 9 END) , 



VARDUE= I SNULL {CAST (ORDR_PRCE*ORDR_WGHT*ORDR_SELR_RATE AS 

VARCHAR) , ' ' - ' ' ) , 

VARPLACE=I SNULL ( (SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID=ORDR_FROM) , {SELECT LOCL_CITY+ ' ' , 1 ' +LOCL_STAT FROM LOCALITY WHERE LOCL__ID= {SELECT PLAC_LOCL 
FROM PLACE WHERE PLAC_ID=ORDR_FROM) ) ) , 

ORDR_FROM, 

VARSELR= {SELECT PERS_LOGN FROM PERSON WHERE 
PERS_ID-ORDR__SELR) , ORDR_SELR, VARBUYR= {SELECT PERS_LOGN FROM PERSON WHERE PERS_ID=ORDR_BUYR) , 

ORDR_BUYR, 

ORDR_WGHT= ( CASE WHEN ORDR_WGHT IS NULL THEN 11 False' ' ELSE 

1 'True' ' END) , 

VARWGHT=ISNULL(ORDR_WGHT,ORDR_QTY* (CASE ORDR_SIZE WHEN 0 THEN 
42000 ELSE 190000 END) ) FROM ORDERS WHERE Month {' 1 ' +@ThisParam+ f '') ^Month (ORDR_DATE) AND 
Year { " ' +@ThisParam+ 1 ' ' ) =Year ( ORDR_DATE ) ' +@StrBis+ ' ) Q0 ? 

END ELSE — ie @CompId —2 or -3 

BEGIN 

SET @StrSql= 1 SELECT * FROM (SELECT VARSHIP= (CASE ORDR_SHIP WHEN 11 0" 
THEN "Inventory" WHEN "l" THEN "Dispatched" WHEN "2" THEN "En Route 1 ' WHEN "3" THEN 
' 'Delivered' ' END) , 



V ARD AT E = L E FT (CONVERT (VARCHAR, ORDRJDATE, 101 ) , 5 ) , 
ORDR_ID, 

VARSIZE-CAST (ORDR_QTY AS VARCHAR) + 1 1 ''+(CASE ORDR_SIZE WHEN 0 
THEN 1 'T' 1 ELSE ' ' R' 1 END) + ' ' : 1 1 +CAST (ISNULL (ORDR__WGHT, (CASE ORDR_SIZE WHEN 0 THEN 42000 ELSE 
190000 END) *ORDR_QTY) AS VARCHAR) + 1 ' lbs ' * , 

VARCONTRACT= (SELECT CONT_LABL FROM CONTRACT WHERE 

CONT_ID=ORDR_CONT) , 

VARBRAND= {SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN)+(CASE ORDR_GENE WHEN 0 THEN ' 1 (Generic)" END), 

VARSELR=( SELECT PERS_LOGN FROM PERSON WHERE 

PERS_ID=ORDR_SELR) , 

ORDR_SELR, 

VARBUYR- ( SELECT PERS_LOGN FROM PERSON WHERE 

PERS__ID*=ORDR_BUYR) , 

" ORDR_BUYR, 

ORDR_WGHT= (CASE WHEN ORDR_WGHT IS NULL THEN 1 ' False r ' ELSE 

' 'True' ' END) , 

VARWGHT= ISNULL (ORDR_WGHT, ORDR_QTY* (CASE ORDR_SIZE WHEN 0 THEN 
42000 ELSE 190000 END) ) FROM ORDERS WHERE ORDR_SELR IS NOT NULL AND 
Month { ' ' ' +@ This Par am+ ' ' ' ) =^Month (ORDR_DATE) AND 
Year ( • 1 ' +@ThisParam+ 1 ' ' ) -Year (ORDR__DATE) ' +@StrBis+ ' ) Q0 » 
END 

END 

END 

END 



IF @Search IS NOT NULL AND @ShOwAll IS NULL 
BEGIN 

IF @SearchCol='ALL' 
BEGIN 

SET @StrS l=@StrS 1+' WHERE (VARDATE LI E 1 ' '+@Search+ ' ' ' OR ORDR ID LIKE 
1 , % , +aSearch+ , %' ' OR VARBRA 



ND LIKE ' 'X'+aSearch+'JS' 1 • 
IF 3FLag IS NOT NULL OR aSesTypO'A' AND aSesTypO'C 1 
BEGIN 

SET astrSql=astrSql+' OR VARPLACE LIKE ' 1 % ' +3Search+ ' % ' ' 1 
SET aStrSql=aStrSql+' OR VARPRICE LIKE 1 1 % * +3Search+ ' % ' " 
SET 3StrSql=aStrSql+' OR VARVALUE LIKE * ' % * +aSearch+ 1 % " ' 
SET aStrSqL=aStrSqL+ 1 OR VARDUE LIKE ' ' % ' +3Search+ ' % ' " 

END 

SET aStrSql=aStrSqL+' OR VARBUYR LIKE ' , %'+aSearch+ , %' ' 1 
SET aStrSq^aStrSqU-' OR VARSELR LIKE ' 1 % ' +3Search+ ' % 1 " 
SET aStrSql=aStrSql+' OR VARCONTRACT LIKE ' 1 % , +aSearch+ , % 
SET aStrSql=aStrSql+' OR VARSI2E LIKE ' * % 1 +3Search+ ' % " 1 
SET astrSql=aStrSql+' OR VARSHIP LIKE ' * % ' +3Search+ 1 % * 1 ) ' 



i i t 



SET aStrSql=aStrSql+ l WHERE ' +aSearchCol+ 1 LIKE 1 1 % '+3Search+' % * 1 1 



END 
ELSE 
BEGIN 

END 

END 

SET aStrSql=aStrSql+' ORDER BY ' 
IF 3Col IS NOT NULL 

SET astrSql=3StrSql+aCol+' '+aOrder 

ELSE 

SET aStrSql=astrSql+'ORDR_ID DESC 
Exec (astrSql) 
RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spGPLace 

aComp varchardO), 

aCompTyp chard) 
AS 

/*******************************************^^ 

** File: spPlace.sql 

** Name: spPlace 

** Desc: Place List 

** 

*********************************** 
** Change History 

******************************************************************************* 

** Date: Author: Description: 

** 12/19/2000 Patrick Zaouter Place List 

** 

*******************************************************************************/ 

SELECT PLAC_1D, ISNULL(PLAC_LABL, (SELECT L0CL_CITY+ , / 1 +L0CL_STAT+ 1 / 1 +L0CL CTRY FROM LOCALITY WHERE 
LOCL_ID=PLAC_LOCL)) FROM PLACE WHERE PLAC C0MP=aComp AND PLAC_ENBL=1 AND 7PLAC_TYPE= * S 1 AND 
aCompTyp= , S 1 OR PLAC_TYPE= ' D ' AND 3CompTyp= 1 P 1 ) 

RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJIULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spGSM 
3Dest numeric = NULL, 
aid numeric = NULL, 
aComp numeric = NULL, 
aness varchar(8000) = NULL 

As 

INSERT INTO MESSAGE CMESS_TO,MESS_FROM,MESS_COMP,MESS_TEXT / MESS_DATE) 

VALUESODest^Id/SComp/aMess^ETDATEO) 

return 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



SET Q' 



wOTED_IDENTIFIER OFF SET ANSI_NULLS ON 

GO 



CREATE Procedure spGState 
actry char(2) = 1 US 1 
AS 

/*****************************************^ 

** File: spState.sql 

** Name: spState 

** Desc: States List 

** 

*******************************************^^ 

** Change History 

**************************************** 

** Date: Author: Description: 

** 12/19/2000 Patrick Zaouter States List 



** 

**************************** 

SELECT STAT_CODE,STATJIAME FROM STATE WHERE STAT_CTRY=3Ctry 



RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spGSysMessage 

aPersId numeric = 0, 

acompld numeric = 0, 

aPersTyp varchar(2) = ' 1 
AS 

IF aPersTyp=*OS' OR 3PersTyp= 1 OP 1 

SELECT MESS_DATE,MESS_TEXT, MES5_ID, MESS_FR0M, (SELECT PERS_TYPE FROM PERSON WHERE 
PERS_ID=MESS_FROM),MESS_COMP,MESS_TYPE, (CASE MESS_FR0M WHEN -7 THEN 'Creditor' WHEN -8 THEN 
! Hauler' WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' ELSE (SELECT PERS_LAST_NAME+ 1 
1 +PERS_FRST_NAME FROM PERSON WHERE PERS ID=MESS_FROM) END) FROM MESSAGE WHERE (MESS_T0=3PersId OR 
MESS„T0=0 OR MESS_T0=-5) AND (MESS_C0MP IN (SELECT COMP ID FROM COMPANY WHERE C0MP_REG=1 AND 
COMP^NAME LIKE (SELECT COMP NAME FROM COMPANY WHERE COMP_ID=aCompId) ) OR MESS C0MP=0) ORDER BY 
MESS_ID DESC 
ELSE IF aPersTyp^'O 1 

SELECT MESS_DATE, MESS_TEXT, MESS_ID, MESS_FROM / (SELECT PERS TYPE FROM PERSON WHERE 
PERS_ID=MESS_FR0M) / ME$S_COMP,MESS_TYPE,(CASE MESS FROM WHEN -7 THEN 'Creditor* WHEN -8 THEN 'Haute 
WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' ELSE (SELECT PERS_LAST NAME+ ' ' +PERS FRST_NAME 
FROM PERSON WHERE PERS_ID=MESS_FROM) END ) FROM MESSAGE WHERE (MESSJTO=aPersId OR MESS~TO=0 OR 
MESS_TO=-5) AND (MESS_C0MP=3CompId OR MESS_COMP=0) ORDER BY MESS_ID DESC 
ELSE IF aPersTyp='P I 

SELECT MESSJ>ATE, MESS_TEXT, MESS_ID, MESS_FROM, (SELECT PERS_TYPE FROM PERSON WHERE 
PERS_ID=MESS_FROM) / MESS_COMP,MESS_TYPE,(CASE MESS_FROM WHEN -7 THEN 'Creditor 1 WHEN -8 THEN 'Haule 
WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' ELSE (SELECT PERS_LAST_NAME+ ' 1 +PERS FRST_NAME 
FROM PERSON WHERE PERS I 



D=MESS_FROM) END) FROM MESSAGE WHERE (HESS TO=3PersId OR MESS_TO=0 OR 
MESS_TO=-2) AND (MESS_COMP=SCompId OR MESS_COMP=0) ORDER BY MESS_ID DESC 
ELSE IF aPersTyp='S* 

SELECT MESS_DAT£, MESS_TEXT, MESS_ID, MESS_FROM, (SELECT PERS TYPE FROM PERSON WHERE 
PERS_ID=MESS_FROM),MESS_COMP,MESSjrYPE,(CASE MESS_FROM WHEN -7 THEN 'Creditor* WHEN -8 THEN 'Hauler 
WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' ELSE (SELECT PERSJLASTJIAME+ ' '+PERS_FRST_NAME 
FROM PERSON WHERE PERS_ID=MESS_FROM) END) FROM MESSAGE WHERE (MESS T0=3PersId OR MESS TO=0 OR 
MESS_T0=-3) AND (MESS_C0MP=3CompId OR MESS_COMP=0) ORDER BY MESS_ID DESC 
ELSE IF 3PersTyp='T' 

SELECT MESS_DATE / MESS_TEXT, MESS_ID, MESS_FROM, (SELECT PERS TYPE FROM PERSON WHERE 
PERS_ID=MESS_FROM) / MESS_COMP,MESSJTYPE / (CASE MESS_FROM WHEN -7 THEN 'Creditor* WHEN -8 THEN 'Hauler 
WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' ELSE (SELECT PERS LAST_NAME+ ' '+PERS_FRST NAME 
FROM PERSON WHERE PERS_ID=MESS_FROM) END) FROM MESSAGE WHERE (MESS T0=3PersId OR MESS_TO=0 AND 
MESS_COMP=0 OR MESS_T0=-8) ORDER BY MESS ID DESC 
ELSE IF 3PersTyp='C 

SELECT MESSJJATE^ESSJTEXT, MESS_ID, MESS FROM, (SELECT PERS_TYPE FROM PERSON WHERE 
PERS_ID=MESS - FROM) / MESS_COMP,MESS_TYPE / (CASE MESS_FROM WHEN -7 THEN 'Creditor' WHEN -8 THEN 'Hauler 
WHEN -6 THEN 'Administrator' WHEN 0 THEN 'System' ELSE (SELECT PERS_LASTJIAME+ ' * +PERS_FRST_NAME 
FROM PERSON WHERE PERS_ID=MESS_FROM) END) FROM MESSAGE WHERE (MESS_T0=3PersId OR (MESS TO=0 OR 
MESS_TO=-7) AND (MESS C0MP=3CompId OR MESS COMP=0)) ORDER BY MESS ID DESC 
ELSE IF 3PersTyp='A l 



.ELECT MESSJ>ATE,MESS TEXT, MESS_ID / MESS_FROM, (SELECT PERS_TYPE FROM PERSON WHERE 
PERS„ID=MESS_FROM),HESS_COMP / MESS TYPE, (CASE HESS FROM WHEN -7 THEN 'Creditor' WHEN -8 THEN 'Hauler 
WHEN -6 THEN 'Administrator* WHEN 0 THEN 'System* ELSE (SELECT PERS_LAST_NAME+ ' ' +PERS FRST_NAME 
FROM PERSON WHERE PERS ID=MESS FROM) END) FROM MESSAGE WHERE (MESS_TO=S)PersId OR MESS_TO=0 AND 
MESS COMP=0 OR MESS TO=-6) ORDER BY MESS ID DESC 
RETURN 
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SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED_ID£NTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spGTempBrand 
acompld numeric = 0 
AS 

SELECT TEMP_BRAN ID, TEMP BRAN NAME FROM TEMP_BRAND WHERE TEMP_BRAN_C0MP=3CompId 
RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spGTFl 

acompld numeric = NULL, 

SType varcharCIO) = NULL 
As 

SELECT COMP_ID FROM COMPANY WHERE 

COHPJIAME LIKE (SELECT COMPJIAME FROM COMPANY WHERE COMP ID=3CompId) 
AND C0MP_REG=1 AND (COMP_TYPE IN CO'/S') AND 3Type='P' OR aTypeO'P 1 AND COMP_TYPE= ' P ' ) 
return ~ 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spGTF2 

acompld numeric = NULL, 

SType varchardO) = NULL 
As 

SELECT DISTINCT PLAC_LOCL, C SELECT LOCL_CITY+ , / «+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=PLACJ_OCL) AS 
EXPR FROM PLACE WHERE PLAC_C0MP=3CompId AND PLAC _TYPE=aType AND PLAC ENBL=1 ORDER BY EXPR 
return ~ ~ 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spGTradingFloor 
3Cont_typ varchardO) = NULL, 
3Locl_Id numeric = NULL, 
3Comp_Id numeric = NULL, 



3User_Id numeric = NULL, 
auserjype chard) = 'P', 
ashipping numeric = 1 
AS 

IF auser Type='P' 
BEGIN 

IF aCont typ='Cust l 

BEGIN 

IF 3User_Id IS NOT NULL 
BEGIN 

SELECT 

cont_id, 

cont_labl, 

cont_bid_truc=CASE ISNULL(cont_of f r_truc, ' -1 ' ) 
WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHARH ' ; 1 + 

CAST((SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
(BID_PRCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP FROM LOCL=3Locl Id AND 
SHIP_TOJ_OCL=SHIP_FROM_LOCL) y O)-ISNULL( (SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM L0CL=3Locl Id AND SHIP TO_LOCL=BID_TO__LOCL) ,0) )=EXPR1 ) AS VARCHARH ' ; ' + 

CAST(BID__BUYR_COMP AS VARCHAR) 

FROM (SELECT BID_C0NT, BID_PRCE+ I SNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Id AND SHIP_TO_LOCL=SHIP_FROM_LOCL) ,0)-ISNULL( ( SELECT SHIP_PRCE TRUC FROM 
SHIPPING WHERE SHIP_FR0M_L0CL=3Loc L Id AND SHIP_TO_LOCL=BID_TO_LOCL) ,0) AS 
EXPR1,BID_BUYR_C0MP=(SELECT PERS COMP FROM PERSON WHERE PERS ID=BID_BUYR) FROM BID WHERE 
BID SIZE=0)Q WHERE BID_CONT=CONT ID ORDER BY EXPR1 DESC) 
ELSE 

(CASE 

SUBSTRI NG( REVERSE ( cont_offr_t rue) , PATINDEX( '%;%', REVERSE (cont_offr_t rue) )+1 , PATINDEX( '%;%', right (REV 
ERSE(cont_off r^truc), Len(cont_of f r t ruc)-PATINDEX ('%;%* ,REVERSE(cont of f r_truc) ) ) )-1) 
WHEN 'V THEN 

(SELECT TOP 1 expr1 = CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FR0M LOCL IN (SUBSTRING( cont_of f r_truc,1 , PATINDEX( '%;%', cont~of f r_truc)-1 ) ) AND 
SHIP_TO_LOCL=3Locl_Id) / 0)-ISNULL( (SELECT SHIP_PRCE_TRUC FR 



..OM SHIPPING WHERE SHIP_TO_LOCL=BID_TOJ_OCL 
AND SHIP_FROM_LOCL IN ( SUBSTRING ( cont_offr_t rue, 1 , PATINDEXC '%;%', cont_of f r_truc)-1 ) ) ) ,0) ) AS 
VARCHARH* ; 1 + 
CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
< REVERSE C SUBSTRING ( REVERSE (cont_offr_t rue), 1 , PATINDEXC 1 %;% ' , REVERSE (cont_offr_t rue) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID BUYR) AND TRST_C0NT&P0WER(2, CONT ID-DOO) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BIdIbUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST.COMP IN 
(SUBSTRING(cont_offr true, PATINDEXC '%;%', cont_of f r truc)+1 ,PATINDEX( '%;%', right (cont_offr_t rue, Len(c 
ont off r_truc)-PATINDEX('%;% , / cont_offr_truc)))-1)T AND TRST C0NT&P0WER(2, CONT ID-DOO) AND 
CASTC (BID_PRCE+ISNULL( C SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING (cont_off r_truc,1, PATINDEXC %;% ' , cont_of f r_truc)-1 ) ) AND SHIP_TO_LOCL=aLocL_Id) / QD- 
ISNULL( (SELECT SHIP J>RCE_JRUC FROM SHIPPING WHERE SHIP JTOJ_OCL=BID_TO_LOCL AND SHIP_FROM_LOCL HI 
CSUBSTRING(cont_offr_truc,1 , PATINDEXC %;T , cont_of f r t ruc)-1 ) ) ) ,0) ) AS 

VARCHAR)=CAST((Q.BID_PRCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING(cont of f r_truc,1 ,PATINDEXC %;%* ,cont_of f r_truc)-1) ) AND SHIP_TO_LOCL=SLocl_Id) ,0)- 
ISNULL(( SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP_TO LOCL=Q. BID_TO~LOCL AND SHIP~FROM LOCL IN 
(SUBSTRINGCcont of f rJiruc^PATINDEXC %;% 1 ,cont_of f r_truc)-1 ))),())) AS VARCHAR)) 

AS VARCHAR)+ 1 ; 1 + 

CASTCCSELECT PERS 



_COHP FROM PERSON WHERE PERS ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=0 AND BID_CONT=CONT~ID AND 
(REVERSECSUBSTRING(REVERSE(cont_off r_truc),1 / PATINDEX( , %;% , / REVERSE(cont - offr_truc))-1))) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=BIDJ3UYR> AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COHP IN 
(SUBSTRING (cont_offr_t rue, PATINDEX( '%;%' , cont_of f r~truc)+1 ,PATINDEX( '%;% ' , right (cont_offr_t rue, Len( 
ont offr truc)-PATINDEX( '%;%', cont of f r_t rue) ))-1) ) AND TRST CONTSPOWER(2, CONT ID-DOO) ORDER BY 
EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CAST(BID_PRCE AS VARCHARH ' ; ' + 
CASH 

(SELECT SUH(BID_QTY) FROM BID WHERE BID_SIZE=0 AND BID CONT=CONT_ID AND 
( REVERSE (SUBSTRING(REVERSE(cont_offr_t rue) ,1 ,PATINDEX( '%;%' , REVERSE ( con t_offr_t rue) )-1 )) ) NOT IN 
(SELECT DISTINCT TRST NOTJRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID BUYR) AND~TRST CONT&POWER(2, CONT ID-DOO) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS ID=BID BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP IN 



(SUBSTRIN6(cont_off r_truc, PATINDEX( 1 %;% ' , cont_of f r_truc)+1 ,PATINDEX( ' %;% ' , right (cont_of f r_truc, len(c 
ont offr truc)-PATINDEX('%;% , / cont of f r_t rue) ) )-1 ) ) AND TRST C0NT&P0WER(2, C0NT_ID-1 )<>0) AND 
CAST(BID~PRCE AS VARCHAR )=CAST(Q. BID PRCE AS VARCHAR)) 
AS VARCHAR)+ 1 ; 1 + 

CASK (SELECT PERS_COMP FROM PERSON WHERE PERS_ID-BID_BUYR) AS VARCHAR) 

FROM BID Q WHERE BID_SIZE=0 AND BID_CONT=CONT~ID AND" 
( REVERSE ( SUBSTRING ( REVERSE (cont_offr truc) / 1,PATINDEX( 1 %;%' , REVERSE (con t offr truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS^COMP FROM PERSON WHERE 
PERS ID=BID_BUYR) AND TRST C0NT&P0WER(2, CONT_ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS"ID=BID_BUYR) NOT IN (SELECT DISTINCT TrIt NOT TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRIN6(cont_off r_truc,PATINDEX( '%;%' ,cont_pf f r truc)+1,PATINDEX( '%;%', right (cont_of f r_truc, Len(c 
ont_offr truc)-PATINDEX('%;% 1 / cont_offr truc)))-D) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
END) 
END, 

cont_of f r_truc, 

cont_bid_rai l=CASE ISNULL(cont_of f r_rai I, '-1 1 ) 
WHEN '-V THEN 
(SELECT TOP 1 vaL=CAST(expr1 AS VARCHARH 1 ; ' + 

CASK (SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
(BID PRCE+ISNULLUSELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP_FROM LOCL=aLocl_Id AND 
SHIP"TO_LOCL=SHIP_FROM_LOCL),0)-ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=3Locl_Id AND SHIP_TO_LOCL=BID_TO_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ 1 ; 1 + 

CAST(BID_BUYR_COMP AS VARCHAR) 

FROM (SELECT BID_CONT, BID_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROMJ_OCL=aLocl_Id AND SHIP _TOJ_OCL=SHIP_FROMJ_OCL) ,0)-ISNULL( (SELECT SHIP J>RCE_RAIL FROM 
SHIPPING WHERE SHIP FROM L0CL=3Loc l~Id AND SHIP TO~LOCL=BID TO ' 



wOCL),0) AS 

EXPR1,BID_BUYR COMP=(SELECT PERS COHP FROM PERSON WHERE PERS_ID=BID BUYR) FROM BID WHERE 
BID_SIZE=1)Q WHERE BID_C0NT=C0nOd ORDER BY EXPR1 DESC) 
ELSE 
(CASE 

SUBSTRING ( REVERSE ( con t_offr_rai L),PATINDEX( '%;%', REVERSE C con t of fr__rai L) )+1 , PATINDEX( '%;%', right (REV 
ERSECcont^offr.rail^lenCcoM^offr rai l)-PATINDEX( 1 %;% 1 , REVERSE ( con t_offr_rai L))))-1) 
WHEN "T THEN 

(SELECT TOP 1 expr1=CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN ( SUBSTRING ( cont_offr_rai 1,1 , PAT IN D EX ( '%;%', cont of f r_rai L)-1 ) ) AND 
SHIP TO_LOCL=aLocl Id) ,0)-ISNULL( ( SELECT SHIP_PRCEJ*AIL FROM SHIPPING WHERE SHIP_TO LOCL=BID_TO_LOCL 
AND SHIP_FROM_LOCL IN ( SUBSTRINGCcont of f r_rai 1,1 ,PATINDEX( 1 %;% ' , cont_of f p rai U-1 ) ) ) ,0) ) AS 
VARCHAR)+ ' ; 1 + 

CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE BID SIZE=1 AND BID CONT=CONT ID AND 
( REVERSE( SUBSTRING (REVERSE(cont_offr_rai t) , 1 , PATINDEX( '%;% 1 , REV ERSE (con t_offr_rai L) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP= (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_C0NT&P0WER(2, CONT ID-DOO) AND (SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_of fr_rai I, PATINDEXC %;%' ,cont_of f r^rai L)+1 ,PATINDEX(' %;%', right (cont of f r_rai I, ten(c 
ont_off r_rail)-PATINDEX( , %;% , / cont_offr_rail)))-1)> AND TRST C0NT&P0WER(2,C0NT_ID-1 )<>0) AND 
CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING(cont_offr_raiL / 1,PATINDEX( , %;% , / cont_off r_rail)-1)) AND SHIP TO LOCL=aLocL_Id) ,0)- 
ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_T0_L0CL=BID JTO L0CL~AND SHIP_FROM_LOCL IN 
(SUBSTRING(cont of f r_rai 1,1 ,PATINDEX( 1 %;%• ,cont_off r_rai L)-1 )) ),0) ) AS 
VARCHAR)=CAST((Q.BID PRCE+ISNU 



LLC (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING(cont_offr_rail / 1 / PATINDEX('%;%' ,cont_off r_raiL)-D) AND SHIP_TO_LOCL=aLocl_Id),0)- 
ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=Q.BID TO_LOCL AND SHIP_FROH_LOCL IN 
(SUBSTRING(cont_offr_rail ^PATINDEX^^'/Conl^off r_rai L)-1 ) ) ) ,0) ) AS VARCHAR)) 
AS VARCHAR)+ , ; , + 

CASK (SELECT PERS COHP FROM PERSON WHERE PERS_ID=BID BUYR) AS VARCHAR) 

FROM BID Q WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_off r_rai ,PATINDEX( '%;%' , REVERSE (con t_offr_r a i L))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST CONT&POWER(2, C0NT_ID-1 )<>0) AND (SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_offr_rail / PATINDEX('%;%Scont_offr_rail)+1 / PATINDEX('%;% , / right(cont_offr - raiL,len(c 
ont offr rail)-PATINDEX( , %;% , / cont_offr_raiL)))-1>) AND TRST C0NT&P0WER(2, CONT ID-1)<>0) ORDER BY 
EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CAST(BID_PRCE AS VARCHAR)+ 1 ; 1 + 
CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE BID SIZE=1 AND BID CONT=CONT ID AND 
(RE VERS E( SUBSTRING ( REVERSE ( con t offr rai I) ,1 , PATINDEX( ' %;% 1 , REVERSE (cont_offr rail))-1))) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 



PERS_IO=BID_BUYR) AND TRST_C0NT&P0WER<2, CONT_ID-1)<>0) AND (SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING (cont^off r_rai l,PATINDEX( '%;%' ,cont_of f r'rai l)+1 ,PATINDEX ('%;%' , right (cont_of f r_rai I, Len(c 
ont - offr - rail)-PATINDEX( , %;%' / cont - offr_raiL)))-1)) AND TRST_CONT&POWER(2, C0NT_ID-1 )<>0) AND 
CAST(BID~PRCE AS VARCHAR)=CAST(Q. BID PRCE AS VARCHAR)) 
AS VARCHAR)-** 1 ; 1 + 

CASK (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=1 AND BID_CONT=CONT ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_offr_rai I) ,1 , PATINDEX( '%;%' , REVERSE(cont_of f r_rai l))-1))) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS ID=BID_BUYR) AND TRST CONT&POWER(2, C0NT_ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS~ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRIN6(cont off r_rai l,PATINDEX( '%;%' ,cont_of f r_rai l)+1,PATINDEX( '%;%', right (cont offr_rail, Len(c 
ont_offr_rail)-PATINDEX( , %;% , ,cont offr raU)7)-1)T AND TRST CONT8POWER(2, CONT ID-DOO) ORDER BY 
EXPR1 DESC) 
END) 
END, 
cont_of f r_rai I 
FROM 
(SELECT 
cont_id, 
cont_labl, 
cont ordr, 

cont~offrjtruc=(SELECT TOP 1 va L=CAST(of f r FROM Loci AS VARCHAR)+ 1 ; 1 + 
CAST(offr_selr comp AS VARCHAR)+ 1 ; * + 
CAST(expr AS VARCHAR)+' ; '+ 
CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE (OFFR — PRCE+OF F R_FOB* I SNULL( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP FROM LOCL=OFFR FROM LOCL AND SHIP TO L0CL=3Locl Id),0))=EXPR AND OFFR SIZE=0 AND 



OFFR_C0NT=C0NT_ID AND aComp_Id NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE 
TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=0F FR_SELR) AND TRST_CONT&POWER(2, CONT_ID- 
DOO) AND (SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT 
TRST NOTJTRST FROM TRUST WHERE TRST C0MP=3Comp Id AND TRST CONT&POWER(2, CONT ID-DOO)) 
"AS VARCHAR)+';'+ 

CAST(off r_fob AS VARCHAR)+ 1 ; 1 + 

CASUoff r_bran comp AS VARCHAR) 

FROM (SELECT 0?FR_FOB,OFFR FROM_LOCL / EXPR=OFFR PRCE+OFFR_ FOB*ISNULL( (SELECT SHIP_PRCEJTRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROMJ_OCL AND 

SHIP_TO_LOCL=aLocl_Id),0),OFFR_aTY / OFFR_SELR_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) , OF FR_BRAN_COMP=( SELECT BRAN_COMP FROM BRAND WHERE BRAN ID=OF FR_BRAN) FROM OFFER 
WHERE OFFR SIZE=0 AND OFFR CONT=CONT ID AND 3Comp_Id NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM 
TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AND 

TRST_CONT&POWER(2,CONT_ID-1)<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=OFF R_BRAN> NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=aComp_Id AND TRST_CONT&POWER(2, CONT_ID- 
1)O0))Q ORDER BY expr ASC), 

cont offr rai L=(SELECT TOP 1 val=CAST(of f r FROM locL AS VARCHARH ' ; ' + 

CASUoffr selr comp AS VARCHAR) + *; '+ 

CAST(expr~AS VARCHAR )+ ' ; 1 + 

CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE (OFFRJ>RCE+OFFR_FOB*ISNULL( (SELECT SHIP_PRCE RAIL FROM 
SHIPPING WHERE SHIP _FROMJ_OCL=OFFR_FROM J.OCL AND SHIP_T0_L0CL=3Loc l_Id) ,0) ) =EXPR AND 0FFR_SIZE=1 AND 
OFFR_CONT=CONT_ID AND 3Comp_Id NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE 



TRST_COMP=(SELECT PERS_COHP FROM PERSON WHERE PERS ID=OFFR SELR) AND TRST_CONT&POWER(2, CONT_ID- 
DOO) AND (SELECT BRAN COMP FROM BRAND WHERE BRAnIiD=OFFR~BRAN) NOT IN (SELECT DISTINCT 
TRSTJIOTJRST FROM TRUST WHERE TRST_COMP=aComp Id AND TRST~CONT&POWER(2, C0NT_ID-1)<>0) ) 

AS VARCHAR)+ 1 ; 1 + 

CASTCoff rjfob AS VARCHAR)+ ' ; ' + 

CASKoff r~bran_comp AS VARCHAR) 

FROM (SELECT OFFR_F0B / OFFR_FROM_L0CL / EXPR=0FFR PRCE+OFFR_FOB*ISNULL( ( SELECT SHIP_PRCE RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM LOCL AND 

SHIP_TO_LOCL=aLocl_Id) / 0) / OFFR_QTY / OFFRlSELR_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR),OFFR_BRAN_COMP= (SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=OFFR_BRAN) FROM OFFER 
WHERE 0FFR_SIZE=1 AND OFFR_CONT-CONT_ID AND 3Comp_Id NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM 
TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AND 

TRST_C0NT&P0WER(2,C0NT_ID-1)O0) AND (SELECT BRAN_COMP FROM BRAND WHERE BRAN ID=OFFR BRAN) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST C0MP=3Comp_Id AND TRST C0NT&P0WERC2, CONT ID- 
1)<>0))Q ORDER BY expr ASC) 

FROM CONTRACT WHERE CONT_ID IN (SELECT DISTINCT CONT_ID FROM CONTRACT WHERE 
ISNULL(P0WER(2,C0NT_ID-1)&(SELECT DISTINCT TRST_CONT FROM TRUST WHERE TRST_COMP=3Comp ld),0)=0 AND 
POWER(2,CONT_ID-1)8( SELECT COMP_PREF FROM COMPANY WHERE COMP_ID=aComp_Id)<>0 AND POWER(2,CONT ID- 
DESELECT PERS_PREF FROM PERSON WHERE PERS_ID=3User Id)O0))Q0 ORDER~BY CONT ORDR 



END 

ELSE —aUser Id IS NULL 
BEGIN 

SELECT 

contMd, 

cont_labl, 

cont bid truc=CASE ISNULL(cont_of f r truc / '-1 , > 
WHEN '-V THEN 
(SELECT TOP 1 vaL=CAST(expr1 AS VARCHAR)+ » ; ' + 

CASTC (SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
(BID_PRCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP~FR0M_L0CL=3Loc L_Id AND 
SHIP TO LOCL=SHIP FROMJ_OCL),0)-ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP~FR0M_L0CL=3Locl_Id AND SHIP_TO_LOCL=BID _TO_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; ' + 
~CAST(BID_BUYR_COMP AS VARCHAR)" 

FROM (SELECT BID_CONT / BID_PRCE+ISNULL( (SELECT SHIP_PRCEJTRUC FROM SHIPPING WHERE 
SHIP FROM L0CL=3Locl Id AND SHIP TO LOCL=SHIP_FROM LOCL),0)-TsNULL( (SELECT SHIP PRCEJTRUC FROM 
SHIPPING WHERE SHIP_?ROM_LOCL=aLocCld AND SHIPjnT LOCL=BID_TO_LOCL) ,0) AS 
EXPR1,BID_BUYR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE 
BID SIZE=0)Q WHERE BID_CONT=CONT_ID ORDER BY EXPR1 DESC) 
"ELSE 

(CASE 

SUBSTRING(REVERSE(cont_of f r_t rue) , PATINDEX( '%;%', REVERSE(cont — of f r_truc) )+1 , PATINDEX( '%;%', right (REV 
ERSE(cont_of f r_t rue) , Len(cont_of f r_truc)-PATINDEX( 1 %;% 1 , REVERSE ( cont_offr_t rue) ) ) )-1 ) 
WHEN 'I 1 THEN 

(SELECT TOP 1 expr1=CAST((BID_PRCE+ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN ( SUBSTRING ( cont_offr_t rue, 1 , PATINDEX( 1 %;% '7cont~of f r_t ruc)-1 ) ) AND 
SHIP_TO_LOCL=SLocl_Id) / 0)-ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TOJ.OCL=BID_TO_LOCL 
AND SHIP_FROMJ_OCL~IN (SUBSTRING(cont_of f r_t ruc,1 , PATINDEX( ' %;% 1 , cont_of f r_t ruc) r 1 ) ) ) ,0) ) AS~ 
VARCHAR)+ I ; 

CAST( 

(SELECT SUM(BID QTY* 



. FROM BID WHERE BI0_SIZE=0 AND BID CONT=CONT ID AND 
(REVERSECSUBSTRINGCREVERSECcont^ff^trucJ/^PATINDEXCX/X'^EVERSECcont^ff r_truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRSTJTOMP IN 
(SUBSTRING(cont_offr„truc / PATINDEX( , %;% , / cont_offr_truc)+1,PATINDEX( , %;% , / rnght(cont of f r_t rue, Len(c 
ont_off r_truc)-PATINDEX( , %;%' / cont_offr_truc)))-D) AND TRST C0NT&POWER(2, CONT 10-1)00) AND 
CAST((BID_PRCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING(cont_off r - truc / 1 / PATINDEX( l %;%' / cont_off r truc)-D) AND SHIP TO L0CL=3LocL ld),0)- 
ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL~AND SHIP_FR0M_L0CL IN 
(SUBSTRING(cont_offr_truc,1,PATINDEX( , %;% 1 ,cont_off r_t ruc)-1 > ) ),0> ) AS 

VARCHAR)=CAST((Q.BID_PRCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM LOCL IN 
( SUBSTRING (cont_off r__t rue, 1 ,PATINDEX( '%;% ' , cont_of f r_t ruc)-1 ) > AND SHIP_TO_L0CL=aLocl~Id) / 0)- 
ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP TO_LOCL=Q. BID_TO_LOCL AND SHIP_FROM LOCL IN 
(SUBSTRING(cont offr truc,1 ,PATINDEX( '%;%' ,cont offr t ruc)-1 ) ) ) ,0) ) AS VARCHAR)) 
AS VARCHAR)+';'+ 

CAST( (SELECT PERS COMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=0 AND BID_CONT=CONT_ID AND 
(REVERSE(SUBSTRING ' 



(REVERSE(cont - offr_truc) / 1 / PATINDEXC , %;% , / REVERSECcont_offr_truc))-1))) NOT IN 
(SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST_COMP= ( SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOTJRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING (cont_offr_t rue, PAT INDEX ( '%;%', cont_of f r_truc)+1 , PATINDEX( '%;%', right (con t_offr truc,len(c 
ont_off r_truc)-PATINDEX( , %;%',cont_off r truc)))-1)) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CAST(BID_PRCE AS VARCHARH ' ; ' + 
CAST( 

(SELECT SUM(BID_QTY) FROM BID WHERE BID SIZE=0 AND BID_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont of fr_t rue) ,1 ,PATINDEX( '%;%', REVERSE(cont_of f r J: rue) )-1 )) ) NOT IN 
(SELECT DISTINCT TRST_N0T TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SU8STRINe(cont - off^_truc / PATINDEX( , %;% , / cont_offr_truc)+1 / PATINDEX( , %;% , , right (cont of f r_truc, len(c 
ont_offr_truc)-PATINDEX('%;% t / cont_off r_t ruc)T)-1 ) ) AND TRST_C0NT&P0WER(2, CONT_ID-1 )<>0) AND 
CAST(BIDJ>RCE AS VARCHAR)=CAST(Q . BID_PRCE AS VARCHAR)) 

AS VARCHARH 1 ; ' + 

CAST( (SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=0 AND BID CONT=CONT~ID AND* 
(REVERSE (SUBSTRING (REVERSE (con t 



_off r^truO^PATINDEXC^K^REVERSECcont^off r_truc) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 



PERS_ID=BID_BUYR) AND TRST_CONT&P0WER(2, CONT ID-DOO) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRING(cont_off r_t rue, PATINDEX( ' %;% 1 , contjrff r~t ruc)+1 ,PATINDEX( ' %;T , right (cont_offr truc,len(c 
ont_offr_truc)-PATINDEX( , %;% , / cont of f r_t ruc)7)-1 )) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
END) 
END, 

cont_of f r_truc, 

cont_bid raiL-CASE ISNULL(cont offr rail^-V) 
WHEN '-T' THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHARH 1 ; 1 + 
CAST( 

(SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
(BIDJ>RCE+ISNULL( (SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE SHIP_FROM L0CL=3Loc l_Id AND 
SHIP_TO_LOCL=SHIP_FROM_L0CL),0)-ISNULL((SELECT SHIPJ>RCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM L0CL=3Locl_Id AND SHIP TO LOCL=BID_TO_LOCL) ,0) )=EXPR1) 

AS VARCHARH ' ; 1 + 

CAST(BID_BUYR_COMP AS VARCHAR) 

FROM (SELECT BID JTONT, BID_PRCE+I SNULL( ( SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Id AND SHIP_TO_LOCL=SHIP_FROM LOCL)70)~ISNULL( (SELECT SHIP_PRCE RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=aLoc l_Id AND SHIP_TO~LOCL=BIDJTO LOCL),0) AS 
EXPR1 / BID_BUYR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) FROM BID WHERE 
BID_SIZE=1)Q WHERE BID_C0NT=CONT_ID ORDER BY EXPR1 DESC) 
ELSE 
(CASE 

SUBSTRING(REVERSE(cont_offr_rail) / PATINDEX( , %;%' / REVERSE(cont_offr_rail))+1 / PATINDEX('%;% l / right(REV 
ERSE(cont_offr rai I), len(cont_of f r_rai l)-PATINDEX( '%;%' , REVERSE (cont_offr_rai I) )))-1) 
WHEN 'V THEN 

(SELECT TOP 1 expr1=CAST((B!D_PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 



5HIP_FR0MJ_0CL IN (SUBSTRING(cont_of f r_rai 1,1 ,PAT1NDEX( '%;%' ,cont_of f r rail)-D) AND 

SHIP_TO_LOCL=aLocl Id) ,0)-ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP TOJ_OCL=BID_TO_LOCL 
AND SHIP_FROH_LOCL IN (SUBSTRING(cont of f r^rail, 1 ,PATINDEX( * %;% 1 , cont_of f r_rail>-1 ) ) ) ,0) ) AS 
VARCHAR)+ 1 ; '+ 
CASTC 

(SELECT SUM(BID_QTY) FROM BID WHERE BID_SI2E=1 AND BID_CONT=CONT ID AND 
( REVERSE (SUBSTRING (REVERSE ( cont_offr_rai L>,1 ,PATINDEX( ' %;%' , REVERSE ( cont_of f r raU))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_C0MP= ( SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST„C0NT&P0WER(2, CONT_ID-1)<>0) AND (SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRING(cont_offr_raiL,PATINDEX('%;% , / cont_offr"rai L)+1 ,PATINDEX( '%;%*, right (cont_of f r_rai I, Len(c 
ont_offr_rail)-PATINDEX( l %;% , ,cont_offr_raiL)))-1)T AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND 
CAST( (BID — PRCE+ISNULLC (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRING(cont_offr_raiL / 1 / PATINDEX('%;% , / cont_off r paiL)-1)> AND SHIP TO L0CL=3LocL ld),0)- 
ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP TO LOCL=BID_TO_LOCL~AND SHIP_FROM LOCL IN 
(SUBSTRING (cont_off r_rai l,1,PATINDEX( '%;%' ,cont_off r_rai 1 7-1 ))),0)) AS 

VARCHAR)=CAST( (Q. BID_PRCE+ISNULL( (SELECT SHIP_PRCE_RAI L FROM SHIPPING WHERE SHIP FROM_LOCL IN 
(SUBSTRING(cont_offr - rail / 1 / PATINDEX( , %;%' / cont_offr_raiL)-D) AND SHIP_TO LOCL=S)LocL ld),0)- 
ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=Q. BID_TO_LOCL AND SHIP~FROM_LOCL IN 
(SUBSTRING(cont of f r_rai 1,1 , PATINDEX ( 1 %;% 1 , cont_of f p_rai L)-1) ) > ,0) ) AS VARCHAR)) 
AS VARCHARH ' ; 1 + 

CAST((SELECT PERS COMP FROM PERSON WHERE PERS ID 



=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID_SIZE=1 AND BID_CONT=CONT ID AND 
( REVERSE (SUBSTRING( REVERSE (cont_offr_rai l),1 y PATINDEX( '%;%', REVERSE ( cont_offr_r a i l))-1))) NOT IN 
(SELECT DISTINCT TRST__NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRIN6(cont_offr_rail / PATINDEX('%;%' / cont_offr rai L)+1 ,PATINDEX( '%;% 1 , right (cont_offr rail,len(c 
ont_offr_raU)-PATINDEX('%;% , / cont_offr rail)))-D) AND TRST CONT&POWER(2, CONT ID-DOO) ORDER BY 
EXPR1 DESC) " " 

ELSE 

(SELECT TOP 1 expr1=CAST(BID_PRCE AS VARCHAR)* 1 ; ' + 
CASTC 

(SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT ID AND 
(REVERSE(SUBSTRINGCREVERSECcont_offr rai L) , 1 , PATINDEX( '%;% ' , REVERSE (cont_of f r rail))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT ID-DOO) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRING(cont_of fr_rai l,PATINDEX( '%;%' ,cont_of f r rai ,PATINDEX( 1 %;%' , right (cont of f r rai I, len(c 
ont_off r_rail)-PATINDEX(%-%',cont_offr raU)))-1)) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND 
CAST(BIDJ>RCE AS VARCHAR )= CAST (Q. BID PRCE AS VARCHAR)) 

AS VARCHAR)+'; ,+ 



CAST((SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID_SIZE=1 AND BID CONT=CONT~ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_of fr_rai l)7*l / PATINDEXC '%;%', REVERSE Ccont offr rail))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRSTjrONT&POWER(2, CONT ID-DOO) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP IN 
<SUBSTRING(cont_offrjraU,PATINDEX('%;^ of f r_raU, lenCc 

ont_offr_rail)-PATINDEX( , %;% , / cont_offr rail)))-1)) AND TRST CONT&POWER(2, CONT ID-1)<>0) ORDER BY 
EXPR1 DESC) " ~ 

END) 
END, 
cont offr_rail 
FROM" 
(SELECT 
cont_id, 
cont^LabL, 
cont_ordr, 

cont_off r_truc=( SELECT TOP 1 val=CAST(of f r FROM loci AS VARCHAR)+ ' ; 1 + 
CAST(off r_selr_comp AS VARCHAR)* ' ; 1 + 
CAST(expr~AS VARCHAR)* 1 ; 1 + 

CAST( (SELECT SUM(OFFR_QTY) FROM OFFER WHERE (OFFR PRCE+OFFR_FOB*ISNULL( (SELECT SHIP_PRCE TRUC 
FROM SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM LOCL AND SHIP T0_L0CL=3Loc L Id) , 0) )=EXPR AND 
OFFR_SIZE=0 AND OFFR_CONT=CONT_ID) AS VARCHAR)+ ' ; ' + 

CAST(off rjfob AS VARCHAR)+ 1 ; 1 + 

CAST(of f rjaran^comp AS VARCHAR) 

FROM (SELECT 0FFR_F08,0FFR_FR0M_L0CL / EXPR=OFFR PRCE+OFFR_FOB*ISNULL( (SELECT SHIP PRCE TRUC 
FROM SHIPPING WHERE SHIP FROM LOCL=OFFR FROM_LOCL AND 
SHIP_TO_LOCL=aLocl_Id),Oy,OFFR QTY,OFFR~SELR_ 



COMP=(SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=OFFR_SELR),OFFR BRAN_COMP=( SELECT BRAN COHP FROM BRAND WHERE BRAN_ID=OFFR_BRAN) FROM OFFER 
WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID)Q ORDER BY expr ASC), 

cont_offr_raiL=(SELECT TOP 1 vaT=CASTCof f r FROM_LocL AS VARCHAR)+' ; 1 + 
CAST(off r_selr_comp AS VARCHARH ' ; ' + 
CASTCexpr AS VARCHAR)+ ' ; 1 + 

CASTCCSELECT SUM(OFFR_QTY) FROM OFFER WHERE (OF FR_PRCE+OFFR_FOB*ISNULL( (SELECT SHIP_PRCE_RAIL 
FROM SHIPPING WHERE SHIP_FROM LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL=aLoc l_Id) ,0) )=EXPR AND 
0FFR_SIZE=1 AND OFFR_CONT=CONT_ID) AS VARCHAR)+ ' ; ' + 

CAST(off r_fob AS VARCHAR)+ ' ; 1 + 

CAST(off r"bran_comp AS VARCHAR) 

FROM (SELECT OF FR_FOB,OFFR_FROM LOCL, EXPR=OFFR PRCE+OFFR FOB*ISNULL( (SELECT SHIP PRCE RAIL 
FROM SHIPPING WHERE SHIP_FROM J.OCL=OF FR_FROM_LOCL AND~ " ~ 

SHIP_TO_LOCL=aLocl_Id) / 0),OFFR_QTY,OFFR_SELR_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) , OF FR_BRAN_COMP=( SELECT BRAN COMP FROM BRAND WHERE BRAN ID=OFFR BRAN) FROM OFFER 
WHERE 0FFR_SIZE=1 AND OFFR_CONT=CONT_ID)Q ORDER BY expr ASC) 
FROM CONTRACT)QO ORDER BY CONT ORDR 

END 
END 

ELSE — 3Cont_typ<> 1 Cufct * 
BEGIN 

IF aUser Id IS NOT NULL 
BEGIN 
SELECT 
cont_id, 
cont_labl, 
cont_bid truc=CAS 



E ISNULLCcont off r_truc, *-1 ' ) 

WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHARH* ; ' + 

CASK (SELECT SUM(BID_QTY) FROM BID WHERE BID SI2E=0 AND BID CONT=CONT_ID AND 
(BID_PRCE+ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIPJ=ROM L0CL=3Locl_Id AND 
SHIPJTO_LOCL=SHIP_FROHJ_0CL) / 0)-ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_FR0MJ-0CL=3Locl_Id AND SHIP TO LOCL=BID TO LOCL) ,0) )=EXPR1 ) AS VARCHARH ' ; 1 + 

CAST(BID_BUYR_COMP AS VARCHAR) 

FROM (SELECT B I D_CONT, BID_PRCE+ISNULL( ( SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Id AND SHIPJTO_LOCL=SHIP FROM LOCL),0>-ISNULL( ( SELECT SHIP_PRCE TRUC FROM 
SHIPPING WHERE SHIP_FR0M_L0CL=3LocL Id AND SHIP T0_LOCL=BID TO LOCL),0) AS 
EXPR1,BID_BUYR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE 
BID_SIZE=0)Q WHERE BID_CONT=CONT ID ORDER BY EXPR1 DESC) 
ELSE 

(CASE 

SUBSTRING(REVERSE(cont_off^„t^uc) / PATINDEX( , %;%^REVERSE(cont_off^_t^uc))+1 / PATINDEX( , %;% , ,right(REV 
ERSE(cont_off r_truc),len(cont_off r_truc)-PATINDEX( '%;%' / REVERSE(cont offr truc)))}-1) 
WHEN 'V THEN 



(SELECT TOP 1 expr1=CAST((BID_PRCE+ISNULL((SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN (SUBSTRXNG(cont_of f r_t rue, 1 , PAT INDEX C ' %;% 1 7cont_of f r_truc)-1 ) ) AND 
SHIPJTO_LOCL=aLocl_Id),0)-ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO LOCL 
AND SHIP_FROMJ.OCL IN ( SUBSTRING (cont_offr_t rue, 1 ,PATINDEX( ,cont offr truc)-1) ) ) ,0) ) AS 
VARCHAR)+ 1 ; 1 + 

CASTC 

(SELECT SUM(BID_QTY) FROM BID WHERE BID SIZE=0 AND BID_CONT=CONT ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_offp_truc),1,PATINDEX( , %;% , ,REVERSE(cont_offr_truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERSJTOMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT ID-DOO) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_offr_truc,PATINDEX( , %;%' / cont_offr truc)+1 , PATINDEX( '%;%', right (cont_offr truc,len(c 
ont_off r_truc)-PATINDEX( , %;% , / cont of f r_t rue) ) >-D) AND TRST_CONT&POWER <2,CONT ID-DOO) AND 
CAST((BID_PRCE+ISNULL((SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM LOCL IN 
(SUBSTRING(cont_off rjiruc^PATINDEX^/^cont of f r_truc)-D ) AND SHIP_TOlLOCL=aLocl_Id),0)- 
ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO L0CL=BID TO_LOCL AND SHIP FROM LOCL IN 
(SUBSTRING(cont_offr_truc / 1,PATINDEX( , %;% , / cont_offr_truc)-D)),0>) AS 

VARCHAR)=CAST( (G. BID_PRCE+ISNULL( (SELECT SHIP_PRCE _TRUC FROM SHIPPING WHERE SHIP FROM LOCL IN 
(SUBSTRING(cont_offr - truc / 1 / PATINDEX('%;% , ,cont_off p truc)-D) AND SHIP_T0_L0CL=3LocCld>,0)- 
ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_T0 LOCL=Q. BID_TOJ_OCL AND SHIP FROM LOCL IN 
(SUBSTRING(cont_offr_truc / 1 / PATINDEX( , %;%',cont - offr truc)-D ) ),0) ) AS VARCHAR)) 
AS VARCHAR)+ 1 ; ' + 

CAST((SELECT PERS_COMP FROM PERSON WHERE P c 



t.RS ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=0 AND BID_CONT=CONT~ID AND 
(REVERSE(SUBSTRING(REVERSE7cont_of f r_truc) ,1, PATINDEX( '%;%' , REVERSE (con t of f r_t rue) >-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST _COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST C0NT&P0WERC2, CONT ID-DOO) AND (SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_off rjtruc, PATINDEX( ' %;% ' ,contj>f f r~truc)+1,PATINDEX( *%;%' , right (cont_off r truc,len( 
ont_offr_truc)-PATINDEX( , %;% , ,cont_offr_truc)))-D) AND TRST_CONT&POWER(2,CONT_ID-1)<>0) ORDER BY 
EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CAST(BID_PRCE AS VARCHAR)+ 1 ; ' + 
CASK 

(SELECT SUM(BID QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT ID AND 
( REVERSE ( SUBSTRING ( REVERSE (cont offr true) , 1 , PATINDEX( '%;%' , REVERSE (con t__offr truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_C0NT&P0WER(2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP IN 
( SUBSTRING (cont_off r_t rue, PATINDEX( ' %;% ' , cont_of f r~t ruc)+1 , PATINDEX( '%;% fright (cont_off r_t rue, ten( 
ont_off r_truc)-PATINDEX( , %;%' y cont_off r_truc) ) )-1 )) AND TRST_C0NT&P0WER(2, CONT_ID-1 )<>0) AND 
CAST(BID_PRCE AS VARCHAR )=CAST(Q. BID PRCE AS VARCHAR)) 

AS VARCHAR)+';'+ 

CAST((SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BI D_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=0 AND BID CONT=CONT ID AND 
(REVERSE (SUBSTRING ( REVERSE?cont offr trucT/l, PATINDEX( '%;%' , REVERSE (cont 



off r_truc))-1)>) NOT IN 

(SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BIO_BUYR) AND TRST CONT&POWERC2, CONT_ID-1 )<>0) AND (SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COHP IN 
(SUBSTRING(cont_offr_t rue, PAT INDEX ( '%;%', cont_of f r_truc)+1 , PATINDEX( '%;%' , right (con t of f r_t rue, ten 
ont„offr_truc)-PATINDEX('%;% , / cont_offr_truc)))-D) AND TRST_C0NT&P0WER(2,C0NT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
END) 
END, 

cont offr true, 

cont~bid_raU=CASE ISNULL(cont of f r_rai I, '-1 ' ) 
WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; 1 + 

CAST( (SELECT SUH(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID CONT=CONT ID AND 
(BID_PRCE+ISNULL((SELECT SHIP J>RCE_RAIL FROM SHIPPING WHERE SHIP~FR0M_L0CL=3Loc I Id AND 
SHIP_TO_LOCL=SHIP_FROH_LOCL),0)-ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM L0CU=3Locl_Id AND SHIP TO LOCL=BID_TO_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; 1 + 

CAST(BID_BUYR_COMP AS VARCHAR)" 

FROM (SELECT BID_CONT,BID_PRCE+ISNULL( (SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl Id AND SHIP TO L0CL=SHIP FROM_LOCL),0)-ISNULL( (SELECT SHIP PRCE_RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=aLocl_Id AND SHIP_TO_LOCL=BID TO LOCL),0) AS 
EXPR1,BID_BUYR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID_BUYR) FROM BID WHERE 
BID_SIZE=1)Q WHERE BID CONT=CONT_ID ORDER BY EXPR1 DESC) 
ELSE 



(CASE 

SUBSTRING ( REVERSE C con t_offr rail) , PATINDEXC '%;%* , REVERSECcont_of f r_rai I) )+1 , PATINDEXC '%;%', right (REV 
ERSECcont off r_raU), lenCcont offr rai I) -PATINDEXC ' %;%' , REVERSE (cont offr rail))))-1) 
WHEN X V THEN 

(SELECT TOP 1 expr1=CAST((BID PRCE+ISNULK (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN ( SUBSTRING ( con t_offr_rai 1,1, PATINDEXC ' %;%'7cont_of f r rail)-D) AND 
SHIPJTO_LOCL=aLocl_Id),0)-ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO LOCL 
AND SHIP_FROM LOCL IN (SUBSTRINGCcont of f r_rai 1,1 ,PATINDEX( '%;%' ,cont_of f r_rai L)-1 ))),0) ) AS 
VARCHAR)+'; , + 

CASTC 

(SELECT SUMCBID QTY) FROM BID WHERE BID SIZE=1 AND BID_CONT=CONT ID AND 
( REVERSE ( SUBSTRING ( REVERSE Ccont_offr_rai I ) ,1 , PATINDEXC '%;%', REVERSE(cont_of f r_rai L) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST CONT&POWERC2, C0NT_ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP IN 
( SUBSTRING (cont_of f r_rai L, PATINDEXC '%;%', cont_of f r~rai l)+1,PATINDEX( *%;%', right ( cont_offr_rai I, Len(c 
ont^offr^raiU-PATINDEXCJS^^cont offr rail>))-1)) AND TRST CONT&POWERC2, CONT_ID-1 )<>0) AND 
CASTC CBID_PRCE+ISNULLC (SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE SHIP_FROM LOCL IN 
CSUBSTRINGCcont^offr^raiLJ/PATINDEXC^^^'/Cont^off r_rail)-D) AND SHIP T0"L0CL=3LocI ld>,0)- 
ISNULLC (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO L0CL=BID_T0_L0CL~AND SHIP_FROM_LOCL IN 
(SUBSTRING(cont_of fr_rai 1,1, PATINDEXC %;% ' , cont_of f r_rai l7-1 ) ) ),0) ) AS 

VARCHAR)=CAST((5.BID_PRCE+ISNULLC(SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP FROM_LOCL IN 
(SUBSTRING(cont_offr rail, 1, PATINDEXC '%;%', cont of f r_rai I ) AND SHIP_T0_L0CL=3LocL_Id),0)- 
ISNULLCCSELECT SHIP 



_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=Q. BID_TO_LOCL AND SHIP_FROM_LOCL IN 
(SUBSTRING(cont_offr rai 1,1 , PATINDEXC '%;%', cont of f r_rai ) ) ) ,0) ) AS VARCHAR) ) 
AS VARCHAR)+ 1 ; 1 + 

CAST((SELECT PERSJTOMP FROM PERSON WHERE PERS ID=BID_BUYR) AS VARCHAR) 

FROM BID Q WHERE BID_SIZE=1 AND BID_C0NT=CONT~ID AND 
( REVERSE (SUBSTRING( REVERSE (cont_offr_rai 0,1, PATINDEXC ' %;% ' , REVERSE (cont_offr_rai I) )-1 ))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_C0NT&P0WER(2, C0NT_ID-1 ) <>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_offr_rai I, PATINDEXC %;% ' , cont_of f r_rai l)+1 , PATINDEXC %;%', right Ccont_offr raU,Len(c 
on^off^raiU-PATINDEXCX^^cont of f r_rai I) ) )-1 ) > AND TRST C0NT&P0WERC2, C0NT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CASTCBID PRCE AS VARCHAR)* 1 ; ' + 
CASK 

(SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID CONT=CONT_ID AND 
( R EVE R SE( SUBSTRING ( REV ERSE( con t_offr rai L) ,1 , PATINDEXC %;%', REVERSE (cont_of fr_rai t) )-1 )) > NOT IN 
(SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_JRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING (cont_offr_rail, PATINDEXC %;%',cont_off r~rai I )+1 , PATINDEXC %;%' , right (cont of f r_rai L, Len(c 
ontjaff r_rail)-PATINDEXC%;% , / cont_offr_rail)))-1)) AND TRST C0NT&P0WER(2,C0NT ID-1)<>0) AND 
CAST(BID PRCE AS VARCHAR)=CAST(Q. BID PRCE AS VARCHAR)) 

AS VARCHAR)+ , ; , + 

CASTC (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID_SIZE=1 AND BID_CONT=CONT ID AND 



(REVERSE(SUBSTRING(REVERSE(cont_of f r_rai I) ,1 ,PATINDEX( '%;%', REVERSE ( con t_offr_r a i L) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0> AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_of f r_rai I, PAT INDEX ( '%;%', cont_of f r_rai l)+1 , PATINDEX( '%;%', right (con t off r_rai L, len(c 
ont_offr_raiL)-PATINDEX('%;% , / cont_offr_raiL)))-1)) AND TRST_C0NT&P0WER(2, CONT_ID~1 )<>0) ORDER BY 
EXPR1 DESC) 
END) 

END, 
cont_of f r rai I 
FROM 

(SELECT 

cont_id, 

cont_LabL, 

con^ordr, 

cont_off r_truc=(SELECT TOP 1 val=CAST(of f r_FROM_loc I AS VARCHAR)+' ; '+ 
CAST(off r_selr_comp AS VARCHARH 1 ; ' + 
CASUexpr AS VARCHAR)+ ' ; * + 
CAST( 

(SELECT SUM(OFFR OTY) FROM OFFER WHERE (OFFR PRCE+OFFR FOB* I SNULL( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM LOCL=OFFR FROMJ_OCL AND SHIP_T0_L0CL=3Loc I Id),0))=EXPR AND OFFR_SIZE=0 AND 
OFFR_CONT=CONT ID AND SComp Id NOT IN (SELECT DISTINCT TRST N0T_TRST FROM TRUST WHERE 



TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=OFFR_SELR) AND TRST CONT&POUER(2, CONT_ID- 
1)<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE BRAN~ID=OFFR_BRAN) NOT IN (SELECT DISTINCT 
TRST_NOT_TRST FROM TRUST WHERE TRST_C0MP=3Comp Id AND TRST_CONT&POWER(2,CONT ID-1X>0>) 

AS VARCHAR)+ 1 ; 1 + 

CAST(off r_fob AS VARCHAR)+ 1 ; ' + 

CAST(off r_bran_comp AS VARCHAR) 

FROM (SELECT OFFR_FOB,OFFR FROM_LOCL,EXPR=OFFR PRCE+OFFR_FOB*ISNULL( (SELECT SHIP PRCE TRUC FROM 
SHIPPING WHERE SHIP_FROM - LOCL=OFFR_FROM_LOCL AND 

SHIP - TO_LOCL=aLocL_Id) / 0),OFFR_QTY / OFFR_SELR_COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR),OFFR_BRAN COMP*(SELECT BRAN COMP FROM BRAND~WHERE BRAN_ID=OFFR BRAN) FROM OFFER 
WHERE OFFR_SI2E=0 AND OFFR_CONT=CONT_ID AND aComp Id NOT IN (SELECT DISTINCT TRSTJJOT TRST FROM 
TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE PERS ID=OFFR_SELR) AND 

TRST_CONT8POWER(2 / CONT_ID-1)<>0) AND (SELECT BRAN COMP FROM BRAND WHERE BRAN ID=OFFR_BRAN) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=aComp Id AND TRST_CONT&POWER(2, CONT ID- 
1)O0))Q ORDER BY expr ASC), 

cont_of f r_rai L-(SELECT TOP 1 va l=CAST(of f r_FROM loci AS VARCHARH 1 ; * + 

CAST(offr_selr comp AS VARCHAR)+ * ; ' + 

CAST(expr AS VARCHAR)+ 1 ; ' + 

CAST( 

(SELECT SUM(0FFRJ3TY) FROM OFFER WHERE (OFFR PRCE+OFFR_FOB*ISNULL( (SELECT SHIP PRCE_RAIL FROM 
SHIPPING WHERE SHIP _FROM_LOCL=OFFR_FROMJ_OCL AND SHIP JTO_LOCL=aLoc L_Id) ,0) )=EXPR AND 0FFR_SIZE=1 AND 
OFFR_CONT=CONT_ID AND 3Comp_Id NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE 
TRST_COMP=( SELECT PERS_COMP~FROM PERSON WHERE PERS_ID=OFFR_SELR7 AND TRST_CONT&POWER(2, CONT_ID~ 
1)O0> AND (SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=aComp_Id AND TRSTj:0NT&P0WER(2, C0NT_ID-1 )<>0) ) 

AS VARCHAR)+ ' ; 1 + 

CAST(offr_fob AS VARCHAR)* ' ; 1 + 

CAST(offr_bran_comp AS VARCHAR) 

FROM (SELECT OFFR FOB, OFFR FROM LOCL, EXPR=OFFR PRCE+OFFR FOB*ISNULL( (SELEC 



T SHIP_PRCE RAIL FROM 

SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND 

SHIP_TO_LOCL=aLocL_Id) / 0) / OFFR_QTY7oFFR_SELR_COHP=<SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR - SELR) / OFFR_BRAN_COMP=(SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=OF FR_BRAN) FROM OFFER 
WHERE OFFR_SIZE=1 AND OFFR CONT=CONT ID AND 3Comp_Id NOT IN (SELECT DISTINCT TRST NOT_TRST FROM 
TRUST WHERE TRST_COMP= ( SELECT PERS COMP FROM PERSON WHERE PERS ID=OFFR_SELR) AND ~ 
TRST_CONT&POWER(2,CONT_ID-1)<>0) AND (SELECT BRANJTOMP FROM BRAND WHERE BRAN ID=OFFR_BRAN) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=3Comp Id AND TRST_CONT&POWER(2, CONT ID- 
1)O0))Q ORDER BY expr ASC) 

FROM CONTRACT WHERE CONT_ID IN (SELECT DISTINCT CONT ID FROM CONTRACT WHERE 
ISNULL(POWER(2,CONT_ID-D&(SELECT DISTINCT TRST_CONT FROM TRUST WHERE TRST C0MP=3Comp ld),0)=0 AND 
POWER(2 / CONT_ID-1)&(SELECT COMP PREF FROM COMPANY WHERE COMP_ID=aComp_Id)<>0) AND CONT_LABL LIKE 
aCont typ)QO ORDER BY CONT ORDR 
END 

ELSE — 3User_Id IS NULL 
BEGIN 

SELECT 

cont_id, 

cont_labl, 

contTbidJ:ruc=CASE ISNULL( cont_of f r_truc, ' -V ) 
WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHARH ' ; 1 + 

CAST( (SELECT SUM(BID_QTY) FROM BID WHERE BID SIZE=0 AND BID_CONT=CONT_ID AND 
(BID_PRCE+ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP FROM L0CL=3Loc L_Id AND 
SHIP_TO_LOCL=SHIP_FROM - LOCL) / 0)-ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FR0M_L0CL=3Locl Id AND SHIP_TO_LOCL=BID_TOJ_OCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; ' + 

CAST(BID BUYR C 



CMP AS VARCHAR) 

FROM (SELECT BID_CONT, BID J>RCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FR0M_LOCL=3Loct_Id AND SHIP_TO_LOCL=SHIP FROM LOCL) , 0)-ISNULL( ( SELECT SHIP PRCE TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=aLocl Id AND SHIP_TO~LOCL=BID_TO_LOCL) ,0) AS 
EXPR1,BID_BUYR_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID BUYR) FROM BID WHERE 
BID_SI2E=0)Q WHERE BID _CONT=CONT ID ORDER BY EXPR1 DESC) 
ELSE 

(CASE 

SUBSTRING(REVERSE(cont_offr_truc),PATINDEX( , %;% , / REVERSE(cont_offr true) )+1 ,PATINDEX( ' %;% ■ , pightUEV 
ERSE(cont_offr_truc),len(cont_offr truc)-PATINDEX( ' %;%' , REVERSE (cont offr truc))))-1) 
WHEN 'V THEN " 

(SELECT TOP 1 expp1=CAST((BIDJ>RCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROMJ_OCL IN (SUBSTRING(cont_of f p tpuc,1 , PATINDEX( '%;%', cont of f p_tpuc)-1) ) AND 
SHIP_TO_L0CL=aLocL_Id) / 0)-ISNULL((SELECT SHIPJ>RCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL^BID TO LOCL 
AND SHIP_FROM_LOCL IN (SUBSTRING(cont offr truc,1 ,PATINDEX( '%;%' /C ont offr truc)-1)>) 0)) AS~ " 
VARCHAR)+';'+ ~ ~ ' 

CAST( 



(SELECT SUM(BIDJ3TY) FROM BID WHERE BID SIZE=0 AND BID CONT=CONT ID AND 
(REVERSE(SUBSTRINGCREVERSE(cont_offr_truc> / 1 / PATINDEX( , %;%' / REVERSE(cont offr truc>>-1)» NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRING(cont_offr - truc / PATINDEX(«%;%' / cont_offr:truc)+1 / PATINDEX('%;%' / right(cont offr true len( 
ont_offr_truc)-PATINDEX('%;%' / cont_offr_truc)))-1)) AND TRST_CONT&POWER(2,CONT ID-DOO) AND ' 
CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP FROM LOCL IN 
(SUBSTRING(cont_offr^truc / 1 / PATINDEX( l %;% , / cont offr truc>-1>) AND SHIP TO~LOCL=aLocl ld),0)- 
ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO LOCL=BID TO LOCL~AND SHIP FROM LOCL IN 
(SUBSTRING(cont_offr_truc / 1,PATINDEX( , %;% , / cont_offr truc)-1))>,0>) AS " 
VARCHAR)=CAST((a.BID_PRCE+ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP FROM LOCL IN 
(SUBSTRING(cont_offr_truc / 1 / PATINDEX('%;%' / cont offr true)-!)) AND SHIP TO LOCL^LocTld) 0)- 
ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL=Q.BID TO LOCL AND SHIP~FROM LOCL IN 
(SUBSTRING(cont_offr_truc / 1 / PATINDEX( , %;%' / cont offr tr*uc)-1 ) ) ),0) ) AS VARCHAR) ) 

AS VARCHAR)+ 1 ; ' + 

CAST((SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 

FROM BID Q WHERE BID SIZE=0 AND BID_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_offr w truc) / 1 / PATINDEX( , %;%' / REVERSE(cont offr truc)>-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS__ID=BID_BUYR) AND TRST_C0NT&P0WER(2, CONT^ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP IN 

(SUBSTRING(cont_offr_truc / PATINDEX('%;%»,cont_offr_truc)+1 / PATINDEX( , %;% t ,right(cont offr true Len( 
ont_offr truc)-PATINDEX( , %;% , ,cont_offr_truc))) " 



-D) AND TRST CONT&POWER (2, CONT ID-DOO) ORDER BY 

EXPR1 DESC) 
ELSE 

(SELECT TOP 1 exprl=CAST(BID_PRCE AS VARCHAR)+ ' ; * + 
CASTC 

(SELECT SUH(BID_QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
( REVERSE (SUBSTRING( REVERSE (cont_offr_t rue), 1 ,PATINDEX( '%;% 1 , REVERSE (cont_offr_t rue) )-1 ))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP= ( SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-DOO) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRSTJJOTJTRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_off r_truc, PATINDEX( '%;%' ,cont_off r~truc)+1 , PATINDEX( '%;%' , right (cont_offr_truc, len( 
ont_off r - truc)-PATINDEX( , %;%',cont_off r_truc)T)-1 )) AND TRST_C0NT&P0WER(2,C0NT_ID-DO0) AND 
CAST(BIDJ>RCE AS VARCHAR)=CAST(Q. BID_PRCE AS VARCHAR)) 

AS VARCHAR)+';'+ 

CAST( (SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 

FROM BID Q WHERE BID_SIZE=0 AND BID_CONT=CONT ID AND 
(REVERSE (SUBSTRING (REVERSElcont of f r_truc),1 ,PATINDEX( 1 %;% ' / REVERSE(cont - of f r_truc) )-1 ) )) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_I D-DOO) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRING(cont_offr„truc / PATINDEX( , %;%^cont - offr_truc)+1 / PATINDEX( , %;%',right(cont_offr_truc / len( 
ont_offr_truc)-PATINDEX( '%;%', cont_offr_truc)))-D) AND TRST_CONT&POWER(2, CONT ID-DOO) ORDER BY 
EXPR1 DESC) 
END) 
END, 

cont_of f r_truc, 

CO 



nt_bid rail=CASE ISNULLC cont_of f r rail / , -r> 
WHEN '-T' THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ I ; ' + 
CASTC 

(SELECT SUM(BID_QTY) FROM BID WHERE BIO SIZE=1 AND BID_CONT=CONT ID AND 
(BID_PRCE+ISNULL((SELECT SHIP_PRCE J*AIL FROM SHIPPING WHERE SHIP_FROM_LOCL=aLoc I Id AND 
SHIP_TO_LOCL=SHIP_FROM_LOCL),0)-ISNULL((SELECT SHIP.PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Id AND SHIP_TO_LOCL=BID TOJ.OCL) , 0) ) = EXPR1 ) 

AS VARCHAR)+';'+ 

CAST(BID_BUYR_COMP AS VARCHAR) 

FROM (SELECT BID_CONT,BID_PRCE+ ISNULLC (SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Id AND SHIP_TO_LOCL=SHIP FROM LOCL) ,0)-ISNULL( (SELECT SHIP PRCE RAIL FROM 
SHIPPING WHERE SHIP_FROM L0CL=3Locl Id AND SHIP TO LOCL=BID TO_LOCL),0) AS 
EXPR1,BID_BUYRJ;0MP=(SELECT PERS COMP FROM PERSON WHERE PERS ID=BID BUYR) FROM BID WHERE 
BID_SIZE=1)Q WHERE BID_CONT=CONT_ID ORDER BY EXPR1 DESC) 
ELSE 
(CASE 

SUBSTRING(REVERSE(cont_offr - rail),PATINDEX( , %;%' / REVERSE(cont of f r_rai L) )+1 ,PATINDEX( '%;%' / right(REV 
ERSE(cont_offr_rail),len(cont offr rai L)-PATINDEX( 1 %;% ' , REVERSE (cont offr rail)>))-1) 
WHEN 'V THEN ~ " 

(SELECT TOP 1 expr1=CAST( (BID_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN (SUBSTRING(cont_of f r_rai 1,1 ,PATINDEX( '%;%' ,cont_of f r_rai L)-D) AND 



SHIP_TO_LOCL=aLocl_Id),0)~ISNULL((SELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID TO LOCL 
AND SHIP_FROM_LOCL IN (SUBSTRING(cont_of fr_rai I, 1 ,PATINDEX( '%;%', cont_of f r_rai U-1) )) ,0) ) AS~ 
VARCHAR)+ ' ; 1 + 
CASK 

(SELECT SUM(BID_QTY> FROM BID WHERE BID SIZE=1 AND BID CONT=CONT ID AND 
(REVERSEC SUBSTRING (REVERSE (cont of f r_rail) J,PATINDEX( '%;%' ,REVERSE(cont of f r_rail) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST CONT&POWER(2, CONT_ID-l )<>6) AND (SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST_COMP IN 
( SUBSTRING (cont^of f r_rai I, PATINDEX( '%;%' , cont_of f r_rai l>+1 , PATINDEX( '%;%', right (cont of f r_rai L, len(c 
ont_offr_rait)-PATINDEX('%;% , / cont_offr_rail)))-1)) AND TRST_C0NT&P0WER(2,C0NT_ID-1 )<>0) AND 
CAST((BIDJ>RCE+ISNULL((SELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP FROM LOCL IN 
(SUBSTRING(cont_offr_rail / 1 / PATINDEX( , %;%*,cont_offr rail>-1)) AND SHIP T0~L0CL=3Loc l_Id> ,0)- 
ISNULL( (SELECT SHIPJ>RCE_RAIL FROM SHIPPING WHERE SHIPJTO L0CL=BID_T0_L0CL~AND SHIP_FROM_LOCL IN 
(SUBSTRING (cont_off r_r a i l,1,PATINDEX( «%;% ' ,cont_of f r rai ))),<») AS 

VARCHAR)=CAST((Q.BID_PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM LOCL IN 
(SUBSTRING(cont offr rai 1, 1 ,PATINDEX( '%;% ' ,cont_of f r_rai AND SHIP_TO_LOCL=3Loc I'ld),©)- 

ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE SHIP TO L0CL=Q.BID TO LOCL AND SHIP~FROM LOCL IN 
(SUBSTRING(cont offr rail, 1,PATINDEX( '%;%', cont of f r_rai L)-1 ) ) ),0) > AS VARCHAR) ) 
AS VARCHARH'; ' + 

CAST( (SELECT PERS_C0MP FROM PERSON WHERE PERS ID=BID_BUYR) AS VARCHAR) 

FROM BID Q WHERE BID SIZE=1 AND BID CONT=CONT~ID AND 
( REVERSE (SUBSTR I NG(REVERSE(cont_offr rai l)7l / PATINDEX( '%;%*, REVERSE (cont offr rail))-1))) NOT IN 
(SELECT DISTINCT TRST NOTJRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) AND (SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_of f r_rai l,PATINDEX( '%;%' , cont_of f r"rai L)+1 / PATINDEX( '%;%' , right(cont_of f r_rai I, Len(c 
ont 



_of f r_rai O-PATINDEXC *%;% 1 7 cont off r_rai l)))-D) AND TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CASTCBID_PRCE AS VARCHAR)+ 1 ; ' + 
CAST( 

(SELECT SUM(BID_GTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=C0NT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_off r_rai I) ,1 ,PATINDEX( *%;%' , REVERSE(cont_of f r rail))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_ TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST.CONT&POWER^, CONTJD-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_of f r„rai L,PATINDEX( '%;%', cont_of f r_rai L)+1 , PATINDEXC '%;%', right (con t of f r_rai I, Len(c 
ont^off^raiD-PATINDEXC^^X^cont of f r_rai I) ) )-1 ) ) AND TRST C0NT&P0WER(2, CONT_ID-1 )<>0) AND 
CAST(BIDJ>RCE AS VARCHAR)=CAST(Q. BID_PRCE AS VARCHAR)) 

AS VARCHAR)+ I ; '+ 

CAST((SELECT PERS_C0MP FROM PERSON WHERE PERS ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=1 AND BID_CONT=CONT~ID AND 
( R EVE RS E ( SUBSTRING (REV ERSE ( con t_offr_rai , PATINDEXC '%;%' , REVERSE(cont of f r_rai U ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOTJTRST FROM TRUST WHERE TRST_COMP I« 
(SUBSTRING(cont_offr_rail / PATINDEXC %;% ' , cont_of f r_rai L)+1 ,PATINDEX( '%;%*, right (cont_of f r_rail, LenCc 
ont_off r_rail)-PATINDEX(%-%^cont_off r_rai l)))-1)) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
END) 
END, 
cont_offr rail 
FROM 
(SELECT 



cont_id / 

cont_labl / 

cont_ordr, 

cont_off r_truc=(SELECT TOP 1 va l=CAST(of f r FROM_locl AS VARCHAR)+ 1 ; 1 + 
CASTCoff r_selr_comp AS VARCHAR)+ 1 ; 1 + 
CASTCexpr AS VARCHAR)+ ' ; '+ 

CASK (SELECT SUM(OFFR_QTY) FROM OFFER WHERE (0FFR_PRCE+OFFR_FOB*ISNULL( (SELECT SHIP PRCE TRUC 
FROM SHIPPING WHERE SHIP_FROM LOCL=OFFR FROM_LOCL AND SHIP_TO LOCL=aLocl_Id),0>)=EXPR AND~ 
OFFR_SIZE=0 AND OFFR_CONT=CONT ID) AS VARCHAR)+ 1 ; 1 + 

CAST(off r_fob AS VARCHAR)+ ' ; ' + 

CAST(off r_bran_comp AS VARCHAR) 

FROM (SELECT OFFR_FOB / OFFR_FROM LOCL, EXPR=OFFR_PRCE+OFFR FOB*ISNULL( (SELECT SHIP PRCE TRUC 
FROM SHIPPING WHERE SHIP FROM LOCL=OFFR FROM_LOCL AND " 
SHIP_TO_LOCL=aLocl_Id) / 0) / OFFR_QTY / OFFRlSELR COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) , OF FR_BRAN_COMP=( SELECT BRAN_COMP FROM BRAND~WHERE BRAN ID=OFFR BRAN) FROM OFFER 
WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT ID)Q ORDER BY expr ASC), 



cont_off r_rai l=(SELECT TOP 1 va L=CAST(of f r FROM_locl AS VARCHAR)+ 1 ; ' + 
CAST(offr_seLr_comp AS VARCHAR)+ ' ; 1 + 
CASTCexpr AS VARCHAR)+' ; '+ 

CASTCCSELECT SUM(OFFR_QTY) FROM OFFER WHERE COFFR PRCE+OFFR FOB*ISNULL( (SELECT SHIP_PRCE RAIL 
FROM SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROMJ.OCL AND SHIP_T0J_0CL=3Loc L_Id) ,0) )=EXPR AND 
OFFR_SIZE=1 AND OFFR CONT=CONT_ID) AS VARCHAR)* ' ; ' + 
CASTCoff r_fob"AS VARCHAR)+ 1 ; 1 + 
CASTCoff r_bran_comp AS VARCHAR) 

FROM (SELECT OFFR_F0B,0FFR_FROM_L0CL / EXPR=OFFR_PRCE+OFFR FOB*ISNULL( (SELECT SHIP PRCE_RAIL 
FROM SHIPPING WHERE SHIP_FR0M LOCL-OFFR_FROM LOCL AND 

SHIP_T0_L0CL=aLocL_Id) / 0) r 0FFR_QTY,0FFR_SELRlC0MP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR),OFFR BRAN COMP=(SELECT BRAN COMP FROM BRAND WHERE BRAN ID=OFFR_BRAN) FROM OFFER 
WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT_ID)Q ORDER BY expr ASC) 

FROM CONTRACT WHERE ~CONT_LABL~LIKE 3Cont_typ )Q0 ORDER BY CONT_ORDR 

END 
END 
END 

ELSE IF auser Type='S' 
BEGIN 

IF aCont_typ= r Cust' 

BEGIN 

IF 3User_Id IS NOT NULL 
BEGIN 

SELECT 

cont_id, 

cont_labl, 

cont_bidjtruc, 

cont_of f r_truc=CASE ISNULL(cont Jsidjtruc, '-1 1 ) 
WHEN '-V THEN 
(SELECT TOP 1 va(=CAST(expr1 AS VARCHARH 1 ; 1 + 

CAST( (SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR CONT=CONT_ID AND (0FFR_PRCE- 
SShipping*ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP TO_LOCL=3Loc L_Id AND 
SHIP_FROMJ.OCL-SHIPjrOJ.OCL),0)+OFFR_FOB*ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP TO LOCL=3Locl Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) ,0) )=EXPR1) AS VARCHAR)+ 1 ; 1 + 

CAST(OFFR_SELR_COMP AS VARCHAR) 

FROM (SELECT 0FFR_C0NT,0FFR_PRCE-3Shipping*ISNULL( (SELECT SHIP_PRCE JTRUC FROM SHIPPING WHERE 



;>HIP_TO_LOCL=aLocl_Id AND SHIP_FROM_LOCL=SHIP JTOJ.OCL) ,0)+OFFR_FOB*ISNULL( (SELECT SHIP PRCE TRUC 
FROM~SHIPPING WHERE SHIP TO L0CL=3Locl Id AND~SHIP FROM LOCL=OFFR_FROM_LOCL) , 0) AS 
EXPR1,0FFR_SELR_C0MP=(SELECT PERS_COMP~FROM PERSON~WHERE PERS_ID=OFFR SELR) FROM OFFER WHERE 
OFFR SIZE=0)Q WHERE OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST((0FFR_PRCE-aShipping*ISNULL( (SELECT SHIP J>RCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL IN ( SUBSTRING(cont_bid_truc, 1 ,PATINDEX( 1 %;%' ,cont_bid truc)-1)) AND 
SHIP_FROM_LOCL=aLocl_Id) / 0)+OFFR - ,FOB*ISNULL((SELECT SHIP_PRCE_TRUC~FROM SHIPPING WHERE 
SHIP~FR0M~L0CL=0FFR FROM LOCL AND SHIP TO_LOCL IN 

(SUBSTRING(cont bid~truc7l , PAT INDEX ( 1 %J% 1 , cont bid_t ruc)-1) > ) ,0) ) AS VARCHAR)* ' ; 1 + 
CAST( 

(SELECT SUM(OFFR QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR„CONT=CONT_ID AND 
( REVERSE (SUBSTRING(REVERSE(cont_bid_t rue) ,1, PAT INDEX ( 1 , REVERSE (cont_bid_t rue ) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=( SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST - C0NT&P0WER(2 / C0NT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRSTJTOMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_t rue) ,1 , PATINDEX( ' %;%* , REVERSE (cont bid_t rue) )-1 ) ) ) AND 
TRST_C0NT&P0WER(2,C0NT ID-DOO) AND CAST( (OFFR_PRCE-SShipping*ISNULL( (SELECT SHIP_PRCE TRUC FROM 
SHIPPING WHERE SHIP_TO~LOCL IN (SUBSTRING( cont bid_truc,1 , PATINDEX( 1 %;% ' , cont_bi d_t ruc)-1 ) ) AND 
SHIP_FROMJ_0CL=aLocl_Id),0)+0FFR_FOB*ISNULL( (SELECT SH* 



IP PRCEJTRUC FROM SHIPPING WHERE 

SHIP - FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING (cont_bid_t rue, 1 , PATINDEXC '%;%', cont bid_truc)-1 ) ) ) ,0) > AS VARCHAR)=CAST( (Q.OFFR_PRCE- 
ashippi ng*ISNULL( (SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUB$TRING(contj3idjtruc,1 / PA?INDEX( '%;%', cont bid_truc)-1 ) ) AND 

SHIP_FROMJ_OCL=SLocl_Id),0)+Q.OFFR FOB*ISNULLUSELECT SHIPJ>RCE TRUC FROM SHIPPING WHERE 
SHIP_FR0MJ_OCL=G.OFFR_FR0MJ_OCL AND SHIP TO LOCL IN 

(SUBSTRING (cont_bid_t rue, 1 , PAT INDEX ( 1 %;%~,cont_bid_truc)-1 ) ) ) ,0)) AS VARCHAR)) 
AS VARCHArT+'; '+ 

CASK (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=OFFR_SELR> AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SIZE=0 AND OFFR CONT=C0NT ID AND 
(REVERSE (SUBSTRING (REVERSE (cont bid_truc) ,1 y PATINDEX( '%;%*, REVERSE (cont bid truc))-1>)) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS C0MP~FR0M PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_C0NT&P0WER(2, CONT ID-DOO) AND (SELECT BRAN_C0MP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP IN 



( REVERSE ( SUB STR I NG(REVERSE( con t bid true) ,1 , PATINDEX( '%;%', REVERSE < con t bid_truc))-l ))) AND 
TRST_CONT&POWER(2 / CONT_ID-1)<>0) ORDER BY EXPR1 ASC) 
END, 
cont bid_raiL, 

cont~offr raiL=CASE ISNULLCcont bid rail / , -V) 
WHEN '-1' THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHARH* ; ' + 

CAST((SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT ID AND (OFFR PRCE- 
3Shipping*ISNULL(( SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO LOCL=aLocl Id AND 
SHIP_FR0MJ.OCL=SHIPJ*O_L0CL) / 0)+0FFR_FOB*ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP - TO_LOCL=3Loct_Id AND SHIP_FROM_LOCL=OFFR_FROM LOCL) ,0) )=EXPR1) AS VARCHAR)+ 1 ; 1 + 

CAST(OFFR_SELR_COMP AS VARCHAR)" 

FROM (SELECT 0FFR_C0NT / 0FFRJ>RCE-3Shipping*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=aLocl_Id AND SHIP J : ROM_LOCL=SHIP_TOJ.OCL) ,0)+OFFR FOB*ISNULL( (SELECT SHIPJ>RCE_RAIL 
FROM SHIPPING WHERE SHIP_TO L0CL=3LocL Id AND SHIP_FROM LOCL=OFFR_FROM LOCL),0) AS 
EXPR1,0FFR SELR COMP=(SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=OFFR SELR) FROM OFFER WHERE 
OFFR SIZE=T)Q WHERE OFFR CONT=CONT_ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST((0FFR_PRCE-3Shipping*ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIPJTOJ.OCL IN (SUBSTRING(cont - bid,rail / 1 / PATINDEX('%;% , / cont_bid_rail)-1)) AND 
SHIP_FR0M_L0CL=3Locl_Id) / 0)+0FFR_F0B*ISNULL((SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP FROM_LOC L^OF F R_F ROM LOCL AND SHIP TO_LOCL IN 

(SUBSTRING(cont_bid_rail7l / PATINDEX( , %;% , / cont bid_rai l)-1 ))),0)) AS VARCHAR)+' ; *+ 
CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE 0FFR_SI2E=1 AND 0FFR_CONT=CONT ID AND 
(REVERSE (SUBSTRING (REVERSE (cont_bid_rai 0,1, PAT INDEX ( 1 %;%' , REVERSE (con t_b id rail))-1))> NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS CO 



MP FROM PERSON WHERE 

PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_rai I) ,1 , PAT INDEX ( '%;%' , REVERSE ( con t_b id pail))-1))) AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0) AND CAST((OFFR PRCE~3Shi ppi ng* I SNULL( ( SELECT SHIP PRCE RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL IN ( SUBSTRING ( contjbi d_rai I, 1 , PATINDEXC '%;%', cont_bi d_rai L) r 1 ) ) AND 
SHIP_FROM_LOCL=aLocl_Id),0)+OFFR_FOB*ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROMJ_0CL=0FFR_FR0M_LOCL AND SHIP_TO_LOCL IN 

( SUBSTRING (cont_bid~rai ijl / PATINDEX( 1 %;%'7cont_bid rai l)-1))>,0)) AS VARCHAR)=CAST( (Q.OFFRJ^CE- 
aShippi ng*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUBSTRING(contJ>id rai l,1,PATINDEX( '%;%' ,cont bid_rai )) AND 

SHIP_FROM_LOCL=aLocI_Id) / 0)+Q.OFFR_FOB*ISNULL((SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR FROM_LOCL AND SHIP_TO_LOCL IN 

<SUBSTRING(contJ>id rai 1,1, PATINDEX( '%;%', cont bid rai L)-1) ) ) ,0) ) AS VARCHAR)) 
AS VARCHAR)*'; '+ 

CAST((SELECT PERS^COMP FROM PERSON WHERE PERS_ID=OFFR SELR) AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SI2E=1 AND OFFR CONT=CONT_ID AND 
(REVERSE (SUBSTRING(REVERSE(cont_bid_rai I) ,1 , PATINDEX( '%;%' ,REVERSE(cont_bid rai NOT IN 

(SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP~FROM PERSON WHERE 
PERS ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN 



_ID=OFFR__BRAN) NOT IN (SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont bid rai l),1 ,PAtTnDEX( '%;%' , REVERSE ( con t bid_rai L))-1 ) 5 ) AND 
TRST_C0NT&P0WER(2,C0NT_ID-1)O0) ORDER BY EXPR1 ASC) 

END 
FROM 

(SELECT 

cont_id, 

cont_labl, 

cont_ordr, 

cont_bid_truc=(SELECT TOP 1 vaL=CAST(bid to loci AS VARCHAR)+' ; ' + 
CAST(expr AS VARCHARH 1 ; 1 + 
CASK 

(SELECT SUM (BID_QTY) FROM BID WHERE (BID PRCE-3Shipping*ISNULL( (SELECT SHIP PRCE_TRUC FROM 
SHIPPING WHERE SHIP JTO J_OCL=BID TO_LOCL AND SHIP_FROM_LOCL=aLocl_Id) / 0) )=EXPR AND BID SIZE=0 AND 
BID_CONT=CONT_ID AND aComp_Id NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE ~ 
TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) AND TRST CONT&POWER (2, CONT 10-1)00) 
AND (SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR)~NOT IN ( SELECT~DISTINCT TRST_NOT~TRST FROM 
TRUST WHERE TRST COMP=aComp Id AND TRST C0NT&P0WER(2, CONT ID-DOO)) 

AS VARCHAR)+';'+ 

CAST(bid_buyr_comp AS VARCHAR) 

FROM (SELECT BID_T0_L0CL, EXPR=BID_PRCE-3Shipping*ISNULL( (SELECT SHIP_PRCE TRUC FROM SHIPPING 
WHERE SHIPJTO_LOCL=BID_TOJ-OCL AND SHIP FROM_L0CL=3Loc I Id),0),BID QTY,BID_BUYR_COMP=( SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE BID_SIZE=0 AND BID C0NT=C0NT ID AND 
3Comp_Id NOT IN (SELECT DISTINCT TRST N0T_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_C0MP FROM 
PERSON WHERE PERS_ID=BID_BUYR) AND TRST C0NT&P0WER(2, CONT ID-DOO) AND (SELECT PERS COMP FROM 



PERSON WHERE PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE 
TRST_COMP=aComp_Id AND TRSTJTONT&POWER(2, CONT_ID-1 )<>0> )Q ORDER BY expr DESC), 
cont_bid_raU=(SELECT TOP 1 val=CAST(bid_to Loci AS VARCHARH ' ; ' + 

CAST(expr AS VARCHARH 1 ; 1 + 

CASTC 

(SELECT SUM(BIDJ2TY) FROM BID WHERE (BID PRC E-3 Shipping* I SNULL( (SELECT SHIPJ>RCE RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL=BID TO LOCL AND SHIP FROM_LOCL=SLocl_Id) ,0) )=EXPR AND BID SIZE=1 AND 
BID_CONT=CONT_ID AND aComp_Id NOT IN (SELECT DISTINCT TRST_N0T TRST FROM TRUST WHERE ™ 
TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) AND TRST_C0NT8P0WER (2, CONT ID-DOO) 
AND (SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR)~NOT IN (SELECT DISTINCT TRSTJIOT~TRST FROM 
TRUST WHERE TRST_C0MP=3Comp Id AND TRST__CONTSPOWER(2 / CONT ID-DOO)) 
AS VARCHAR)+'; '+ 
CAST(bid_buyr_comp AS VARCHAR) 
FROM (SELECT bTd_TO_LOCL, EXPR=BID_PRCE-3Shipping*ISNULL( (SELECT SHIP_PRCE RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TOJ_OCL AND SHIP_FROM_LOCL=SLoc I Id) , 0) , BID_QTY, BID_BUYR_COMP= ( SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE BID SIZE=1 AND BID CONT=CONT_ID AND 
aComp^Id NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM 
PERSON WHERE PERS_ID=BID BUYR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM 
PERSON WHERE PERS_ID=BID BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE 
TRST_C0MP=3Comp_Id AND TRST_C0NT&P0WER(2, CONT_ID-1 )<>0) )Q ORDER BY expr DESC) 

FROM CONTRACT WHERE /*CONTJD IN (SELECT DISTINCT BRAN_CONT FROM BRAND WHERE BRAN_COMP=aComp Id) 
AND*/ CONT_ID IN (SELECT DISTINCT CONT_ID FROM CONTRACT WHERE ISNULL(POWER(2, CONT ID-1 )&(SELECT~ 
DISTINCT TRST_CONT FROM TRUST WHERE TRST_COMP=aComp_Id) ,0)=0 AND POWER<2 / r 



vONT ID-1)S(SELECT 

COMP_PREF FROM COMPANY WHERE C0MP_ID=3Comp_Id)<>0 AND POWER (2, C0NT_ID-1 )&( SELECT PERS PREF FROM 
PERSON WHERE PERS ID=3User Id)O0))a0 ORDER BY CONT_ORDR 
END 

ELSE — 3User_Id IS NULL 
BEGIN 

SELECT 

cont_id, 

cont_labl, 

cont_bid_truc, 

cont_of f r_truc=CASE ISNULL(cont_bid_truc, '-1 1 ) 
WHEN '-1' THEN 

CSELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; 1 + 

CASTCCSELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID AND (OFFR_PRCE- 
ashi pping* I SNULLC (SELECT SHIP_PRCE__TRUC FROM SHIPPING WHERE SHIP_TO L0CL=3Loc L_Id AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL) / 0)+OFFR_FOB*ISNULL((SELECT SHIPJ>RCE_TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=3Locl_Id AND SHIP_FROM_LOCL=OFFR FROM_LOCL) ,0) )=EXPR1) AS VARCHAR)+ ' ; 1 + 

CAST(OFFR_SELR_COMP AS VARCHAR) 

FROM (SELECT OFFR CONT,OFFR PRCE-SShi ppi ng*ISNULL (( SELECT SHIP_PRCE_JRUC FROM SHIPPING WHERE 
SHIP_T0_L0CL=3Locl_Id AND SHIP_?ROM_LOCL=SHIP_TO_LOCL) ,0)+OF FR_FOB*ISNULL( (SELECT SHIP PRCE_TRUC 
FROM SHIPPING WHERE SHIP T0_L0CL=3Locl_Id AND SHIP_FROM_LOCL=OFFR FROM_LOCL),0> AS 
EXPR1,0FFR_SELR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=OF FR_SELR) FROM OFFER WHERE 
OFFR SIZE=0)Q WHERE OFFR_C0NT=CONT_ID ORDER BY EXPR1 ASC> 

ELSE 

(SELECT TOP 1 expr1=CAST((0FFR_PRCE-3Shipping*ISNULL( (SELECT SHIP_PRCEJTRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL IN (SUBSTRING(cont_bid truc,1 , PATINDEX( '%;%', cont bid_truc)-1 ) ) AND 
SHIP_FR0M_L0CL=3Locl_Id) / 0)+0FFR_F0B 



*ISNULU(SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM LOCL AND SHIP_TO LOCL IN 

(SUBSTRINGCcont bid truc,1 ,PATINDEX( ' %;%*7cont bid_t ruc)-1 ) ) ),0) ) AS VARCHAR)+' ; '+ 
CASK 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR CONT=CONT_ID AND 
(REVERSE (SUBSTRING(REVERSE(contJ>id_t rue) ,1 , PATINDEXC , REVERSE Ccont bid_t rue) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM~TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID)<>0) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc) / 1 / PATINDEX('%;% , / REVERSE(cont bid truc))-1))) AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0) AND CAST((0FFR PRCE-aShipping*ISNULL(( SELECT SHIP PRCE_TRUC FROM 
SHIPPING WHERE SHIP TO_LOCL IN (SUBSTRING(cont_bid truc,1 y PATINDEX( '%;%', cont bid truc>-1)) AND 
SHIP_FROM„LOCL=aLocT Id),0)+OFFR FOB*ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid_truc / 1 / PATINDEX( , %;%',cont bid truc>-1))) / 0)) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
3Shipping*ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIPJTO LOCL IN 
(SUBSTRING(cont_bid_truc,1 / PATINDEX('%;% , / cont bid truc)-D) AN" 



SHIP_FROH_LOCL=aLocl_Id> / 0)+Q.OFFR_FOB*ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRINGCcontJnd^truc^PATINDEXC^^^cont bid t ruc)-1 ) ) ) ,0) ) AS VARCHAR)) 
AS VARCHARH 1 ; ' + 

CASTCCSELECT PERSJTOMP FROM PERSON WHERE PERS ID=OFFR SELR) AS VARCHAR) 



FROM OFFER Q WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT ID AND 
<REVERSE(SUBSTRING<REVERSE(cont_bid„truc) / l7PATINDEX( T %;%' / REVERSE(cont_bid_truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=( SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR SELR) AND TRST_CONT&POWER(2, CONT ID-DOO) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_I D=OF F R_BRAN) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont bid truc),1 ,PATINDEX( *%;%' , REVERSE (cont bid_truc))-D)) AND 
TRST CONT&POWER(2,CONT ID-DOO) ORDER BY EXPR1 ASC) 
END, 

cont_bid_rai I, 

contloffr rail=CASE ISNULL(cont bid_rai L, '-1 1 ) 
WHEN THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; 1 + 

CASK (SELECT SUM(OFFR_QTY> FROM OFFER WHERE OFFR SIZE=1 AND OFFR_CONT=CONT ID AND (OFFR PRCE- 
aShlpping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING~WHERE SHIPJTO L0CL=3LocL Id AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL),0)+OFFR FOB*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_T0_L0CL=3Locl_Id AND SHIP_FROM LOCL=OFFR FROM_LOCL) ,0) )=EXPR1) AS VARCHAR)+ 1 ; 1 + 

CAST(OFFR_SELR_COMP AS VARCHAR) 
FROM (SELECT OFFR — C0NT / 0FFR_PRCE~3Shi ppi ng* I SNULL (( SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIPJT0_L0CL=3Locl_Id AND SHIP _FROM_LOCL=SHIP TO LOCL) ,0)+0FFR_FOB*ISNULL( (SELECT SHIP_PRCE_RAIL 
FROM SHIPPING WHERE SHIPJTO_LOCL=S)Locl Id AND~SHIP_FROM LOCL=OFFR FROM LOCL),0) AS 
EXPR1 7 0FFR — SELR COMP=(SELECT PERS COMP~FROM PERSON WHERE PERS_ID=OFFR_SELR) FROM OFFER WHERE 
OFFR SI2E=1)Q WHERE OFFR C0NT=C0NT_ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST((OFFR_PRCE-aShipping*ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIPJTOJ.OCL IN (SUBSTRING(cont_bid_raiL / 1,PATINDEX( , %;% , / cont - bid_raiL) 



-1 )) AND 

SHIP FROM_LOCL=aLocl_Id) / 0)+OFFR_FOB*ISNULL((SELECT SHIP_PRCEJ?AIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid_raU / 1 / PATINDEX( , %;% t ,cont_bid_raU)-1))) / 0)) AS VARCHAR)+ ' ; ' + 
CASTC 

(SELECT SUMCOFFR QTY) FROM OFFER WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSECcont_bid_rail),1 / PATINDEX( , %;% l ,REVERSE(cont_bid_rail))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT IO-DOO) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TR ST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_rai 0,1, PAT INDEX ( '%;%' , REVERSE (con t_bid rai AND 
TRST_CONT&POWER(2 / CONT_ID-1)<>0) AND CAST( (0FFR_PRCE-3Shi ppi ng*ISNULL( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL IN ( SUBSTRING(cont bid_rai L,1 , PAT INDEX ( '%;%*, cont_bid raiL)-1)) AND 
SHIP_FROM_LOCL=aLocL_Id),0)+OFFR FOB*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP TO LOCL IN 

(SUBSTRING(cont_bid_rail,1 / PATINDEX( , %;% , ,cont_bid - rail)-1))) / 0)) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
ashi ppi ng*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO LOCL IN 
(SUBSTRING(cont_bid_rail / 1 / PATINDEXC%;% , ,cont_bid rail)-D) AND 

SHIP_FROM_LOCL=aLocl_Id) / 0)+Q.OFFR_FOB*ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM LOCL=Q.OFFR_FROM_LOCL AND SHIP TO LOCL IN 

(SUBSTRING(cont_bid rai 1,1 ,PATINDEX( '%;%' , cont_bid_rai l)-1>) ),0)) AS VARCHAR)) 



mS VARCHAR) + '; ' + 

CAST((SELECT PERS_COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AS VARCHAR) 
FROM OFFER Q WHERE OFFR_SIZE=1 AND OFFR CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid rai L ) ,1 7 PATINDEXC '%;%', REVERSE ( con t bid rail>)-1))) NOT IN 
(SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP~FROM PERSON WHERE 
PERS_ID=OFFR_ SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
( REVE RSE ( SUBS TRING( REV ERSE( con t_bid_rai , PAT INDEX ( '%;%', REVERSE(cont_bid rail))-1))> AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0) ORDER BY EXPR1 ASC) 
END 
FROM 
(SELECT 
cont_id, 
cont_labl, 
cont_ordr, 

cont_bid truc=(SELECT TOP 1 val=CAST(bid to_Locl AS VARCHARH' ; ' + 
CAST(expr AS VARCHAR)+' ; '+ 

CAST((SELECT SUM(BID QTY) FROM BID WHERE (BID_PRCE-3Shi ppi ng*ISNULL( (SELECT SHIP PRCE_TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL=BID_TO LOCL AND SHIP_FR0M_L0CL=3Loc l_Id) ,0) )=EXPR AND BID_SIZE=0 AND 
BID_CONT=CONT_ID) AS VARCHAR)+ * ; ' + 
CAST(bid_buyr comp AS VARCHAR) 

FROM (SELECT BID TO_LOCL, EXPR=BID_PRCE-SShi ppi ng*ISNULL( (SELECT SHIP PRCE_TRUC FROM SHIPPING 
WHERE SHIPJ-0_LOCL=BID_TO_LOCL AND SHIP_FR0M_L0CL=3Locl Id),0) / BID_QTY / BID BUYR COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS ID=BID_BUYR) FROM BID WHERE BID SIZE=0 AND BID~CONT=CONT_ID)Q ORDER 
BY expr DESC), 

cont bid rai l=( SELECT TOP 1 vaL=CAST(bid to LocL AS VARCHAR)+ 1 ; 1 + 



CASHexpr AS VARCHAR) + ' ; ' + 

CAST((SELECT SUM(BID_QTY> FROM BIO WHERE (BID PRCE-aShipping*ISNULL( ( SELECT SHIPJ>RCE_RAIL FROM 
SHIPPING WHERE SHIP_TO LOCL=BID_TO_LOCL AND SHIP FROM_LOCL=SLoc l_Id) ,0) )=EXPR AND BID SIZE=1 AND 
BID_CONT=CONT_ID) AS VARCHAR)+ 1 ; 1 + 
CAST(bid_buyr_comp AS VARCHAR) 

FROM (SELECT BID_TO_LOCL, EXPR=BID_PRCE-3Shi pping* I SNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FR0M_L0CL=3Loc I Id) / 0) / BID QTY,BID BUYR_COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR> FROM BID WHERE BID SI2E=1 AND BID C0NT=C0NT ID)Q ORDER 
BY expr DESC) " ~ 

FROM CONTRACT)QO ORDER BY CONT_ORDR 
END 
END 

ELSE — aCont^ypO'Cust BEGIN 
IF aUser Id IS NOT NULL 
BEGIN 

SELECT 

cont_id, 

cont_labl, 

cont_bid true, 

cont offp truc=CASE ISNULL(cont_bid truc,'-1') 
WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ ' ; 1 + 

CASTUSELECT SUM(OFFR_QTY) FROM OFFER WHERE 0FFR_SIZE=0 AND OFFR C0NT=C0NT_ID AND (0FFR_PRCE- 
aShipping*ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_T0 L0CL=3Loc l_Id AND 
SH I P_FROM_LOCL=SHIP_TO_L0CL),0)+OFFR_F0B*ISNULL( (SELECT SHIP PRCEJTRUC FROM SHIPPING WHERE 
SHIPJTO_LOCL=aLocl_Id AND SHIP_FR0M L0CL=0FFR FR0M_L0CL),0) )=EXPR1) AS VARCHAR) + ' ; ' + 

CAST(OFFR_SELR_COMP AS VARCHART 

FROM (SELECT 0FFR_C0NT / OFFR_PRCE-3Shipping*ISNULL((SELECT SHIP PRCEJTRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=aLocl_Id AND $HIP_FROM_LOCL=SHIP_TO LOCL) ,0>+OFFR FOB*ISNULL( (SELECT SHIP J>RCE_TRUC 
FROM SHIPPING WHERE SHIP_TO_LOCL=aLoc L_Id AND SHIP_FROM_LOCL=OF FR_FROM LOCL),0) AS 
EXPR1,0FFR SELR COMP=(SELECT PERS COMP FROM PERSON WHERE PERS ID=OFP 



. R_SELR) FROM OFFER WHERE 

OFFR_SIZE=0)Q WHERE OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST<(OFFR_PRCE-3Shipping*ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TO LOCL IN ( SUBSTRING ( con t_bid_t rue, 1 , PATINDEX( '%;%' , cont_bid_truc)-1 )) AND 
SHIP_FR0M_L0CL=3Locl_Id),0)+0FFR FOB*ISNULL( (SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

<SUBSTRlNG(cont_bid_truc / 1 / PATINDEX( , %;% , / cont bid truc)-1) ) > ,0) ) AS VARCHAR)+' ; ■ + 
CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND 0FFR_C0NT=C0NT ID AND 
( REVERSE ( SUBSTRING ( REVERSE (cont_bid_t rue ) , 1 , P AT INDEX ( '%;%', REVERSE ( con t_bid_t rue ) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN_C0MP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc) / 1 / PATINDEX( , %;% , / REVERSE(cont bid truc))-1))) AND 
TRST_C0NT&P0WER(2,C0NT_ID-1)O07 AND CAST((OFFR PRCE-3Shi ppi ng*ISNULL( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRING( cont bid_truc,1 , PAT IN D EX ( '%;%', cont_bid_truc)-1 ) ) AND 
SHIP_FROM_LOCL=aLocl_Id),0)+OFFR_FOB*ISNULL((SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO LOCL IN 

(SUBSTRING(cont_bid_truc,1 / PATINDEX( , %;%'7cont bid truc)-1 > ) ) ,0) ) AS VARCHAR)=CAST( (0. OFFR_PRCE- 
ashipping*ISNULL((S 



ELECT SHIP_PRCEJTRUC FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUBSTRINGUontJ^id^ruc^PATINDEXC?^/^ , cont_bid_truc)-1 ) ) AND 

SHIP_FROM_LOCL==aLocl_Id),Q)+Q.OFFR_FOB*ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP FROM_LOCL=Q . OF FR_FROH_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid truc,1,PATINDEX( '%;%' ,cont bid truc)-1 ))),0)) AS VARCHAR)) 
AS VARCHAR)* ';'+ 

CASTC (SELECT PERS COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AS VARCHAR) 
FROM OFFER Q WHERE OFFR_SIZE=0 AND 0FFR_CONT=CONT ID AND 
( REVERSE (SUBSTRING (REVERSE (cont_bid_t rue) ,1 , PATINDEXC 1 %;% 1 , REVERSE ( con t_bid_truc))-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_.TR ST FROM~TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS ID=OFFR_SELR) AND TRST C0NT&P0WER(2, CONT ID-DOO) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRSTJ10T TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont bid true) , 1 , PATINDEX( *%;%' , REVERSE (cont bid_truc))-1))) AND 
TRST CONT&POWER(2,C0NT ID-DOO) ORDER BY EXPR1 ASC) 
END, 
cont bid rail, 

cont~offr rail=CASE ISNULL(cont_bid_rai I, '-1 1 ) 
WHEN '-V THEN 
(SELECT TOP 1 vaL=CAST(expr1 AS VARCHAR)+ ' ; ' + 

CAST((SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR SIZE=1 AND OFFR_CONT=CONT ID AND (OFFR_PRCE- 
3Shipping*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING~WHERE SHIP TO L0CL=3Locl Id AND 



SHIP_FR0M_LOCL=SHIP_TO LOCL>,0)+OFFR FOB*ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=aLocl_Id AND SHIP FROM_LOCL=OFFR FROM_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; 1 + 
CAST(OFFR_SELR_COMP AS VARCHAR) 

FROM (SELECT OFFR_CONT,OFFR_PRCE-aShipping*ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=aLocL_Id AND SHIP_FROM_LOCL=SHIP_TO_LOCL) , 0)+OF F R FOB*ISNULL( (SELECT SHIP_PRCE J*AIL 
FROM SHIPPING WHERE SHIP_T0_L0CL=3Loc I Id AND SHIP FROM_LOCL=OFFR FROM_LOCL) ,0) AS 
EXPR1,0FFR_SELR_C0MP=(SELECT PERS_COMp"FROM PERSON"WHERE PERS ID=OFFR SELR) FROM OFFER WHERE 
OFFR SIZE=1)Q WHERE OFFR C0NT=CONT ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST((0FFR P RCE-3Shipping* I SNULL( (SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL IN (SUBSTRING(cont bid rai L / 1 / PATINDEX( '%;%' / cont_bid_rai )) AND 
SHIP FROM L0CL=3Loct Id) ,0)+OFFR_FOB*ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP FROM LOCL=OFFR FROM LOCL AND SHIP_TOJ_OCL IN 

(SUBSTRING(cont bid_rai I, 1 , PATINDEX( '%;%' , cont_bid_rai L>-1))),0)) AS VARCHARH ' ; 1 + 
CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR SIZE=1 AND OFFR_CONT=CONT ID AND 
(REVERSE(SUBSTRING(REVERSE(cont - bid - rail),1 / PATINDEX( l %;% , / REVERSE(cont bid raiL))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=( SELECT PERS COMP~FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN ID=0FFR BRAN) NOT IN (SELECT DISTINCT TRSTJIOT TRST FROM TRUST WHERE TRST COMP IN 
( REVERSE ( SUBSTRING ( REVERSE ( cont bid rai L),1 , PATINDEX( 1 %;% ■ , REVERSE(cont_bid_raU) )-1 ) ) ) AND 
TRST_CONT&POWER(2,CONT_ID-1X>0) AND CAST( (0FFR_PRCE-3Shipping*ISNULL((SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRING (cont_bid_rai 1,1 ,PATINDEX( ' %;% ' , cont_bid_rai L)-1 ) ) AND 
SHIP_FROM_LOCL=aLocl_Id) / 0)+OFFR FOB*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM LOCL=OFFR_FROM LOCL AND SHIP_TO_LOCL IN 
(SUBSTRING(cont bid_rai L,1 , PA~ 



TINDEX('%;%',cont bid rai ) ) ) ,0) ) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
S)Shipping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL IN 
(SUBSTRING(cont - bid_raiL / 1 / PATINDEX( , %;% , / cont_bid„rail)-D) AND 

SHIP_FROM_LOCL=S)LocL Id), 0)+Q.OFFR_FOB*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR_FROM_LOCL AND SHIP TO_LOCL IN 

(SUBSTRING(cont_bid_rail / 1 / PATINDEX('%;% T / cont_bid rai l)-1)) ),0)) AS VARCHAR) ) 
AS VARCHARH 1 ; ' + 

CAST((SELECT PERS_COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AS VARCHAR) 
FROM OFFER Q WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid_rai l),1 ,PATINDEX( 1 %;%' , REVERSE (con t bid rail))-1))> NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COMP~FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_C0NT&P0WER(2, CONT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_N0T TRST FROM TRUST WHERE TRST_COMP IN 
( RE VE RS E ( SUBSTRING( REVERSE ( con t_bid_r a i L ), 1 , PAT INDEX ( ' %;%' , REVERSE (cont bid_rai l))-1 ))) AND 
TRST_CONT&POWER(2,CONT ID-DOO) ORDER BY EXPR1 ASC) 
END 
FROM 
(SELECT 
cont_id, 
cont_labl, 
cont_ordr, 

cont_bid_truc=(SELECT TOP 1 val=CAST(bid_to_locl AS VARCHARH ' ; 1 + 
CAST(expr AS VARCHAR)+ 1 ; ' + 
CAST( 

(SELECT SUM(BID QTY) FROM B 



ID WHERE (BID_PRCE-3Shi pping*ISNULL( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP J"OJ.OCL=BID_TO_LOCL AND SHIP_FROM LOCL=3Loc L_Id) y O) )=EXPR AND BID_SIZE=0 AND 
BID_CONT=CONT ID AND acomp Id NOT IN (SELECT DISTINCT~TRST NOT TRST FROM TRUST WHERE 
TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR7 AND TRST C0NT&P0WER(2, CONT ID-DOO) 
AND (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=BID_BUYR) NOT IN ( SELECT~DISTINCT TRST_NOT"TRST FROM 
TRUST WHERE TRST~COMP=aComp_Id AND TRST JT0NT&P0WER(2, CONT_ID-D 00) ) 

AS VARCHAR)+ ' ; '+ 

CAST(bid_buyr_comp AS VARCHAR) 

FROM (SELECT BID_TO_LOCL, EXPR=BID_PRCE-3Shipping*ISNULL( (SELECT SHIP_PRCE TRUC FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID TO LOCL AND SHIP_FR0M_L0CL=3Loc I Id),0),BID QTY,BID BUYR_COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
SComp_Id NOT IN (SELECT DISTINCT~TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM 
PERSON WHERE PERS_ID=BID_BUYR) AND TRST_C0NTSP0WER(2 / CONT ID-DOO) AND (SELECT PERS COMP FROM 
PERSON WHERE PERS ID=BID BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE 
TRST_COMP=aComp_Id AND TRST_C0NT&POWER(2, C0NT_ID-1 )<>0) )Q ORDER BY expr DESC), 
cont_bid_rai l=(SELECT TOP 1 val=CAST(bid_to_Locl AS VARCHAR)+ 1 ; ' + 

CAST(expr AS VARCHAR)+ 1 ; 1 + 

CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE (BID PRCE-ashippi ng*ISNULL( (SELECT SHIP PRCE_RAIL FROM 
SHIPPING WHERE SHI 



P_TO_LOCL=BID TO_LOCL AND SHIP^FROM L0CL=3Locl Id),0))=EXPR AND BID SIZE=1 AND 
BID_CONT=CONT_ID AND 3Comp Id NOT IN (SELECT DISTINCT~TRST NOT TRST FROM TRUST WHERE ~ 
TRST_COMP=(SELECT PERS_C0MP FROM PERSON WHERE PERS ID=B1D_BUYr7 AND TRST_CONT&POUER(2, CONT_ID-1 )<>0) 



AND (SELECT PERS COMP FROM PERSON WHERE PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT_TRST FROM 
TRUST WHERE TRST_C0MP=3Comp Id AND TRST CONT&POWER(2, CONT ID-DOO)) 
AS VARCHAR)+';'+ 
CAST(bid_buyr_comp AS VARCHAR) 
FROM (SELECT BID TO LOCL, EXPR=BID PRCE-SShi ppi ng*ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=aLoc l_Id) ,0) , BID_QTY,BID BUYR COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID~BUYR7 FROM BID WHERE BID SIZE=1 AND BID~CONT=CONT_ID AND 
aComp_Id NOT IN (SELECT DISTINCT~TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_C0MP FROM 
PERSON WHERE PERS ID=BID BUYR) AND TRST C0NT&P0WER(2, CONT ID-DOO) AND (SELECT PERS COMP FROM 
PERSON WHERE PERS ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE 
TRST_COMP=aComp_Id AND TRST C0NT&P0WER(2, CONT ID-DOO) )Q ORDER~BY expr DESC) 

FROM CONTRACT WHERE CONT~ID IN (SELECT DISTINCT CONT ID FROM CONTRACT WHERE 
ISNULL(P0WER(2,C0NT_ID-D&(SELECT DISTINCT TRSTJTONT FROM TRUST WHERE TRST COMP=aComp Id),O)=0 AND 
POWER(2 / CONT_ID-D8(SELECT COMP PREF FROM COMPANY WHERE COMP_ID=aComp Id)O0) AND CONT LABL LIKE 
3Cont_typ)Q0 ORDER BY CONT ORDR" 
END 

ELSE --3User_Id IS NULL 
BEGIN 

SELECT 

cont_id, 

cont_labl / 

cont_bid_truc, 

cont_off r_truc=CASE ISNULL(cont bidjtruc, 1 -1 ' ) 
WHEN '-1' THEN 

(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; 1 + 

CAST((SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR SIZE=0 AND OFFR_CONT=CONT ID AND (OFFR_PRCE- 
3Shipping*ISNULL((SELP 



.CT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP TO_LOCL=3Loc l_Id AND 
SHIP FROM LOCi=SHIP TO LOCL) ,0)+OF FR FOB* I SNU LLC (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP TO_LOCL=SLocl Id AND SHIP FROM_EoCL=OF FR FROM_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; ' + 

cast(offr_selr!comp AS VARCHAR) 

FROM (SELECT OFFR_CONT / OFFR_PRCE-SShipping*ISNULL( (SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_TO L0CL=3Locl Id AND SHIP_FROM_LOCL=SHIP_TO_LOCL) ,0)+OFFR_FOB*ISNULL( (SELECT SHIP_PRCE_TRUC 
FROM SHIPPING WHERE SHIP T0_L0CL=3LocL_Id AND SHIP FROM L0CL=OFFR_FR0M_LOCL) ,0) AS 
EXPR1,0FFR_SELR_C0MP=(SELECT PERS_COMP FROM PERSON~WHERE PERS_ID=OFFR_SELR) FROM OFFER WHERE 
OFFR_SIZE=0)Q WHERE OFFR CONT=CONT ID ORDER BY EXPR1 ASC) 

ELSE 

(SELECT TOP 1 expr1=CAST((0FFR_PRCE~aShipping*ISNULL((SELECT SHIP PRCEJTRUC FROM SHIPPING WHERE 
SHIP„TO_L0CL IN ( SUBSTRING (cont_bid_t rue, 1 , PATINDEX( '%;%', cont_bid_t ruc)-1 ) ) AND 
SHIP_FR0M_L0CL=aLocl_Id),0)+OFFR_F0B*ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP FROM LOCL=OFFR_FROM LOCL AND SHIP TOJ.OCL IN 

(SUBSTRING (cont bid truc,1 ,PATINDEX( ' %;% 1 ,cont bid truc>-1) ) ),0)) AS VARCHARH ' ; 1 + 
CASK 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid - truc) / 1 / PATINDEX( , %;%',REVERSE(cont_bid_truc))-1))) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP= (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER (2, CONT_ID)<>0) AND ( SELEC T 



. BRAN_COHP FROM BRAND WHERE 
BRAN_ID=OFFR BRAN) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP IK 
(REVERSECSUBSTRINGCREVERSECcont bid_t rue) ,1 , PATINDEXC 1 %;% ' , REVERSE(cont_bid_t rue) )-1 ) ) ) AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0) AND CASTC C0FFR_PRCE-3Shi ppi ng*ISNULL( (SELECT SHIP_PRCE TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRINGCcont bid truc,1, PATINDEXC »%;%' , contjnd truc)-D) AND 
SHIP_FROM_LOCL=aLoct_Id),0)+OFFR_FOB*ISNULL( (SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR - FROM LOCL AND SHIP TO_LOCL IN 

(SUBSTRING(cont_bid_truc7l /PATINDEXC %;% , / cont,bid_truc)-1))),0)) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
aShipping*ISNULL((SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL IN 
(SUBSTRING(cont_bid_truc,1 / PATINDEX( , %;% , / cont - bid_truc)-D) AND~ 

SHIP_FR0M_L0CL=3Locl_Id>,0)+Q.OFFR_F0B*ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM LOCL=Q.OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRINGCcont bid^truc^PATINDEXC '%;%' ,cont bid truc)-1>) ),0)) AS VARCHAR)) 
AS VARCHAR) +'; '+ 

CAST((SELECT PERS_COMP FROM PERSON WHERE PERS ID=OFFR_SELR) AS VARCHAR) 
FROM OFFER Q WHERE OFFR_SIZE=0 AND 0FFR_CONT=CONT_ID AND 
( REVERSE (SUBSTRINGCREVERSECcont_bid_t rue ),1, PATINDEXC 1 %;%' ,REVERS 



E(cont bid_truc>)-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0> AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc) / 1 / PATINDEX('%;% , ,REVERSE(cont bid truc>)-1)>) AND 
TRST CONT&POWER(2,CONT ID-DOO) ORDER BY EXPRl ASC) 
END, 

cont_bid_rai I, 

cont'of f r_rai L=CASE ISNULL(cont_bid_rai I, '-1 1 ) 
WHEN *-r THEN 



(SELECT TOP 1 val=CAST(expr1 AS VARCHARH 1 ; ' + 

CASTCCSELECT SUM(OFFR_GTY) FROM OFFER WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT ID AND (OFFR_PRCE- 
aShipping*ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE SHIP T0_L0CL=3Loc I Id AND 
SHIP FROM LOCL=SHIP TO LOCL),0)+OFFR_FOB*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP~TO_LOCL=3Loc L_Id AND SHIP„FROM_LOCL=OFFR_FROM_LOCL),0) )=EXPR1 ) AS VARCHARH '; 1 + 

~CAST (OFF R_S E L R COMP AS VARCHAR) 

FROM (SELECT OFFR CONT,OFFR PRCE-aShipping*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP TO LOCL=3Locl Id AND SHIP FROM LOCL=SHIP_TO LOCL) ,0)+OFFR FOB*ISNULL( (SELECT SHIP_PRCE RAIL 
FROM~SHTpPING WHERE SHIP_TOJ_OCL=aLoc l^Id AND SHTp_FROM_LOCL=OFFR_FROM_LOCL) ,0) AS 
EXPR1 / OFFR_SELR COMP=(SELECT PERS_COMP~*FROM PERSON WHERE PERS_ID=OFFR SELR) FROM OFFER WHERE 
0FFR_SIZE=1)Q WHERE OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 

ELSE 

(SELECT TOP 1 expr1=CAST((0FFR_PRCE-aShipping*ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TO LOCL IN (SUBSTRING(cont_bid~rai 1,1 , PATINDEX( '%;%', cont bid raiL)-D) AND 
SHIP_FROM_LOCL=aLocl - _Id) / 0)+OFFR,FOB*ISNULL((SELECT SHIP_PRCE_RAIL~FROM SHIPPING WHERE 
SHIP_FROM_LOCL=:OFFR_FROM_LOCL AND SHIP TO LOCL IN 

(SUBSTRlNG(contJ>id_rail / 1,PATINDEX( *%;%' , cont J>idjrai l)-1))) / 0)) AS VARCHAR)+ ' ; 1 + 
CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE 0FFR_SIZE-1 AND OFFR_CONT=CONT ID AND 
( REVERSE( SUBSTRING (REVERSE( con t_b id rai l),1 , PAT INDEX ( 1 %;%' , REVERSE ( cont_bid_rai ) ) ) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM~TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT8POWER(2, C0NT_ID-1 ) " 



<>0) AND (SELECT BRAN__COMP FROM BRAND WHERE 
BRAN ID=OFFR BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP IN 
( REVERSE ( SUBSTRING ( REVERSE (cont_bid_rai , PATINDEX( ' %;% 1 , REVERSE (cont_bid_ra7l ) )-1 )) ) AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0) AND CAST((OFFR PRCE-3Shippi ng* I SNULL( (SELECT SHIP PRCE RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRING(cont_bid rai L,1,PATINDEX( '%;% ' ,cont_bid_rai L)-1) ) AND 
SHIP FROM LOCL=aLocL_Id),0)+OFFR_FOB*ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROH_LOCL=OFFR„FROM_LOCL AND SHIPJTOJ.OCL IN 

(SUBSTRING(cont_bid"rail7l,PATINDEX( , %;% , 7cont_bid_rai l)-1))),0)) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
aShipping*ISNULL(( SELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP TO LOCL IN 
(SUBSTRING(cont_bid_rai 1,1 , PATINDEX( '%;%', cont_bi d^rai L)-1 ) ) AND~ 

SHIP_FROM_LOCL=aLocl_Id),0)+GLOFFR_FOB*ISNULL((SELECT SHIP J>RCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR FROM_LOCL AND SHIP_TO_LOCL IN 

( SUBSTRING ( con t_bid_rai 1,1 , PAT INDEX ( '%;%' , cont_bid_rai l)-1))),0)) AS VARCHAR)) 
AS VARCHAR)+ l ; ■ + 

CASTUSELECT PERS COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT ID AND 
(REVERSE (SUBSTRING (REVERSE(cont_bid_rai I ),1,PATINDEX( *%;%', REVERSE(cont_bid_rai l))-1))) NOT IN 
(SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_C0NT&P0WER(2, CONTJD-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR BRAN) NOT IN (SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST COMP IN 
(REVERSE (SUBSTRING (REVERSE(cont_bid_raU),1,PATINDEX ('%;%', REVERSE (cont_bid_raTL))-1))) AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0) ORDER B 



Y EXPR1 ASC) 

END 
FROM 
(SELECT 
cont_id, 
cont^labl, 
cont_ordr, 

cont_bid_truc=(SELECT TOP 1 va l=CAST(bid_to_Locl AS VARCHAR)+' ; '+ 
CASTCexpr AS VARCHAR)+ ' ; 1 + 

CAST((SELECT SUM(BID_QTY) FROM BID WHERE (BID_PRCE-aShi ppi ng*ISNULL( (SELECT SHIP PRCEJTRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP FR0M_L0CL=3Locl_Id> ,0) )=EXPR AND BID SIZE=0 AND 
BID_CONT=CONT_ID) AS VARCHAR)+ 1 ; ' + 
CAST(bid~buyr_comp AS VARCHAR) 

FROM (SELECT BID TO LOCL, EXPR=BID_PRCE-$Shi pping*ISNULL( ( SELECT SHIP_PRCE TRUC FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=aLocl_Id),0),BID_QTY,BID BUYR_COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE BID_SIZE=0 AND BID_C0NT=CONT_ID)Q ORDER 
BY expr DESC), 

cont_bid_rail=(SELECT TOP 1 val=CAST(bid_to Loci AS VARCHAR)+ ' ; '+ 
CASTCexpr AS VARCHAR)+ 1 ; 1 + 

CAST((SELECT SUM(BID — QTY) FROM BID WHERE (BID PRCE-3Shi ppi ng*ISNULL( (SELECT SHIP_PRCE RAIL FROM 
SHIPPING WHERE SHIP TO LOCL=BID_TO_LOCL AND SHIP FROM L0CL=3LocL_Id) ,0) )=EXPR AND BID SIZE=1 AND 
BID_C0NT=C0NT - ID) AS VARCHAR)+ ' ; 1 + 
CAST(bid_buyr_comp AS VARCHAR) 

FROM (SELECT BID_TO_LOCL, EXPR=BID PRCE-QShi ppi ng*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING 
WHERE SHIP_TOJ.OCL=BID_TO_LOCL AND SHIP_FROM L0CL=3Loc L_Id) ,0) ,BID_QTY, BID_BUYR_COMP=( SELECT 
PERS COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE BID SIZE=1 AND BID CONT=CONT ID)Q ORDER 
BY expr DESC) 

FROM CONTRACT WHERE CONT LABL LIKE 3Cont_typ )Q0 ORDER BY CONT_ORDR 
END 



END 



ELSE IF aUser_Type='D' 
BEGIN 
IF aCont_typ='Cust l 
BEGIN 
SELECT 
cont_id, 
cont_labl, 
cont_bid_truc, 

cont_off r_truc=CASE ISNULL(cont_bid_truc, ' -1 1 ) 
WHEN '-1 T THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ ' ; 1 + 

CASTCCSELECT SUMCOFFR QTY) FROM OFFER WHERE OFFR SIZE=0 AND OFFR CONT=CONT ID AND (OFFR_PRCE- 
ashi ppi ng*ISNULL( (SELECT SHIP_PRCE _TRUC FROM SHIPPING~WHERE SHIP_T0_L0CL=3Loc L_Td AND 
SHIP FROM LOCL=SHIP TO LOCL) ,0)+OF FR FOB*ISNULL( (SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP~TO_LOCU=aLocl_Td AND SHIP FROM_LOCL=OFFR_FROM_LOCL) ,0) )=EXPRT) AS VARCHAR)+ ' ; ' + 

CAST(OFFR_SELR_C0MP AS VARCHAR) 

FROM (SELECT 0FFR_C0NT / 0FFR_PRCE-3Shipping*ISNULL( (SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP TO LOCL=SLocl_Id AND SHIP_FROM LOCL=SHIP_TO_LOCL) ,0)+OFFR_FOB*ISNULL( (SELECT SHIP PRCE TRUC 
FROff SHIPPING WHERE SHIP_TO_LOCL=aLocl_Id AND SHIP_FROM_L0CL=0FFR_FR0M_LOCL) ,0) AS 
EXPR1,0FFR_SELRJ:0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=OFFR SELR) FROM OFFER WHERE 
OFFR_SIZE=0)Q WHERE OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST((0FFR_PRCE-3Shipping*ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_T0_L0CL IN (SUBSTRING(cont bid true, 1 , PATINDEX( '%;%' , cont_bid__truc)-1 )T AND 
SHIP_FR0M_L0CL=aLoct_Id),0)+0FFR_F0B*ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP FROm"lOCL=OFFR_?ROM LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid_truc7l / PATINDEX( , %;% , / cont_bid_truc)-1)>),0)) AS VARCHAR)+ ' ; ' + 
CAST( 

(SELECT SUM(OFFR QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT ID AND 
(REVERS 



ECSUBSTRING(REVERSECcont_bid_truc),1 / PATINDEX( , %;% , / REVERSE(cont_bid_truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc),l / PATINDEX( , %;% , ,REVERSE(cont bid truc))-1))) AND 
TRST CONT&POWER(2,CONT_ID-1X>0) AND CAST( (OFFR_PRCE-aShipping*ISNULL( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL IN ( SUBSTRING (cont_bid_t rue, 1 , PATINDEX( '%;%', cont__bid_truc)-1 ) ) AND 
SHIP_FR0M_L0CL=3Locl Id),0)+OFFR FOB*ISNULL( (SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid_truc,1 / PATINDEX( , %;%' / cont_bid_truc)-1))),0)) AS VARCHAR)=CAST( (Q.OFFR_PRCE- 
ashi pping*ISNULL( ( SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL IN 
(SUBSTRING(cont_bid_truc,1 / PATINDEX('%;% , ,cont_bid_truc)-1)) AND* 

SHIP_FR0M - L0CL=3Loc l_Id) ,0)+Q.OFFR_FOB*ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM~LOCL=Q.OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid_truc,1 / PATINDEX( '%;%' ,cont_bid_truc)-1))),0>) AS VARCHAR) ) 
AS VARCHAR)+ 1 ; 1 + 

CASTUSELECT PERS_COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AS VARCHAR) 
FROM OFFER Q WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc) ,1 , PA T 



i INDEX ('%;%' , REVERSE C con t bid truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP~FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST CONT&POWER(2, CONTJD-1 )<>0) AND (SELECT BRAN_COHP FROM BRAND WHERE 
BRAN_ID= 5 0FFR BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COHP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc) / 1 / PATINDEX('%;% , / REVERSE(cont_bid_truc))-1))) AND 
TRST_CONT&POWER(2,CONT ID-DOO) ORDER BY EXPR1 ASC) 
END, 
cont_bid_rai L, 

cont off r_rail=CASE ISNULLUont bid raU, , -V) 
WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHARH' ; ' + 

CAST((SELECT SUH(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=l AND OFFR_CONT=CONT ID AND (OFFR_PRCE- 
SShipping*ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE SHIP TO L0CL=3LocL Id AND 
SHIP_FROMJ_OCL=SHIP_TO_LOCL),0)+OFFR_F0B*ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_TOJ_OCL=aLocl_Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) ,0) )=EXPR1) AS VARCHAR)+ 1 ; ' + 
CAST(OFFR_SELR COMP AS VARCHAR) 

FROM (SELECT OFFR_CONT,OFFR PRCE-aShippi ng*ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=aLoct_Id AND SHIP_FROM LOCL=SHIP_TO_LOCL) ,0)+OFFR_FOB*ISNULL( (SELECT SHIP_PRCE RAIL 
FROM SHIPPING WHERE SHIP TO_LOCL=SLoc L_Id AND SHIP_FROM L0CL=0FFR_FROM_L0CL) / 0) AS 
EXPR1 / 0FFR_SELR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=OFFR SELR) FROM OFFER WHERE 
OFFR 



SIZE=1)Q WHERE OFFR CONT=CONT_ID ORDER BY EXPR1 ASC) 
ELSE 



(SELECT TOP 1 expM = CAST((0FFR_PRCE-3Shipping*ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL IN (SUBSTRING(cont_bid_rai 1,1 , PATINDEXC '%;%', cont_bid_rai l)-1 )7 AND 
SHlP_FROM_LOCL=aLocl„Id),0)+OFFR_FOB*ISNULL((SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROMJ_OCL=OFFR_?ROMJ_OCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont bid_rai (Jl , PATINDEX( 1 %;% '7cont_bid_rai L)-1 ))),0>) AS VARCHAR) + 1 ; ' + 
CASH 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid rai I) ,1, PAT INDEX ('%;%', REVERSE (cont_bid rail))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP~FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT ID-1)<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_raiL) / 1 / PATINDEX( , %;% , / REVERSE(cont_bid_paU))-1))) AND 
TRST CONT&POWER(2,CONT_ID-1)<>0) AND CAST ( (OFF R_PRCE-SShipping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_TO LOCL IN (SUBSTRING(cont bid_rai 1,1 , PATINDEX( 1 %;% 1 , cont_bid_rai ) AND 
SHIP_FROM_LOCL=aLocl_Id) / 0)+OFFR_FOB*ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont„bid"raiL / 1 / PATINDEX('%;% , ,cont bid_rai D-D)),©)) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
3Shipping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL IN 
(SUBSTRING(contJ>id_raU,1,PATINDEX( '%;%' , cont_bid_rai D-D) AND~ 

SHIP_FROM_LOCL=aLocl Id) ,0)+Q.OFFR_FOB*ISNULL( (SElIcT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR_FROM_LOCL AND SHIP_TO LOCL IN 

(SUBSTRING(cont bid_rai L,l7PATINDEX( ' %;% ' ,cont bid rai L)-1 ) ) ) ,0)) AS VARCHAR) ) 
AS VARCHAR)+'; ■+ 
CAST((SELECT 



PERS COMP FROM PERSON WHERE PERS_ID=OF FR_SELR) AS VARCHAR) 
FROM OFFER Q WHERE OFFR_SIZE=1 AND OFFR CONT=CONT_ID AND 
(REVERSE(SUBSTR I NG( REVERSE (cont bid_rai , PAT INDEX ( '%;%', REVERSE (cont_bid_rai L))-1))) NOT IN 
(SELECT DISTINCT TRST NOTJRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS ID=OFFR SELR) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN~ID=OFFR~BRAN> NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont - bid - rail) / 1 / PATINDEX( , %;% l / REVERSE(cont„bid - rail))-1))) AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0) ORDER BY EXPR1 ASC) 
END 
FROM 
(SELECT 
cont_id, 
cont_labl, 
cont_ordr, 

cont~bid_truc=(SELECT TOP 1 val=CAST(bid_to_locl AS VARCHAR)+ 1 ; ' + 
CAST(expr AS VARCHAR)+ ' ; 1 + 
CASK 

(SELECT SUM(BID_QTY) FROM BID WHERE (BID_PRCE-3Shi ppi ng* I SNULL( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL AND SHIP FROM_LOCL=SLoc I Id),0))=EXPR AND BID_SI2E=0 AND 
BID_CONT=CONT_ID AND (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT 
TRST_NOT_JRST FROM TRUST WHERE TRST_C0MP=3Comp_Id AND TRST_CONT&POWER(2,CONT_ID-1)<>0)) 

AS VARCHAR)+ ' ; ' + 

CAST(bid bu 



yr_comp AS VARCHAR) 

FROM (SELECT BID_T0_L0CUEXPR=BID_PRCE-3Shipping*ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID_JO_LOCL AND SHIP FROM_LOCL=3Loc l_Id) ,0) ,BID GIT Y, BID BUYR_COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID~BUYR) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) NOT IN (SELECT DISTINCT TRST NOT_TRST FROM 
TRUST WHERE TRST_C0MP=3Comp_Id AND TRST_C0NT&P0WER(2, C0NT_ID-1)<>0) )Q ORDER BY expr DESC), 
cont_bid_rail=(SELECT TOP 1 val=CAST(bid_to_Locl AS VARCHAR)+ ' ; ' + 
CAST(expr AS VARCHARH ' ; 1 + 
CAST( 

(SELECT SUM(BID_QTY) FROM BID WHERE (BID J>RCE-3Shi ppi ng*ISNULL ( (SELECT SHIP_PRCE RAIL FROM 
SHIPPING WHERE SHIP_T0_LOCL=BID_TO_LOCL AND SHIP_FR0M_L0CL=3Loc I Id),0))=EXPR AND BID_SIZE=1 AND 
BID_CONT=CONT_ID AND (SELECT PERS_C0MP FROM PERSON WHERE PERS_ID=BID BUYR) NOT IN (SELECT DISTINCT 
TRST_NOT TRST FROM TRUST WHERE TRST_COMP=3Comp_Id AND TRST_C0NT8P0WER(2, C0NT_ID-1 )<>0) ) 

AS VARCHAR)+' ; ' + 

CAST(bid_buyr_comp AS VARCHAR) 

FROM (SELECT BID TO LOCL, EXPR=BID_PRCE-3Shi ppi ng*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TO_LOCL=BID TO LOCL AND SHIP_FROM_LOCL=aLocl_Id),0) / BID_QTY,BID_BUYR_COMP=(SELECT 
PERSJTOMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE BID_SIZE=1 AND BID CONT=CONT_ID AND 
(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM 
TRUST WHERE TRST COMP=aComp Id AND TRST_C0NT&P0WER(2, CONT ID-1)O0))Q ORDER BY expr DESC) 
FROM CONTRACT WHERE CONT ID IN (SE 



LECT DISTINCT CONT_ID FROM CONTRACT WHERE 
ISNULL(POWER(2,CONT_ID-1)&(SELECT DISTINCT TRST_CONT FROM TRUST WHERE TRST COMP=aComp ld),0)=0 AND 
POWER(2,CONTJD-1)&(SELECT COMP PREF FROM COMPANY WHERE COMP ID=aComp_Id)<>0 AND POWER(2,CONT ID- 
1>&(SELECT PERS_PREF FROM PERSON WHERE PERS ID=3User Id)O0)TQ0 ORDER BY CONT ORDR 
END 

ELSE — aContjtypO'Cust 1 



BEGIN 
SELECT 
cont_id, 
cont_Labl, 
cont_bid_truc, 

cont'offr truc=CASE ISNULLCcont bid true,'-! 1 ) 
WHEN '-1 T THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ ' ; ' + 

CASTUSELECT SUHCOFFR QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR CONT=CONT ID AND (OFFR PRCE- 
3Shipping*ISNULL( (SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP TO LOCL=aLocL Id AND 
SHIP_FROM_LOCL=SHIP_TO_LOCL) / 0)+OF?R__FOB*ISNULL( (SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE 
SHIP_TOjLOCL=aLocl_Id AND SHIP_FROM LOCL=OFFR_FROMJ_OCL>,0) )=EXPR1 ) AS VARCHAR)+ ' ; ' + 

CAST(OFFR_SELR_COMP AS VARCHAR) 

FROM (SELECT OFFR_CONT,OFFR P RCE-3Shippnng* I SNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_JO_LOCU=aLocl_Id AND SHIP_FROM„LOCL=SHIP JTOJ.OCL) ,0)+OFFR_FOB*ISNULL( (SELECT SHIP PRCE_TRUC 
FROM SHIPPING WHERE SHIP T0_L0CL=3Locl Id AND~SHIP FROM LOCL=OFFR FROM LOCL),0) AS 
EXPR1,0FFR_SELR_C0MP=(SELECT PERS_C0MP FROM PERSON~WHERE PERS_ID=OFFR SELR) FROM OFFER WHERE 
OFFR_SIZE=0)Q WHERE OFFR CONT=CONT ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST((OFFR_PRCE-aShipping*ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL IN (SUBSTRING(cont_bid_t ruc,1 , PATINDEX( '%;%' ,cont bid_t ruc)-1 )) AND 
SHIP_FROM_LOCL=3Locl_Id),0)+OFFR_FOB*ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROMJ_OCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont„bid„truc / 1 / PATINDEX( , %;%'7cont_bid_truc)-1))) / 0)) AS VARCHARH 1 ; 1 + 
CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=0 AND OFFR CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc),1 / PATINDEX( , %;% t / REVERSE(cont_bid_truc))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST„COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OFFR SELR) AND TRST_C0NT&P0WER(2, C0NT_ID-1 ) 



<>0) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP IN 
( REVE RSE (SUBSTRING (REVERSE ( cont bid t rue) , 1 , PATTNDEX( '%;%', REVERSE ( con t_bid_t rue ) )-1 ) ) ) AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0)" AND CAST ( (OF FR_PRCE-3Shipping*ISNULL( (SELECT SHIP_PRCE_JRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRING(cont - bid - truc / 1 ,PATINDEX( '%;%', cont_bi d_t ruc)-1 ) ) AND 
SHIP_FROM_LOCL=aLocl_Id) / 0)+OFFR_FOB*ISNULL((SELECT SHIP_PRCE - TRUC FROM SHIPPING WHERE 
SHIP FROM LOCL=OFFR_FROM LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid truc7l ,PATINDEX( '%;%' , cont_bid_truc)-1 )) ),())) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
3Shi ppi ng*ISNULL( ( SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE SHIP TO_LOCL IN 
(SUBSTRING(cont - .bid,truc / 1 / PATINDEX( , %;%' / cont_bid_truc)-1)) AND* 

SHIP FROM LOCL=S)Locl Id) ,0)+Q. OFFR_FOB*ISNULL( (SELECT SHIPJ>RCE TRUC FROM SHIPPING WHERE 

ship~from!locl=q.offr_from_locl AND SHIP_TOJ_OCL IN 

(SUBSTRING(cont_bid_truc,1 / PATINDEX( , %;% T / cont_bid - truc)-1))) / 0)) AS VARCHAR) ) 
AS VARCHARH 1 ; 1 + 

CAST( (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=OFFR SELR) AS VARCHAR) 
FROM OFFER Q WHERE OFFR_SIZE=0 AND OFFR CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc),1 / PATINDEX('%;% l / REVERSE(cont_bid truc))-1))> NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP~FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN_COMP FROM BRAND WHERE 
BRAN ID=OFFR BRAN) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP IN 
(REVERSE ( SUBSTRING ( REVERSE ( cont_bid_t rue) ,1 , PAT IN D EX ( '%;%*, REVERSE (cont bid_t rue) )-1) ) ) AND 
TRST_CONT&POWER(2,CONT ID-DOO) ORDER BY EXPR1 ASC) 
END, 
cont_bid_rai I, 
cont o 



ffr rail=CASE ISNULL(cont_bid_rai I, '-V ) 
WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; 1 + 

CAST((SELECT SUM(OFFR_QTY) FROM OFFER WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT_ID AND <OFFRJ»RCE- 
aShipping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TOJ_OCL=3Locl_Id AND 
SHIP FROM LOCL=SHIP TO LOCL) ,0)+OF FR FOB*ISNULL( ( SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP~TO L0CL=3LocL Id AND SHIP„FROM_LOCL=OFFR_FROM_LOCL) ,0) )=EXPR1) AS VARCHAR)+ ' ; 1 + 
CAST(OFFR SELR COMP AS VARCHAR) 

FROM (SELECT OFFR CONT, OF FR_PRCE-aShipping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP TO L0CL=3LocL Id AND SHIP_FROM_LOCL=SHIP_TO_LOCL) / 0)+OFFR_FOB*ISNULL( (SELECT SHIP_PRCE_RAIL 
FROM'sHIPPING WHERE SHIP T0_L0CL=3Locl_Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL> ,0) AS 
EXPR1,0FFR SELR COMP=(SELECT PERS COMP FROM PERSON WHERE PERS_ID=OFFR_SELR) FROM OFFER WHERE 
OFFR_SIZE=T)0 WHERE OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST((0FFR PRCE-aShipping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP TO LOCL IN (SUBSTRING(cont bid"rai 1,1 , PATINDEX( '%;%* ,cont_bid_raU)-1) > AND 
SHIP~FROM L0CL=3Locl_Id) / 0)K>FFRJ : 0B*ISNULL( (SELECT SHIP J>RCE_RAIL FROM SHIPPING WHERE 
SHIP~FROM~L0CL=0FFR FROM LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid>ail7l,PATINDEX( l %;%' / cont_bid_raU)-1))),0)) AS VARCHAR)+ ; + 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE PROCEDURE spOSM 
aCompTyp 
3Typ 
aComp 
aSearch 

acoi 

aSearchCol 
aShowALl 
aOrder 



varchar (4) 
varchar (4) 
numeri c 
varchar<200) 

varchar(200) 
varchar(200) 
varchar(200) 
varchar(200) 



= NULL, 



NULL, 
NULL, 
NULL, 

NULL, 
NULL, 
NULL, 
NULL 



AS 

DECLARE 



astrSql 



varchar(4000) 



SET aStrSq 1= 1 SELECT * FROM (SELECT PERS_ID, PERS_LAST_NAME, PERS_TYPE, PERS_ENBL, 1 

IF aCompTyp^'P 1 
BEGIN 

SET ast rSql=3St rSql+ 1 (SELECT ISNULL(SUM(BID_PRCE*BID_QTY*(42000*(1 .0- 
BID_SIZE)+(0.0+BID_SIZE)*190000)),0) FROM BID WHERE BID_BUYR=PERS_ID) AS EXPR1 , (SELECT 
ISNULL(SUM((0RDR_PRCE+ORDR_SHIP_PRCE)*(420O0*(1.0-ORDR SIZE)+(0.0+ORDR_SIZE)*190000)*ORDR_QTY),0) 
FROM ORDERS WHERE ORDR_BUYR=PERS_ID AND ORDRJJGHT IS NULD + CSELECT 

ISNULL(SUM((ORDRJ>RCE+ORDR_SHIP_PRCE)*ORDR WGHT*ORDR BUYR_RATE+ORDR_BUYR_PAID) ,0) FROM ORDERS WHERE 

ORDR_BUYR=PERS_ID AND ORDR_WGHT IS NOT NULL) AS EXPR2 1 

END 

ELSE IF aCompTyp= , S' 
BEGIN 

SET aStrSql=3StrSql+' (SELECT ISNULL(SUM(OFFR_PRCE*OFFR_QTY*(42000*(1 .0- 
OFFR_SIZE)+(0.0+OFFR_SIZE)*190000)),0) FROM OFFER WHERE OFFR_SELR=PERS_ID)AS EXPR1 , (SELECT 
ISNULL(SUM(ORDR_PRCE*(42000*(1 ,0-ORDR_SIZE)+(0.0+ORDR_SIZE)*190000)*ORDR_QTY),0) FROM ORDERS WHERE 
ORDR_SELR=PERS_ID AND ORDR_WGHT IS NULL)+(SELECT ISNULL(SUM(0RDR_PRCE*0RDR_WGHT*(Q.97*(1 . 0- 
ORDR_SIZE)+0.98*(0.0+ORDR_SIZE))*ORDR_SELR RATE+ORDR SELR_PAID) ,0) FROM ORDERS WHERE 
ORDR_SELR=PERS_ID AND ORDR WGHT IS NOT NULL) AS EXPR2 ' 



END 

ELSE IF 3CompTyp='D' 
BEGIN 

IF 3Typ= , 0P' 
BEGIN 

SET aStrSql=astrSqL+' (SELECT ISNULL(SUM (BID_PRCE*BID_QTY*(42000* (1 .0- 
BID_SIZE)+(0.0+BID_SIZE)*190000)),0) FROM BID WHERE BID_BUYR=PERS ID)AS EXPR1 , (SELECT 
ISNULL(SUM((ORDRJ>RCE+ORDR_SHIPJ>RCE)*(42000*(1.0-ORDR SIZE)+(0.O+ORDR_SIZE)*190O00)*0RDR_QTY>,0) 
FROM ORDERS WHERE ORDR_BUYR=PERS_ID AND ORDR_WGHT IS NULL)+(SELECT 

ISNULL(SUM((ORDR_PRCE+ORDR_SHIPJ>RCE)*ORDR_WGHT*ORDR_BUYR RATE+ORDR BUYR_PAID),0) FROM ORDERS WHERE 
ORDR_BUYR=PERS_ID AND ORDR_WGHT IS NOT NULL) AS EXPR2 1 

END 

ELSE 

IF aTyp='OS' 
BEGIN 

SET 3StrSqL=aStrSqL+ 1 (SELECT ISNULL(SUM(OFFR PRCE*OF FR_QTY* (42000* (1 . 0- 
OFFR_SIZE)+(0.0+OFFR_SIZE)*190000)),0) FROM OFFER WHERE OFFR_SELR=PERS ID)AS EXPR1 , (SELECT 
ISNULL(SUM(ORDR_PRCE*(42000*(1.0-ORDR SIZE)+(0.O+ORDR_SIZE)*19O00O)*ORDRJ5TY) / 0) FROM ORDERS WHERE 
ORDR_SELR=PERS_ID AND ORDR_WGHT IS NULL)+(SELECT ISNULL(SUM(ORDR PRCE*ORDR WGHT*(0. 97*(1 .0- 
0RDR_SIZE)+0.98*(0.0+ORDR_SIZE))*ORDR SELR_RATE+ORDR SELR PAID),0) FROM ORDERS WHERE 
ORDR_SELR=PERS_ID AND ORDR WGHT IS NOT NULL) AS EXPR2 ' 
END 

END 

SET aStrSql=SStrSqL+ , / PERS_LOGN FROM PERSON WHERE PERS_REG=1 AND PERS_COMP= ' +CASTOComp as 
varchar)+')T ' 



IF aSearch IS NOT NULL AND aShowAU IS NULL 



BEGIN 

IF aSearchCol='PERS TYPE 1 
BEGIN 

SET 3StrSql=aStrSq 1+ 1 WHERE PERS TYPE="P" AND "Purchaser" LIKE " % ' +3Search+ ' % " 
OR PERS_TYPE="0 I » AND "Officer" LIKE " % ' +aSearch+ ' % " OR PERS TYPE="S" AND "Supplier" LIKE 
■ , % l +aSearch+ , %' * 1 
END 

ELSE IF 3SearchCol='ALL' 
BEGIN 

SET aStrSql=aStrSql+ 1 WHERE PERSJ-ASTJIAME LIKE " % ' +aSearch+ ' % " OR PERS LOGN LIKE 
"%'+aSearch+ I %" OR EXPR1 LIKE "% , +3Search+ , %" OR EXPR2 LIKE "% ' +3Search+ '%" OR PERS TYPE="P" 
AND "Purchaser" LIKE "%' +3Search+ T ' OR PERS TYPE="0" AND "Officer" LIKE "%'+aSearch+ '% " 
OR PERS TYPE="S" AND "Supplier" LIKE ' 1 % * +3Search+ 1 % " ' 

END 

ELSE 

SET aSt rSql=aStrSql+ 1 WHERE < +3SearchCo 1+ 1 LIKE " % ' +3Search+ 1 % " ' 

END 

SET 3StrSql=3StrSql+' ORDER BY ' 
IF aCoL IS NOT NULL 

SET astrSql=aStrSql+aCol+' '+aOrder 

ELSE 

SET 3StrSql=aStrSql+ ' PERS_LAST_NAME / PERS_TYPE ASC 
Exec (astrSql) 
RETURN 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spOUsers 

acompld numeric = 0 
AS 

SELECT PERS_ID / , ( , +PERS_TYPE+')'+PERS_LAST_NAME+' 1 +PERS FRST_NAHE FROM PERSON WHERE PERS_REG=1 AND 
PERSJTYPEO'O' AND PERS_COMP IN (SELECT COMP_ID FROM COMPANY WHERE COMP_REG=1 AND COMP_NAME LIKE 
(SELECT COMP_NAME FROM COMPANY WHERE COMP ID=aCompId)) 
RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED_IDENTIFIER ON SET ANSI NULLS ON 
GO 



Create Procedure spP 
aid numeric = NULL 
As 

select expr,count( 



*) from (select expr=lef t (convert(varchar,ordr_date,101 ),2),* from orders where 
ordr_buyr=17 and ordr_date >= dateadd(month / -12 / getdate()) )Q group by expr order by expr ASC 
return 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spPBM 

SPersId numeric = NULL, 

SCompId numeric = NULL, 

acont numeric = NULL, 

SSize numeric = NULL, 

aLoclO numeric = NULL, 

3Locl1 numeric = NULL, 

aoffer numeric = NULL, 

3Qty numeric = NULL 
AS 

/******************^ 

** File: 

** Name: spPBM 

** Desc: Purchaser Branded Market 
** 

***************************^ 

** Change History 
****************************^ 

** Date: Author: Description: 

** 12/06/2000 Gerald Colin Purchaser Branded Market 
** 

*****************************^ 
DECLARE 8j decimal(10,1 ), 

31 decimal(4,3), 

astrl varchar(200), 

Sid numeric, 

aSelr numeric, 

3Bran numeric, 

aocont numeric, 

3From numeric, 

aFromLocl numeric, 

aOQty numeric, 

aprce decimal, 

aosize bit, 

3Date smalldatetime, 

3Date1 varchar(50), 

QGene bit, 

aSelrComp numeric, 

aBranComp numeric, 

3Fob bit, 

asPrce decimal, 

aSPrceF decimaL, 

aLoclTo varchar(200), 

aBHail varchar(200), 

aBName varchar (200) , 

aContLabl varchar(200), 

aLoclFrom varchar(200) , 

aSelrMai I varchar(200), 

ai numeric, 

ak decimal, 

3m numeric, 

3Str2 varchar(200), 

3Expr decimaL, 



ttMaxId numeric, 
3Str3 varchar(2000), 
3Str4 varchar(2000), 
astrTempI varcharUOO), 
astrTemp2 varcharUOO), 
astrTemp3 varchardOO) , 
astrTempA varcharUOO), 
aStrTempS varchar (100), 
astrTemp6 varcharClOO), 
astrMai 11 varchar(200), 
astrHai 12 varchar(200), 
aObjHail int 



print • iiiiuiiiiiiiiiiiir 

PRINT 1 // Branded Market' 



SELECT ak=CRED_AVLB FROM CREDIT WHERE CRED_C0MP=3CompId 

IF asize = 0 

BEGIN 

DECLARE cs CURSOR FOR 

SELECT *,EXPR=OFFR_PRCE+SHIP_PRCE,LOCL_TO=<SELECT LOCL_CITY+* , *+LOCL_STAT FROM LOCALITY WHERE 
LOCL ID=aLocLO) / BUYER_MAIL=( SELECT PERSJ1AIL FROM PERSON WHERE P ERS_ID=3Pers Id ) ,BRAN_NAME=( SELECT 
BRAN~NAME FROM BRAND WHERE BRAN ID=OF FR~BRAN) , CONT_LABL= (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=OFFR CONT),LOCL FR0M=(SELECT LOCL CITY+ 1 , ' +LOCL STAT FROM LOCALITY WHERE 
LOCL ID=OFFR~FROM LOCL)7sELR_MAIL=(SELECT~PERSJ1AIL FROM~PERSON WHERE PERS_ID=OFFR SELR) FROM 
(SELECT *,SHIP_PRCE=OFFR_FOB*(SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP_T0_L0CL=3LocL0 AND 
SHIP_FROM_LOCL=OFFR_FROMJ-OCL),SHIPJ>RCE FULL=OFFR FOB*(SELECT SHIP PRCE FULL TRUC FROM SHIPPING 
WHERE SHIP_TOJ_OCL=aLoclO AND SHIP FROM_LOCL=OFFR_FROM_LOCL) FROM OFFER WHERE~OFFR ID=a0ffer)Q0 

SET 3 j =42000.0 

SET 31=0.97 

SET 3Str1='Truckload' 
END 
ELSE 
BEGIN 

DECLARE cs CURSOR FOR 

SELECT *,EXPR=OFFR_PRCE+SHIP PRCE, L0CLJT0=(SELECT LOCL CITY+ 1 , '+L0CL_STAT FROM LOCALITY WHERE 
LOCL_ID=aLocLO) / BUYER_MAIL=(SELECT PERS_MAIL FROM PERS0N~WHERE PERS ID=3PersId) ,BRAN_NAME=(SELECT 
BRAN NAME FROM BRAND WHERE BRAN_ID=OFFR BRAN) , CONT LABL=(SELECT CONT LABL FROM CONTRACT WHERE 
CONT~ID=OFFR CONT),LOCL_FROM=(SELECT LOCL CITY+ 1 , "+LOCL STAT FROM LOCALITY WHERE 
LOCL~ID=OFFR~FROM LOCL),SELR MAIL=(SELECT~PERS_MAIL FROM~PERSON WHERE PERS ID=OFFR_SELR) FROM 
(SELECT *,SHIP PRCE=0FFR_F0B*( SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=aLocLO AND 
SHIP_FR0MJ_0CL=0FFR_FR0MJ_0CL) / SHIP_PRCE_FULL=0FFR_F0B*(SELECT SHIP J>RCE_FULL_RAIL FROM SHIPPING 
WHERE SHIP T0_L0CL=3Locl0 AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) FROM OFFER WHERE OF FR ID=30ffer)Q0 

SET aj 



=190000.0 

SET ai=o.98 

SET aStr1='Rail Car' 
END 

OPEN cs 

FETCH NEXT FROM cs INTO aid, aSelr, BBran, aocont, aFrom, aFromLocl, BOGty, aPrce, aosize, aOate, 
3Gene, aSeLrComp, aBranComp, aFob, 3SPrce, 3SPrceF, 3Expr, aLoclTo, aBMail, aBName, aContLabL, 
aLoclFrom, aSelrMail 
IF (33FETCH_STATUS=0) 
BEGIN 

IF 30Qty>3Qty 

BEGIN 
SET 3i = 3Qty 

UPDATE OFFER SET OFF R_QT Y=0 F F R_QT Y-3Qt y WHERE 0FFR_ID=aid 
END 
ELSE 
BEGIN 

SET 3i = aOQty 

DELETE FROM OFFER WHERE OFFR_ID=aid 
END 

set ak = ak-ai*asprce*aj 

IF ai>1 

SET astr2='s t 
ELSE 

SET astr2=' ' 

INSERT INTO ORDERS 

<ORDR_CONT,ORDR SIZE,ORDR_SHIP,ORDR BID / ORDR_BUYR,ORDRJTO / ORDR_BRAN,ORDR_OFFR / ORDR_SELR / ORDR_FROM / OR 
DR_QTY,ORDR_PRCE / ORDR_SHIP_PRCE,ORDR_GENE,ORDR_SHIP_FULL_PRCE / ORDR_FOB) 

VALUES (acont^asize, ' 0 1 ^aPersId/aLocll ^Bran/aid/aSel^aFrom/ai/aPrce^SPrce,! ,asPrceF,aFob) 

SELECT aMaxId=MAX(ORDR_ID) FROM ORDERS WHERE 0RDR_BUYR=3PersId 

— MAIL -- 

— SI PB — > voir code de Transaction Engine 
SET aStrTempI = aid 

SET 3StrTemp2 = ai 
SET 3StrTemp3 = aContLabL 
SET astrTemp4 = aPrce 
SET astrTemp 



5 = aLoclFrom 
SET astrTemp6 = aPrce*ai*aj*3l 
PRINT 1 <DATE>' 
SELECT aStrTemp6 
PRINT 1 </DATE> 1 



PRINT 1 <DATE> 1 

SELECT aDatel = 6ETDATEO 

SELECT 3Date1 

PRINT 1 </DATE> 1 

SET aStr3= , # , +aStrTemp1+' You sold l +astrTemp2+ l '+astr1+astr2+ 1 of ' +3StrTemp3+' ( , +aBName+ l ) for 
' +3StrTemp4+' per pound. Shipping from t +astrTemp5+' . Estimate Value net of exchange fees: 
'+3StrTemp6 

Set astrMaill = *<font face=arial size=2 color=black>' + 3Date1 + ' : 1 
Set astrHail2 = '<br><br><br><a href="http://www.ThePlasticsExchange. com">The Plastics 
Exchange</a> 1 

EXEC master. .sp_OACreate ' TPEMai l . NewMai 1 1 , aobjMail OUT 
EXEC master. .sp_OAMet hod aobjMail, 'Init', NULL, 
' inf oStheplasticsexchange. com' ,3SelrMai I, 1 ' , 1 1 , 1 Fi lied Order 1 
— EXEC master. .sp_OAMethod aobjMail, 'Init', NULL, 

1 inf o3t hep last i csexchange. com' , 1 patri ckatheplasticsexchange. com' , 1 1 , ' 1 , 1 H lied Order' 
EXEC master. .sp_OAMethod aobjMail, ' AddContent ' , NULL, aStrMaiU 
EXEC master. .sp_OAMethod aobjMail, ' AddContent ' , NULL, 3Str3 
EXEC master. .sp_OAMethod aobjMail, 'AddContent 1 , NULL, 3StrHail2 
EXEC master. .sp_OAMethod aobjMail, 'Send' 
EXEC master. .sp_OADestroy aobjMail 

SET astrTernpl = aMaxId 
SET 3StrTemp4 = 3Expr 
SET 3StrTemp5 = 3LoclTo 
SET 3StrTemp6 = 3Expr*3i*3j 

SET astr4= , #B , +astrTemp1+ , You bought ' +3StrTemp2+ * 1 +3Str1+aStr2+ ' of 1 +3StrTemp3+ ' C , +aBName+ I ) 
for 1 +astrTemp4+* per pound. Delivery to '+3StrTemp5+' . Estimate Value of '+3StrTemp6 

EXEC master. .sp_OACreate ' TPEMai I . NewMai 1 1 , aobjMail OUT 

EXEC master. .sp~OAMethod aobjMail, 'Init', NULL, 
' infoStheplasticsexchange. com 1 ,3BMai L, 1 ','',' Fi lied Order' 

--EXEC mast 



er. .sp_OAMethod aobjMail, 'Init', NULL, 
■ infoatheplasticsexchange. com ' , ' pat ri ckatheplasti csexchange. com' , 1 ' , 1 ' , * Fi lied Order' 
EXEC master. .sp^OAHet hod aobjMail, 1 AddContent ' , NULL, astrMaill 
EXEC master. .sp_OAMethod aobjMail, 'AddContent', NULL, 3StrA 
EXEC master. .sp_OAMet hod aobjMail, 'AddContent*, NULL, 3StrMail2 
EXEC master . .sp_OAMethod aobjMail, 'Send* 
EXEC master. . sp_OADestroy aobjMail 
INSERT INTO MESSAGE <MESS_COMP / MESS_TQ,MESS_FROM,MESSJTEXT,MESS_TYPE) 

VALUES(aSelrComp,aSelr,0, 'astrS 1 ,'1 ') 
INSERT INTO MESSAGE (MESS_COMP,MESS_JO,MESS_FROM,MESS_TEXT,MESS_TYPE) 
VALUES(aCompId,aid,0, 'aStrV, * V) 

— FAIRE LE SEND MAIL — 

SET 3m=0 
WHILE (3m<ai) 
BEGIN 

SET aiR=am+1 
END 

SET aQty=3Qty-3i 
END 
ELSE 

SET aQty = -1 
CLOSE cs 
DEALLOCATE cs 
SELECT 3Qty 
RETURN 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 



GO 

SET QU0TED_1DENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPBM 



Stype int = NULL, 
3j numeric = NULL, 
3i numeric = NULL, 
aComp numeric = NULL 

As 

IF atype=0 --Truck 
SELECT OFFR_ID, 

VARPRICE=OF?R_PRCE+( SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP FROM LOCL=OFFR_FROM LOCL AND 
SHIP_TO_LOCL=aj), 
VARNAME=( SELECT BRAN NAME FROM BRAND WHERE BRAN ID=OFFR_BRAN) , 
OFFRJ5TY 

FROM OFFER WHERE OFFR_GENE=1 AND 0FFR_C0NT=3i AND OFFR SIZE=0 AND OFFR_BRAN_COMP NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=aComp AND TRST_C0NT&P0WER(2,0FFR CONT-DOO) AND 3Comp NOT 
IN (SELECT TRST N0T_TRST FROM TRUST WHERE TRST_COMP=OFFR SELR_COMP AND TRST CONT8POWER(2 / OFFR CONT- 
DOO) ORDER BY VARNAME, VARPRICE 

— FROM OFFER WHERE OFFR_GENE=1 AND OFFR_CONT=ai AND OFFR SIZE=0 AND OFFR BRAN_COMP NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=aComp AND (TRST_CONT=0 OR TRST_CONT=OFFR CONT)5 AND 3Comp 
NOT IN (SELECT TRST NOT TRST FROM TRUST WHERE TRST COMP=0FFR_SELR_COMP AND (TRST CONT=0 OR 
TRST_CONT=OFFR_CONT)) ORDER BY VARNAME, VARPRICE 
ELSE 
SELECT OFFR_ID, 

VARPRICE=OFFR PRCE+(SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND 

sHiPjroj_ocL=aj), 

VARNAME= ( SELECT BRAN_NAME FROM BRAND WHERE BRAN ID s OFFR BRAN) , 
OF FR_QTY 

FROM~OFFER WHERE OFFR_GENE=1 AND 0FFR_C0NT=3i AND OFFR_SIZE=1 AND OFFR_BRAN_COMP NOT IN (SELECT 
TRSTJIOTJTRST FROM TRUST WHERE TRST_COMP=aComp AND TRST_C0NT&P0WER(2,0FFR CONT-DOO) AND 3Comp NOT 
IN (SELECT TRST_N0T_TRST FROM TRUST WHERE TRST_C0MP=OFFR_SELR_COMP AND TRST CONTSPOWER(2,OFFR_CONT- 
DOO) ORDER BY VARNAME, VARPRICE 

-- FROM OFFER WHERE OFFR_GENE=1 AND 0FFR_C0NT-3i AND OFFR_SIZE=1 AND OFFR_BRAN_COMP NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=aComp AND (TRST_CONT=0 OR TRST_CONT=OFFR CONT)) AND 3Cotnp 
NOT IN (SELECT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=OFFR_SELR_COMP AND (TRST_CONT=0 OR 
TRST_CONT=OFFR_CONT) ) ORDER BY VARNAME, VARPRICE 
return 1 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPBO_BP0 

3j numeric = NULL, 

3i numeric = NULL 
AS 

/*****************************************^^ 

** File: spPBO__BPO. sql 

** Name: spPB0_BP0 

** Desc: select BID PRCE 

** 

*************************^ 

** Change History 

****************************** 

** Date: Author: Description: 

** 11/28/2000 Gerald Colin Select BID PRCE 

** 

*******************************************************************************/ 
SELECT EXPR=BIDJ>RCE+(SELECT SHIPJ>RCE_TRUC FROM SHIPPING WHERE SHIP_FR0M_L0CL=aj AND 
SHIP_FR0M_L0CL=SHIP T0J_0CL)-(SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP_FR0M_L0CL=3j AND 
SHIP_TO LOCL=BID T0~L0CL) ,BID_QTY,BID BUYR_C0MP FROM BID WHERE BID_SIZE=0 AND BID_CONT=SJi ORDER BY 
EXPR DESC 



60 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPB0_BP1 

aFrom_Locl numeric = NULL, 

3j numeric = NULL, 

3i numeric = NULL, 

30f f r_Bran_Comp numeric = NULL, 

aof f r_Selr_Comp numeric = NULL 
AS 

/*********************************************^^ 

** File: spPBO_BP1 .sql 

** Name: spPBO_BP1 

** Oesc: select BID PRCE 

** 

**************************************** 
** Change History 

******************************************************************************* 

** Date: Author: Description: 

** 11/28/2000 Gerald Colin Select BID PRCE 

** 

*******************************************************************************^ 

SELECT EXPR=BID_PRCE+ISNULL((SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP_FR0M L0CL=3From Loci AND 
SHIP_TO_LOCL=aj),0)-ISNULL((SELECT SHIP_PRCE _TRUC FROM SHIPPING WHERE SHIP FROM L0CL=aFrom Loci AND 
SHIPjrO_LOCL=BIDJTOJ_OCL) / 0),BIDjaTY / BID_BUYR_COMP FROM BID WHERE BID_SIZE=0 AND BID C0NT=3i AND 
aoff r_Bran_Comp NOT IN (SELECT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=BID_BUYR COMP AND 
TRST_CONT&POWER(2,BID_CONT-1><>0) AND BID_BUYR_COMP NOT IN (SELECT~TRST NOT_TRST~FROM TRUST WHERE 
TRST_COMP=aOff r_Selr Comp AND TRST CONT&POWER(2,ai~1 )<>0) ORDER BY EXPR~DESC 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED IDENT T 



GO 



j-FIER ON SET ANSI NULLS ON 



CREATE Procedure spPBO_BP2 

3j numeric = NULL7 

3i numeric = NULL 
AS 

/****************************^^ 

** File: spPBO_BP2. sql 

** Name: spPBO_BP2 

** Desc: select BID PRCE 

** 

****************************************** 
** Change History 

***********************************^ 

** Date: Author; Description: 

** 11/28/2000 Gerald Colin Select BID PRCE 

** 

****************************^ 

SELECT EXPR=BIDJ>RCE+(SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM L0CL=3i AND 
SHIP_FROMJ_OCL=SHIP_JO_LOCL)-(SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP FROM LOCL=3j AND 
SHIP_TO_LOCL=BID_TO_LOCL) / BID - .QTY / BID_BUYR_COMP FROM BID WHERE BID SI2E=1 AND BID~C0NT=3i ORDER BY 
EXPR DESC 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spPBO_BP3 

3From_Locl numeric = NULL, 

3j numeric = NULL, 

3i numeric = NULL, 

aof f r_Bran_Comp numeric = NULL, 

aof f r_Selr_Comp numeric = NULL 
AS 

/********************************************^^ 

** File: spPBO_BP3.sqL 

** Name: spPBO_BP3 

** Desc: select BID PRCE 

** 

********************************************^ 
** Change History 

**************************************** 

** Date: Author: Description: 

** 11/28/2000 Gerald Colin Select BID PRCE 

** 

*******************************************************************************/ 

SELECT EXPR=BID_PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FR0M_L0CL=3F rom Loci AND 
SHIP_TO_LOCL=aj),0)-ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM L0CL=3From Loci AND 
SHIP_TO_LOCL=BIDJTO_LOCL),0),BID_QTY,BID_BUYR COMP FROM BID WHERE BID_SIZE=1 AND BID_CONT=S)i AND 
aoff r_Bran_Comp NOT IN (SELECT TRST NOT TRST FROM TRUST WHERE TRST_COMP=BID_BUYR_COMP AND 
TRST CONT&POWER(2,BID CONT-1) 



<>0) AND BID_BUYR_COMP NOT IN C SELECT TRSTJIOTJTRST FROM TRUST WHERE 
TRST_COMP=aOff r_Selr_Comp AND TRST_CONT&POWER(2,ai-1 )<>0) ORDER BY EXPR DESC 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
60 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPBO_Offr 

3j numeric = NULL, — Ship_To_Locl 

3i numeric = NULL, — Offr_Cont 

3Comp_Id numeric = NULL 
AS 

/******************************************^^ 

** File: spPBO_Of f r. sql 

** Name: spPBO_Offr 

** Desc: select OFFR 

** 

**************************************** 
** Change History 

******************************************************************************* 

** Date: Author: Description: 

** 11/28/2000 Gerald Colin Select Offers 

** 

*******************************************************************************/ 
SELECT 0FFR_FR0M_L0CL,EXPR=0FFR PRCE+OFFR_FOB*ISNULL((SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FR0M - LOCL=0FFR_FROH_L0CL AND SHIP_T0_L0CL=Sj ),0),OFFR_QTY,OFFR_SELR_COMP,OFFR_BRAN_C0HP FROM 
OFFER WHERE OFFR SIZE=0 AND OFFR C0NT=3i AND OFFR BRAN COHP NOT IN (SELECT TRST NOT TRST FROM TRUST 



WHERE TRST_COMP=aComp_Jd AND TRST_C0NT&P0WER(2,0FFR_C0NT-1 )<>0) AND SComp_Id NOT IN (SELECT 
TRSTJIOT_TRST FROM TRUST WHERE TRST_COMP=OF FR SELR_COMP AND TRST CONT&POWER(2,OFFR CONT-DOO) ORDER 
BY EXPR ASC " 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spPBO_OffrR 
3j numeric = NULL, 
3i numeric = NULL, 
aComp_Id numeric = NULL 

AS 

/****************************************************^**^ 

** File: spPBO_Off rR.sql 

** Name: spPBO~OffrR 

** Desc: select OFFR for Rail car 

** 

***********************************************^^ 
** Change History 

**********************************************************^ 
** Date: Author: Description: 

** 11/28/2000 Gerald Colin Select Offers fro Rail Car 
** 

********************************************* 

SELECT OFFR_FROM_LOCL,EXPR=OFFR_PRCE+OFFR FOB*ISNULLC(SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_FR0M_LOCL=0FFR_FROM_LOCL AND SHIP_T0_L0CL=3j ),0),0FFR_QTY,OFFR_SELR_COMP,OFFR_BRAN_C0MP FROM 
OFFER WHERE 0FFR_SIZE=1 AND OFFR_C0NT=3i AND OFFR_BRAN_COMP NOT IN (SELECT TRST NOT_TRST FROM TRUST 
WHERE TRST_COMP=aComp_Id AND TRST_CONT&POWER(2,OFFR_CONT-1 )<>0) AND 3Cotnp Id NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=OFFR_SELR COMP AND TRST_CONTSPOWER(2,0FFR CONT-DOO) ORDER 
BY EXPR ASC 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULL* 



GO 



S ON 



CREATE Procedure spPBO_pffrT 

3j numeric = NULL, — Shi p_To_Loc I 

3i numeric = NULL, — Offr_Cont 

aComp Id numeric = NULL 

AS 

/*************************** 

** File: spPBO_Of f r . sql 

** Name : spPBO_Of f r 

** Desc: select OFFR 

** 

************************************************ 
** Change History 

******************************************************************************* 
** Date: Author: Description: 



** 11/28/2000 Gerald Colin Select Offers 

** 

*************************^ 

SELECT 0FFR_FR0M_L0CL,EXPR=0FFR PRCE+OFFR_FOB*ISNULL< (SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_FR0M_L0CL=0FFR_FR0M_L0CL AND SHIP_T0_L0CL=3j ) / 0),0FFR - QTY / 0FFR_SELR_COMP,OFFR BRAN COMP FROM 
OFFER WHERE OFFR_SIZE=0 AND OFFR C0NT=3i AND OFFR BRAN COMP NOT IN (SELECT TRST_NOT_TRST FROM TRUST 
WHERE TRST COMP=aComp Id AND TRST CONT&POWER(2,OFFR CONT-DOO) AND 3Comp_Id NOT IN (SELECT 
TRST NOT TRST FROM TRUST WHERE TRST COMP=OFFR SELR COMP AND TRST CONT&POWER(2,OFFR_CONT-1 )<>0) ORDER 
BY EXPR ASC 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJiULLS ON 
GO 



CREATE Procedure spPEF 

aComp_Id numeric = NULL, 

SPersId numeric = NULL, 

aparams varchardOOO) = NULL 
AS 

/************************************^^ 

** File: 

** Name: spPEF 

** Desc: Purchaser Exchange Filters 
** 

****************************************^ 

** Change History 

****************************** 

** Date: Author: Description: 

** 11/29/2000 Gerald Colin Purchaser Exchange Filters 
** 



************************* 
DECLARE aContld numeric, 

3i numeric, 

aSQLQuery varchar C2000) 
--DELETE FROM CUSTOM WHERE CUST_PERS=aPersId 
UPDATE PERSON SET PERS PREF=0 WHERE PERS_ID=3PersId 

SET aSQLQuery « 'SELECT CONT_ID FROM CONTRACT WHERE CONT_ID IN ('+ Sparams +')' 
INSERT INTO TEMP_CONTID EXEC OSQLQuery) 
IF aparamsO' ' 
BEGIN 

DECLARE cs1 CURSOR FOR 

— SELECT C0NT_ID FROM CONTRACT WHERE CONTJD IN (SELECT TRST_CONT FROM TRUST WHERE 
TRST_C0MP=3Comp_Id AND TRST_NOT_TRST=0) AND"cONT_ID NOT IN C SELECT * FROM TEMP_CONTID ) ORDER BY 
CONT_ORDR 

SELECT C0NT_ID FROM CONTRACT WHERE P0WER(2,C0NT ID-1)&(SELECT COMP_PREF FROM COMPANY WHERE 
COMP ID=aComp ld)<>0 AND ISNULLCPOWERC2, CONT_ID-l7&( SELECT TRST_CONT FROM TRUST WHERE 
TRST~COMP=aComp_Id) / 0)=0 AND CONTJD NOT IN ( SELECT * FROM TEMP_CONTID ) ORDER BY CONT_ORDR 
OPEN cs1 

FETCH NEXT FROM cs1 INTO aContld 

WHILE 03FETCH STATUS=0) 

BEGIN 

— SELECT 3i = CUST_CONT FROM CUSTOM WHERE CUST_PERS=3PersId AND CUST_C0NT=3ContId AND 
CUST NOT TRST=0 

SELECT~3i=C0NT_ID FROM CONTRACT WHERE POWER (2, CONT_ID-1 )&( SELECT PERS_PREF FROM PERSON WHERE 
PERS ID=aPersId)<>0 
IF OaROWCOUNT=0) 
UPDATE PERSON SET PER C 



o PREF=PERS PREF+P0WER(2,aContId-1) WHERE PERS_I0=3PersId 
INSERT INTO CUSTOM < CUSTJ>ERS, CUST_CONT, CUST_NOT_TRST) VALUES(3PersId,aContId,0) 



FETCH NEXT FROM cs1 INTO SContld 
END 

CLOSE cs1 
DEALLOCATE cs1 
END 

DELETE TEMP CONTID 



GO 

SET QUOTED_IDENTI FIER OFF SET ANSIJWLLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJIULLS ON 
GO 



CREATE Procedure spPEFl 

aPersId numeric = NULL, 

aCompId numeric = NULL 
AS 

/*********************************************************^^ 
** File: spPEFl. sql 
** Name: spPEFl 

** Desc: Purchaser Exchange Filters 
** 

******************************************** 
** Change History 

******************************************************************************* 
** Date: Author: Description: 

** 11/29/2000 Gerald Colin Purchaser Exchange Filters 
** 

*******************************************************************************/ 
SELECT CONT_ID,CONT_LABL 7 (SELECT COUNTC*) FROM BID WHERE BID_BUYR=3PersId AND 

BID C0NT=C0NT I D)+ISNULL< (SELECT 0 FROM PERSON WHERE PERS_ID=3PersId AND P0WER(2, CONT_ID-1 )&(SELECT 
PERS_PREF FROM PERSON WHERE PERS_ID=SPersId)=0), * 1 ' ) FROM CONTRACT WHERE P0WER(2, CONT~ID-1 )&(SELECT 
COMP_PREF FROM COMPANY WHERE COMP_ID=3CompId) <>0 AND ISNULL(POWER(2, CONT_ID-1 >&(SELECT DISTINCT 
TRST_C0NT FROM TRUST WHERE TRST_COMP=3CompId) ,0)=0 ORDER BY CONT_ORDR 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER ON SET ANSI_NULLS ON 
GO 



C 



. REATE Procedure spPFO 
aPersId numeric = NULL, 
aDate smalldatetime = NULL, 
3Num numeric = NULL, 
aSCol varchardOO) = NULL, 
asearch varchar(200) = NULL, 



aCoL varchar(200) = NULL, 
aorder varchar<200) = NULL 
AS 

/************************^^ 
** File: spPFO.sql 
** Name: spPFO 

** Desc: Purchaser field Orders 
** 

***********************^ 

** Change History 

*******************^^ 

** Date: Author: Description: 

** 11/29/2000 Gerald Colin Purchaser Field Orders 

** 

DECLARE aSQLQuery varchar (4000), 

BDjay varchar(200) 
Set aDjay = aCol 

IF (OSCol IS NULL) AND QSearch IS NULL) ) 
BEGIN 
— <BASE> 
IF aNum IS NULL 
BEGIN 
IF aCol IS NULL 
BEGIN 

PRINT 'ARE YOU HERE 1 
SELECT 

0RDR_ID / 0RDR_SHIP, VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1 ) ,VAR PLACE ,ORDR GENE ORDR W6HT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE,101),5) AS ~ 
VARDATE,ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= : ' NAME 1 AND PARAJTODE=ORDR_SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS VARPRICE,ISNULL(ORDR WG" 



rtT,ORDR_QTY*(SELECT castcpara valu as 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE* AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND ~ 
Year(3Date)=Year(0RDR_DATE))Q ORDER BY ORDR ID DESC 

END 

ELSE 

BEGIN 

~ Determeiner si c ASC ou DESC --> peux pas mettre la variable car y veut pas *( 
IF aOrder='ASC' 
BEGIN 
PRINT *ASC 

SELECT COLUMN_NAME FROM INFORMATION SCHEMA. COLUMNS WHERE TABLE NAME LIKE 1 ORDERS ' AND 
COLUMNJIAME LIKE 3Col 

IF aCol= , ORDR_SHIP' SELECT 

ORDR_ID,ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE,VARCONTRACT / VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULLCORDR BUYR_RATE,1 ) / VARPLACE / ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SHIP / LEFT (CONVERT (VARCHAR / ORDR_DATE / 101 ) ,5) AS 
VARDATE / ORDR_BID,CAST(ORDR„QTY AS VARCHAR)+* '+(SELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT ~ 



_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND / ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE I AND PARA_CODE=ORDR SIZE)) as 
VARWGHT, ORDR_BUYR_RATE, ORDR_BUYR_PAID, ( SELECT LOCL CITY+', '+LOClIsTAT FROM LOCALITY WHERE 
LOCL_ID=( SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE, ORDR GENE, ORDR TO,ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=SPersId AND Month(SDate)=Month(ORDR DATE) AND ~ 
Year(3Date)=Year(ORDR DATE) )Q ORDER BY ORDR SHIP ASC 

ELSE 

IF 3Col= 1 VARDATE 1 SELECT 

ORDR I^ORDR.SHIP^ARDATE^RDR.BID^ARSIZE^ARCONTRACT^VARBRAND^ARPRICE^ARWGHTtVARPRICE^ISNULLCORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ),VARP LACE, ORDR GENE-ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP,LEFT(CONVERT(VARCHAR / ORDR DATE,101),5) AS " 
VARDATE/ORDR^BID, CAST(ORDR_QTY AS VARCHAR)+ 1 »+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND / ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*( SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE * AND PARA_CODE=ORDR_sTzE) ) as 



VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+ 1 , 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=( SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(aOate)=Month(ORDR_DATE) AND ~ 
Year (3Date)=Year (ORDR_DATE) )Q ORDER BY VARDATE ASC 
ELSE 

IF aCol='ORDR_BID' SELECT 

ORDR_ID,ORDR_SHIP,VARDATE / ORDR_BID / VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ), VARPLACE, ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ),5) AS 
VARDATE, ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 ■ + (SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA _CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDRj;ONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE * AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDR GENE,ORDR TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(aDate)=Month(ORDR_DATE) AND ~ 
Year(3Date)=Year(0RDR DATE) )Q ORDER BY ORDR BID ASC 
ELSE 

IF aCoL= I VARWGHT l SELECT 

ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R - BUYR_RATE,1)+ORDR - BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYRJIATE, 1 ) , VARPLACE, ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, 0RDR_SHIP, LE FT( CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR_BID, CAST(ORDR_QTY AS VARCHAR)*' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND,ORDRJ>RCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR QTY*(SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=0" 



CDrtU rtft „ no lllt _„ KDR_TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR W6HT 

FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR DATE) AND " 
Year (3Date)=Year (ORDR DATE) )Q ORDER BY VARWGHT ASC 
ELSE 

IF aCol= 1 VARBRAND 1 SELECT 

ORDR_ID / ORDR_SHIP, VARDATE / ORDR_BID / VAR SIZE, VAR CONTRACT, VARBRAND 7 VARP RICE, VARWGHT*VA RPR ICE*ISNU LLC ORD 
R_BUYR_RATE,1>+ORDR - BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE / 1) / VARPLACE,ORDR GENE ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP / LEFT(CONVERT(VARCHAR,ORDR DATE,101) 5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHARH* '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SI ZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR__SH I PPRCE AS VARPRICE, ISNULLCORDR WGHT,ORDR QTY*(SELECT CASTC PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as " AKA_VALU AS 

VARWGHT, ORDR_BUYR_ RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+ 1 , 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE, ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND " 
Year(3Date)=Year(0RDR_DATE) )Q ORDER BY VARBRAND ASC 
ELSE 

IF aCol='VARPRICE' SELECT 
° R ™-;f D ' 0RDR ^^ 

R -^™- RATE '^ RATE, 1 ) , VARPLACE, ORDR GENE, ORDR WGHT 

,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DAT£,101 ), 5) AS " 
VARDATE^ORDR^BID/CASTCORDR^QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT__ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR GTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA CODE=ORDR SIZE) ) as CAST tPARA — VALU AS 

VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL^ITY?', '+LOCL~STAT FROM LOCALITY WHERE 
^h- ID=:(SELECT PLAC - L0CL FR0M PLAC E "HERE PLAC_ID=ORDR_TO)) AS VARPLACE, ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(ORDR DATE) AND " 
Year(3Date)=Year(0RDR DATE) )Q ORDER BY VARPRICE ASC 

ELSE 

IF aco 



L='VARPLACE I SELECT 



ORDR_ID / ORDR_SHIP / VAR0ATE / ORDR_BID / VARSIZE / VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP / LEFT(CONVERT(VARCHAR,ORDR DATE,101),5) AS " 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDRj:ONT> AS VARCONTRACT, C SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDRJ>RCE+ORDR_SHIPJ>RCE AS VARPRICE / ISNULL(ORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME =I SIZE 1 AND PARA_CODE-ORDR SIZE)) as 
VARWGHT / ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL_CITY+ 1 / '+LOCL~STAT FROM LOCALITY WHERE 



LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND MonthODate)=Honth(ORDR DATE) AND ~ 
Year(aDate)=Year(ORDR_DATE))Q ORDER BY VARPLACE ASC 

END 

ELSE 

BEGIN 

SELECT COLUMNJIAME FROM INFORMATION SCHEMA . COLUMNS WHERE TABLE NAME LIKE 'ORDERS' AND 
COLUMN JIAME LIKE SCO I 

IF aCol='ORDR_SHIP' SELECT 

ORDR_ID,ORDR - SHIP / VARDATE / ORDR„BID,VARSIZE / VARCONTRACT / VARBRAND / VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1)+ORDR - BUYR - PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1), VARPLACE, ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP / LEFT( CONVERT (VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDRJ3ID,CAST(0RDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA _C0DE=0RDR_SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
C0NT_ID=0RDR_C0NT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE / ISNULL(ORDR WGHT, ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA_C0DE=0RDR SIZE) ) as 
VARWGHT,0RDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
L0CL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE, ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month (3Date)=Month(0RDR DATE) AND - - 

Year(S)Date)=Year(ORDR DATE) )Q ORDER BY ORDR SHIP DESC 
ELSE IF SCoU'VARDATE 1 SELECT 

ORDR^ID/ORDR^SHIP, VARDATE/ORDR^BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE, VARWGHT*VARPR ICE* I SNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ), VARPLACE, ORDR GENE.ORDR WGHT 
,0RDR_T0 FROM (SELECT ORDR_ID,ORDR SHIP, LEFT ( CONVERT (VAR CHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST<ORDR_QTY AS VARCHAR)+* »+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_C0DE=0RDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=0RDR_C0NT) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIPJ»RCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR SIZE)) as 
VARWGHT,0RDRJ3UYR_RATE,0RDR_R 



-UYR_PAID, (SELECT LOCL_CITY+', ' +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE,ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month (aDate)=Month (ORDR_DATE) AND 
Year ODate)=Year (ORDR_DATE) )Q ORDER BY VARDATE DESC 

ELSE IF aCol='ORDR_BID' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1 ) , VARPLACE,ORDR_GENE,0RDR WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARAJTODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, ORDRJ>RCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+ 1 , '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month QDate)=Month(ORDR_DATE) AND ~ 
Year(3Date)=Year(0RDR DATE) )Q ORDER BY ORDR BID DESC 

ELSE IF 3CoL= , VARWGHT' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) , VARPLACE,ORDR GENE, ORDR WGHT 
,ORDRJTO FROM (SELECT ORDR_ID, ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101 ),5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARAj:ODE=ORDR_SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR„CONT) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR_QTY*( SELECT CAST( PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= , SIZE' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR TO,ORDR 



FROM ORDERS WHERE ORDR_BUYR=SPersId AND Month(3Date)=Month(0RDR DATE) AND 
Year(SDate)=Year(ORDR_DATE))Q ORDER BY VARWGHT DESC 
ELSE IF 3Col= 1 VARBRAND 1 SELECT 

ORDR_ID / ORDR_SHIP / VARDATE,ORDR_BID,VARSIZE / VARCONTRACT,VARBRAND / VARPRICE / VARWGHWARPRICE*ISNULLCORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ) ,VAR PLACE, ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR^ID, ORDR_SH IP, LEFT (CONVERT(VARCHAR, ORDR DATE, 101 ) ,5) AS 
VARD ATE ,ORDR_BID, CAST (ORDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARAJfALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, C SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULLCORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARAJiAME= ' SIZE ' AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR_J3UYR_RATE,ORDR__BUYR_PAID, (SELECT LOCL CITY+ 1 , '+LOCLIsTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,0RDR WGHT 



FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year (3Date)= Year (ORDR^DATE) )Q ORDER BY VARBRAND DESC 
ELSE IF aCol='VARPRICE' SELECT 

0RDR_ID,ORDR_SHIP, VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+0RDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SH I P,LE FT ( CONVERT (VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE / ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ 1 *+(SELECT PARAJfALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SUE) AS VARS1ZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=0RDR BRAN) AS 
VARBRAND, ORDR_PRC E+ORDR_SH I P_PRCE AS VARPRICE,TsNULL(ORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA C0DE=0RDR_SIZE) ) as 
VARWGHT,0RDR_BUYR_RATE y ORDR_BUYR_PAID, (SELECT LOCL CITyT', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR T0,0RDR WGHT 
FROM ORDERS WHERE 0RDR - BUYR=3PersId AND Month ODate)=Month(ORDR_DATE) AND 
Year (3Date)=Year (ORDR_DATE) )Q ORDER BY VARPRICE DESC 
ELSE IF aCol='VARPLACE» SELECT 

ORDR_ID,ORDR_SHIP, VARD ATE, 0RDR_BID,VARS I ZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPR ICE* I SNULL(0RD 
R_BUYR_RATE,1 )+0RDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ), VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SHIP, LE FT ( CONVERT (VARCHAR,ORDR_DATE, 101 ) , 5) AS 
VARDATE,ORDR_BID,CAST(ORDRJJTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
C0NT_ID=0RDR_C0NT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=0RDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR_QTY*( SELECT CAST( PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME-' SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as 
VARW6HT,0RDR_BUYR_RATE,0RDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR_GENE, 0RDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year (3Date)=Year (0RDR_DATE) )Q ORDER BY VARPLACE DESC 
END 
END 
END 
ELSE 
BEGIN 
IF aCol IS NULL 
5? 



.ELECT 

ORDR_ID,ORDR_SHIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR„RATE / 1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR^ID, ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR SIZE) AS VARS IZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(0RDR_WGHT,0RDR_QTY*7sELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE / ORDR BUYRJ>AID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID= ( SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=SJPersId AND 
Month ODate)=Month(ORDR_DATE) AND Year (9Date7=Year (ORDR DATE) )Q ORDER BY ORDR_ID DESC 

ELSE 

BEGIN 

— Determeiner si c ASC ou DESC — > peux pas mettre La variable car y veut pas :( 
IF SOrder= , ASC' 
BEGIN 

IF SCoL^'ORDR^SHIP 1 SELECT 
0RDR_ID,0RDR_SHIP7vARDATE,0RDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR RATE,T)-K>RDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE, 1 ) , VARPLACE,ORDR GENE, 0RDRJJ6HT 
,ORDRjFo FROM (SELECT ORDR i _ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID, CAST (ORDR QTY AS VARCHARH* '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=0RDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SH IP PRCE AS 
VARPRICE, ISNULL(ORDR_" 



wGHT / ORDR_QTY*( SELECT CASTCPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE,ORDR BUYRJ>AID, (SELECT 
L0CL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_JO)) AS VARPLACE / ORDR_GENE y ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(3Date)=Year (ORDR DATE))Q ORDER BY ORDR SHIP ASC 
ELSE IF aCol='VARDATE' SELECT 

ORDR - ID,ORDR_SHIP / VARDATE / ORDR_BID,VARSIZE / VARCONTRACT,VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SHIP,LEFT( CONVERT (VARCHAR / ORDR_DATE,1 01) ,5) AS 
VARDATE / ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 



CONT_ID=0RDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND / ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE,ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CASTCPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE, ORDR BUYR PAID, (SELECT 
LOCL_CITY+ , / *+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE / ORDR_GENE / ORDR_TO / ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=3PersId AND 
Month (3Date)=Month(ORDR_DATE) AND Year (3Date)=Year(0RDR DATE) )(5 ORDER BY VARDATE ASC 

ELSE IF 3Col='0RDR_BID' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT A VARBRAND,VARPR ICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR - PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR_SHlP, LEFT(CONVERT(VARCHAR,ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE> AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP PRCE AS 

VARPR ICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE I AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR_RATE, ORDR BUYR_PAID, ( SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year (3Date)=Year(0RDR DATE) )Q ORDER BY ORDR BID ASC 

ELSE IF aCol^VARWGHT 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ) ,VARPLACE, ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT(VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE, ORDR_BID,CAST(ORDR - QTY AS VARCHAR)+ 1 l +(SELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP PRCE AS 

VARPR ICE, I SNULL( OR DRAUGHT, 0RDR_GTY*7s ELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA NAME= 1 SI 



ZE' AND PARA_CODE=ORDR_SIZE)) as VARWGHT, ORDR_BUYR_RATE, ORDR_BUYR_PAID, ( SELECT 
LOCL_CITY+', l +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE, ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year (3Date)=Year (ORDR_DATE) )Q ORDER BY VARWGHT ASC 

ELSE IF 3CoL= 1 VARBRAND 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+0RDRJ3UYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1) , VARPLACE,ORDR GENE,ORDRJJGHT 
,ORDR_TO FROH (SELECT ORDR ID / ORDR_SHIP / LE FTC CONVERT (VARCHAR,ORDR_D ATE, 1 01 ), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_GTY AS VARCHAR)+ * ' + CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_ NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(0RDR_WGHT,0RDRJ3TY*(SELECT CAST( PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE 1 AND PARA CODE=ORDR_SIZE) ) as VARWGHT, ORDR_BUYR RATE,ORDR BUYR_PAID, ( SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE, 0RDRJ3ENE,0RDR_T0,0RDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(3Date)=Year (ORDR DATE) )Q ORDER BY VARBRAND ASC 

ELSE IF aCol^'VAPRICE' SELECT 
ORDR_ID, ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1 ), VARPLACE, ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORD R_ID,ORDR_SH IP, LEFT (CON VERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+» '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL( OR DR_WGHT,ORDR_QTY*?S ELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR_SIZE) 



) as VARWGHT,ORDR BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+', *+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDRJ5ENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(3Date)=Month(ORDR DATE) AND Year (3Date)=Year (ORDR_DATE) )Q ORDER BY VARPRICE ASC 

ELSE IF aCol='VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE / ORDR_BID,VARSIZE,VARCONTRACT,VARBRAND / VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) ,VARPLACE,ORDR_GENE / ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP, LEFT(CONVERT( VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_I D=ORDR_BRAN ) AS VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE,ORDR_BUYRJ>AID, (SELECT 
LOCL.CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLACJ.OCL FROM PLACE WHERE 



PLAC_ID=ORDR_TO)> AS VARPLACE,ORDR_GENE, 0RDR_TO,ORDR_WGHT FROM OROERS WHERE 0RDR_BUYR=3PersId AND 
Month(aOate) = HonthCORDR DATE) AND Year (3Date)=Year (ORDR_DATE) )Q ORDER BY VARPUCE ASC 

END 

ELSE 

BEGIN 

IF aCol='ORDR_SHIP' SELECT 
0RDR_ID / 0RDR - SHIP7VARDATE / 0RDR BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) ,VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_JO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE,101),5) AS 
VARDATE / ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ ' ' +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID~ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR SHIP PRCE AS 

VARPRICE,ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR RATE / ORDR_BUYR_PAID / (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,0RDR_TO,0RDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR DATE) AND Year(3Date)=Year(0RDR DATE))Q ORDER BY ORDR SHIP DESC 

ELSE IF aCol- 1 VARDATE ' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDRJTO FROM (SELECT ORD R_ID 7 OR DR_SH IP, LEFT (CON VERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR^BID, CAST (ORDR^QTY AS VARCHAR)+ ' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRANJiAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE I AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE,ORDR_BUYRJ>AID, (SELECT 
L0CL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(3Date)=Month(0RDR DATE) AND Year (3Date)=Year (ORDR DATE) )Q ORDER BY VARDATE DE 



sc 

ELSE IF aCol^ORDR^BID' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) ,VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT OR0R_ID / ORDR - SHIP / LE FT ( CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR__BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA JIAME=' SIZE' AND PARA_CODE=ORDR SIZE)) as VARWGHT, ORDR_BUYR RATE, ORDR_BUYR_PAID, ( SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VAR PLACE, ORDR_GENE, ORDR TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(3Date)=Month(0RDR_DATE) AND Year (3Date)=Year (ORDR DATE) )Q ORDER BY ORDR BID DESC 

ELSE IF 3Col= 1 VARWGHT 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) ,VARPLACE,ORDR_GENE,ORDR — WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
C0NT_ID=ORDR_C0NT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,0RDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE, ORDR BUYR_PAID, ( SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3P ers Id AND 
Month (3Date)=Month(ORDR_DATE) AND Year ODate)=Year (ORDR DATE) )Q ORDER BY VARWGHT DESC 

ELSE IF 3Col= ' VARBRAND' SELECT 
ORDR - ID,ORDR_SHIP / VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR BUYR PAID, VARWGHT*VARPRIC 



E*ISNULL(0RDR_BUYR_RATE,1 ) ,VARPLACE / ORDR_GENE / ORDR WGHT 
,ORDRJTO FROM (SELECT 0RDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE/IOI^S) AS 
VARDATE / ORDR_BID / CAST(ORDR_QTY AS VARCHAR)* 1 *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE> AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_I0=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT 7 ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA - NAME= , SIZE* AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDRJfGHT FROM ORDERS WHERE ORDRJBUYR=SPersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(aDate)=Year (ORDR_DATE) )Q ORDER BY VARBRAND DESC 



ELSE IF aCol='VAPRICE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE,VARCONTRACT,VARBRAND, VARPRICE, VARWGHT*VARPR ICE* ISNULL(ORD 
R - BUYR_RATE / T)+0RDR_BUYR_PAID,VARW6HT*VARPRICE*XSNULL(0RDR_BUYR RATE,1 ) , VARPLACE, ORDRJ3ENE,ORDR W6HT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ),5) AS 
VARDATE / ORDR_BID / CASTCORDR QTY AS VARCHAR)+ I '+(SELECT PARA^VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 ANO PARA CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR BRAN) AS VARBRAND,ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE / ISnUlL(ORDR_WGHT / ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE,ORDR BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(3Date)=Month(0RDR DATE) AND Year (3Date)=Year(0RDR_DATE) )Q ORDER BY VARPRICE DESC 

ELSE IF 3Col=' VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,T)+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SH IP, LEFT( CONVERT (VARCHAR,ORDR_DATE, 101 ),5) AS 
VA RD ATE, ORDR_BID, CAST (ORDR QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA NAME='NAME' AND PARA CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(0RDR - WGHT,0RDR_QTY*TSELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(3Date)=Month(0RDR DATE) AND Year QDate)- Year (ORDR_D ATE) )Q ORDER BY VARPLACE DESC 
END 
END 
END 
END 

ELSE — 



/////////////////////////// ascol n'est pas NULL /////////////////////////////////////////// 

BEGIN 
IF 3Scol='0RDR BID' 
BEGIN 
— <BASE> 
IF SNum IS NULL 
BEGIN 
IF 3Col IS NULL 
SELECT 

ORDR I0,ORDR SHIP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT,VARBRAND, VARPRICE, VARWGHT*VARPRI CE*ISNULL(ORD 

R_BUYR_RATE,T)+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1 ) , VARPLACE,ORDR_GENE,ORDR_WGHT 

,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR,ORDR_DATE, 101 ) ,5) AS 

VARDATE, 0RDR_BID, CAST(ORDR_QTY AS VARCHAR)+' 'KSELECT PARA VALU FROM PARAMETER WHERE 

PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 

CONT ID=ORDR CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN ) AS 

VARBRAND/ORDR PRCE+ORDR SHIP_PRCE AS VARPRICE, ISNULL(0RDR_WGHT / 0RDR_QTY*( SELECT CAST( PARA_VALU AS 

NUMERIC) FROM~PARAMETER~WHERE PARA_NAME= i SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as 

VARWGHT,ORDR BUYR RATE, ORDR BUYR PAID, (SELECT LOCL CITY+ ' , '+L0CL_STAT FROM LOCALITY WHERE 

L0CL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=0RDR_T0) ) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 

FROM ORDERS WHERE ORDR BUYR=3PersId AND Month (aDate)=Month(ORDR_DATE) AND 

Year (3Date)=Year (ORDR^D ATE) )Q WHERE ( (0RDR_BID LIKE l %aSearch%' AND 0RDR_BID<>0) OR 

( , B'+CAST(0RDR_ID AS VARCHAR) LIKE 'XSSearch/i' AND ORDR_BID=0) ) ORDER BY~ORDR_ID DESC 

ELSE 

BEGIN 

— Determeiner si c ASC ou DESC — > peux pas mettre la variable car y veut pas :( 
IF aOrder='ASC' 
BEGIN 

IF aCol= , ORDR_SHIP' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE / ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R BUYR RATE,1)+0RDR BUYR PAID, VARWGHT*VARPR 



ICE*ISNULL(ORDR BUYR RATE, 1 ) ,VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM C SELECT ORDR_ID / ORDR - SHIP, LEFT ( CONVERT (VARCHAR / ORDR_DATE / 101 ) ,5 ) AS 
VARDATE / ORDR_BID, CAST (ORDR QTY AS VARCHARH ' 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA^NAME^ 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND,ORDRJ>RCE+ORDR_SHIP PRCE AS VARPRICE, ISNULLCORDR WGHT,ORDR_QTY*( SELECT CAST( PARA_VALU AS 
NUMERIC) FROM~PARAMETER~WHERE PARA_NAME= 1 SIZE 1 AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+ l / 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ_OCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month (3Date)=Month(0RDRJ>ATE) AND 
Year(3Date)=Year(0RDR„DATE))Q WHERE ( (0RDR_BID LIKE '%aSearch%' AND ORDR_BID<>0) OR 
( , B'+CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0)) ORDER BY ORDR SHIP ASC 



ELSE IF aCol=' VARDATE' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*I SNULLCORO 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) , VARPLACE,ORDR_GENE / ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,OR0R SHIP, LEFT (CONVERT( VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE, ORDR BID, CAST (ORDR~QTY AS VARCHAR)+» *+<SELECT PARA VALU FROM PARAMETER WHERE 
PARA NAME= 1 NAME 1 AND PARA CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
C0NT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER~WHERE PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR BUYR RATE, ORDR BUYR PAID, (SELECT LOCL_CITY+', *+L0Cl"sTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARP LAC E,ORDR_GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE ORDR BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year (3Date)=Year(0RDR_DATE) )Q WHERE ( (ORDR_BID LIKE ^Search?*' AND ORDR_BID<>0) OR 
( , B'+CAST(ORDR_ID AS VARCHAR) LIKE , %3Search% 1 AND ORDR_BID=0)) ORDER BY VARDATE ASC 

ELSE IF aCol='ORDR_BID' SELECT 
ORDR ID, ORDR SHIP, VARDATE, 0RDR_B ID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPR I CE*ISNULL(ORD 
R BUYR RATE,T)+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR_SHIP, LEFT(CONVERT( VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, 0RDR_BID,CAST(ORDR_QTY AS VARCHARH' *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CASKPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= , SIZE* AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+ ' , '+LOClIsTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE,ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 
Year(3Date)=Year(0RDR DATE) )Q WHERE ( (0RDR_BID LIKE ' %aSearch%'~AND ORDR BIDOO) OR 
CB , +CAST(ORDR_ID AS VARCHAR) LIKE '%aSear 



ch%' AND ORDR_BID=0)) ORDER BY ORDR_BID ASC 

ELSE IF aCol=' VARWGHT' SELECT 
ORDR_ID,ORDR_SHIP / VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARUGHT*VARPRICE* I SNULL(ORD 
R BUYR RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ),VARP LACE, ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ) ,5) AS 
VARDATE,ORDR BID, CASTCORDR QTY AS VARCHAR)* 1 ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT^LABL FROM CONTRACT WHERE 
CONT_ID=ORDR CONT) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*< SELECT CAST< PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+', ' +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE, ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year (3Date)=Year (ORDR_D ATE) )Q WHERE ( (ORDR_BID LIKE ' %3Search% '"AND ORDR_BID<>0) OR 
CB , +CAST(ORDR ID AS VARCHAR) LIKE '%3Search%' AND ORDR_BID=0)) ORDER BY VARWGHT ASC 

ELSE IF 3Col= ' VARBRAND ' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR - BUYR - RATE,1),VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP, LE FT ( CONVERT ( VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR~QTY AS VARCHAR)+ 1 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
C0NOD=0RDR_C0NT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHlRE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOClIsTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 



FROM ORDERS WHERE 0RDR_BUYR=3Per$Id AND Month(aDate)=Month(ORDR_DATE) AND 
Year(3Date)=Year(0RDR_DATE))Q WHERE C(ORDR_BID LIKE , %SSearch%' AND ORDR_BID<>0) OR 
('B'+CAST(ORDR ID AS VARCHAR) LIKE '%SSearch%' AND ORDR_BID=0)) ORDER BY VARBRAND ASC 

ELSE IF aCoL='VARPRICE' SELECT 
ORDR ID / ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE,VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR RATE,1)+ORDR BUYR PAID, VARWGHT*VARPRICE*ISNULL (ORDR BUYR RATE,1 ) , VARPLACE, 0RDR_6ENE, ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR_SHIP / LEFT(CONVERT(VARCHAR / ORDR_DATE,101 ),5) AS 
VARDATE^RDR^BID/CASTCORDR'QTY AS VARCHAR)* ' ' + CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAHE= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJJAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE / ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM~PARAMETER"wHERE PARA_NAME= ' SIZE 1 AND PARA CODE=ORDR SIZE)) as 
VARWGHT,ORDR BUYR RATE,ORDR BUYR PAID,(SELECT LOCL CITY+ 1 , '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDR_GENE,ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(ORDR DATE) AND 
Year(aDate)=Year(ORDR DATE) )Q WHERE ( (ORDR_BID LIKE '%aSearch%' AND ORDR_BID<>0) OR 
CB'+CASTCORDR ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_BID=0)) ORDER BY VARPRICE ASC 



ELSE IF aCol='VARPLACE' SELECT 
ORDR ID, ORDR SHIP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R BUYR RATE,T)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ),VAR PLACE, ORDR 6ENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT C CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ ' l +(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA NAME= 1 NAME 1 AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE,TsNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL_CITY+ , / *+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(ORDR DATE) AND 
Year (3Date)=Year (ORDR_DATE) )Q WHERE ( (ORDR_BID LIKE '%9Search% , ~AND ORDR_BID<>0) OR 
('B'+CAST(ORDR_ID AS VARCHAR) LIKE I %3Search% 1 AND ORDR BID=0)) ORDER BY VARPLACE ASC 

END 

ELSE 

BEGIN 

IF aCol='ORDR_SHIP' SELECT 
ORDR_ID, ORD R_SH I P, VARDATE, ORDR_B ID, VARSIZE, VARCONTRACT, VARBRAND,VARPR ICE, VARWGHT*VARP RICE* I SNULL(ORD 
R_BUYR_RATE,T)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ), VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR_B ID, CAST (ORDR~QTY AS VARCHARH' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT ID=ORDR CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPR I CE,ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST( PARAJ/ALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= * SIZE 1 AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR BUYR RATE, ORDR BUYR PAID, (SELECT LOCL CITY+ ' , ^LOCL'STAT 



. FROM LOCALITY WHERE 

LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR_TO)) AS VARPLACE,OR0R GENE,ORDR_TO,ORDR_WGHT 

FROM ORDERS WHERE ORDR_BUYR=aPersId AND MonthODate)=Month(ORDR_DATE) AND 

Year (3Date)=Year (ORDR_DATE) )Q WHERE ((ORDR_BID LIKE ^aSearch 0 ^ 1 AND ORDR BIDOO) OR 

CB'+CASTCORDR ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_BID=0)> ORDER BY~ORDR SHIP DESC 

ELSE IF 3Col= 1 VARDATE' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR JBID, VARSIZE, VARCONTRACT, VARBRAND,VARPRI CE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) ,VARPLACE,ORDR_GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE, ORDR_B ID, CAST (ORDR_QTY AS VARCHAR)+» '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDRj:ONT) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDRJ>RCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT/ORDR^BUYR^RATE/ORDR BUYR PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE, ORDR_TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year QDate)=Year (ORDR_DATE) )Q WHERE ( (ORDR_ BID LIKE l %aSearch%' AND ORDR_BID<>0) OR 
CB l +CAST(0RDR_ID AS VARCHAR) LIKE l %aSearch% 1 AND ORDR BID=0)) ORDER BY VARDATE DESC 

ELSE IF aCoL='ORDR_BID' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+0RDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) ,VARP LACE, ORDR_GENE, ORDR WGHT 
,ORDRJ"0 FROM (SELECT 0RDR_ID,ORDR_SHIP / LEFT (CONVERT( VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME I AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDRJ>RCE+ORDR SHIP_PRCE AS VAR" 



PRICE, ISNULL(ORDR_WGHT,ORDR QTY*(SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL_CITY+ , / '+L0ClI$TAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=3PersId AND Month(aDate)=Month(ORDR DATE) AND ~ 
Year(aDate)=Year(ORDR_DATE))Q WHERE ( (ORDR_BID LIKE l %aSearch%'~AND ORDR_BID<>0) OR 
CB'+CASKORDR.IO AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0)) ORDER BY ORDR_BID DESC 
ELSE IF aCoi=«VARWGHT' SELECT 

ORDR_ID,ORDR_SHIP, VARDATE,ORDR_BID,VARSIZE, VARCONTRACT, VARBRAND,VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ), VARP LACE, ORDR GENE, ORDR WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR_DATE, 1 01 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)*' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA JIAME=' NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONTJ.ABL FROM CONTRACT WHERE 
CONT_ID=ORDRj:ONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE,ISNULL(ORDR WGHT, ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= , SIZE I AND PARA C0DE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PA ID, (SELECT LOCLJTITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC.LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 



Year(aDate)=Year(ORDR DATE) )Q WHERE C(ORDR_BID LIKE '%aSearch%' AND ORDR_BID<>0) OR 
CB'+CAST(ORDR_ID AS VARCHAR) LIKE 'XaSearchSt 1 AND ORDR BID=0)) ORDER BY VARWGHT DESC 

ELSE IF 3Col=' VARBRAND' SELECT 
ORDR_ID,ORDR_SHIP,VAR DATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1)+0RDRJUYR - PAID / VARM6HT*VARPRICE*ISNULL(0RDR_BUYR RATE,1), VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP,LEFT(CONVERT(VARCHAR,0RDR_DATE,101),5) AS 
VARDATE,ORDR_B ID, CAST (ORDR QTY AS VARCHAR)+' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP J>RCE AS VARPRICE,ISNULL(ORDR WGHT, ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT, OR DR_BUYR_RATE,ORDR_BUYR_PA ID, (SELECT LOCLjriTY? 1 , 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR_GENE, ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month (3Date)=Month(ORDR_DATE) AND 
Year(3Date)=Year (ORDR_DATE) )Q WHERE ((ORDR BID LIKE '%3Search%' AND ORDR_BID<>0) OR 
CB'+CAST(ORDR_ID AS VARCHAR) LIKE 'XaSearch'r AND ORDR BID=0)) ORDER BY VARBRAND DESC 

ELSE IF aCoL^'VARPRICE 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R„BUYR_RATE,1)+ORDR„BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1),VARPLACE,ORDR GENE,ORDR__WGHT 
,0RDR_T0 FROM (SELECT ORDR_ID,ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,0RDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' »+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND ,ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_P AID, (SELECT LOCL CITY+ ' , '+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR_GEN c 



.,ORDR_TO,ORDR_WGHT 

FROM ORDERS WHERE ORDR_BUYR=S)PersId AND Month(3Date)=Month(ORDR_DATE) AND 
YearCaDate)=Year(ORDR DATE) )Q WHERE ((0RDR_BID LIKE '%SSearch%' AND ORDR_BID<>0) OR 
( , B , +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_BID=0)) ORDER BY VARPRICE DESC 

ELSE IF a>Col= 1 VARPLACE 1 SELECT 
ORDR_ID, ORDR_SH I P / VARDATE,ORDR_BID,VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,T)+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ), VARPLACE, ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, OR DR_SH IP, LEFT (CONVERT (VARCHAR, ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDRJJTY AS VARCHAR)+ 1 '+(SELECT PARAJVALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSI2E, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA CODE=ORDR_SIZE) ) as 
VARUGHT,ORDR - BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDR GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR DATE) AND 
Year(3Date)=Year(0RDR DATE) )Q WHERE ( (ORDR_BID LIKE 1 %3Search% 1 ~AND ORDR_BID<>0) OR 
( , B , +CAST(ORDR ID AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0)) ORDER BY VARPLACE DESC 
END 
END 
END 
ELSE 
BEGIN 
IF acol IS NULL 
SELECT 

ORDR_ID,ORDR_SHIP, VARDATE,ORDR_BID, VARS I ZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPR I CE*ISNULL(ORD 
R_BUYRJUTE,1)+0RDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(0RDR_BUYR RATE, 1 ), VARPLACE, 0RDRJ3ENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT( CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE,0RDR_BID,CAST(0RDRJ5TY AS VARCHAR)+ l *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= 3N 



um) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND / ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, 1SNULL(0RDR_WGHT / 0RDR_QTY*( SELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE-ORDR SIZE)) as VARWGHT,ORDR_BUYR RATE / ORDR_BUYR_PAID / (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE / ORDR_TO / ORDR WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(aDate)=Month(ORDRJ)ATE) AND Year QDate)=Year(ORDR DATE) )Q WHERE ((ORDR_BID LIKE '%aSearch%' 
AND ORDR_BID<>0) OR ( ' B' +CAST(ORDR_ID AS VARCHAR) LIKE T %aSearch%' AND ORDR BID=0)) ORDER BY ORDR ID 
DESC 

ELSE 

BEGIN 

— Determeiner si c ASC ou DESC — > peux pas mettre la variable car y veut pas :( 
IF aOrder='ASC 
BEGIN 



IF aCol='ORDR_SHIP' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPR ICE* ISNULL(ORD 
R_BUYRJMTE,1)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE / OR0R_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE, ORDR BID, CAST(ORDR QTY AS VARCHAR)+' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE,ISNULL(ORDR_WGHT,ORDRjaTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA JJAME=' SIZE' AND PARA CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL.STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR TO)) AS VARPLACE / ORDR GENE,ORDR TO, ORDR WGHT FROM ORDERS WHERE ORDR BUYR=3PersIcl AND 
Month(aDate)=Month(ORDR_DATE) AND Year(aDate)=Year(ORDR_DATE) )Q WHERE ((ORDR BID~LIKE '%aSearch% 1 
AND ORDR BIDOO) OR ( ' B 1 +CAST(ORDR_ID AS VARCHAR) LIKE , %aSearch%' AND ORDR BID=0)) ORDER BY 
ORDR_SHIP ASC 

~ELSE IF aCol=' VARDATE 1 SELECT 
ORDR^ID, ORDR_SH I P/VARDATE/ORDR^BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR RATE,T)+ORDR BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1 ) ,VARP LACE, ORDR GENE, ORDRJJGHT 
,ORDRjTO FROM (SELECT ORD R_ID, OR DR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT 1D= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+', 1 +LOCL STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR TO)) AS VARPLACE,ORDR_GENE,OR h 



>,R_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aOate)=Honth(OROR_DATE) AND Year<aDate)=Year (ORDR_DATE) )Q WHERE ( (ORDR_BID LIKE '%aSearch%' 
AND ORDR_BID<>0) OR ( 1 B ' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_BID=0)) ORDER BY VARDATE 
ASC 

ELSE IF aCol^ORDR.BID* SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPR ICE* I SNULL(ORD 
R_BUYR_RATE,1 )+ORDR BUYR_PAID, VARWGHT*VARP RICE* ISNULL (ORDR BUYR RATE,1 ) , VARPLACE,ORDR_GENE / ORDR_WGHT 
,ORDR_T0 FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT( VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR_BID,CAST(ORDR QTY AS VARCHAR)+ 1 ^(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA CODE=ORDR SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= aNum) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN ID=0RDR BRAN) AS VARBRAND,ORDR PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_W6HT,ORDR_QTY*7sELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME=' SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, ( SELECT 
LOCL_CITY+', ' +LOCL STAT FROM LOCALITY WHERE L0CL_ID=( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC ID=ORDR_TO)) AS VARPLACE,0RDR_GENE,0RDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year (aDateT=Year (ORDR_DATE) )Q WHERE ((ORDR BID~LIKE '%aSearch%' 
AND 0RDR_BID<>0) OR ( 1 B ' +CAST(ORDR_ID AS VARCHAR) LIKE 'XaSearchX' AND ORDR_BID=0)) ORDER BY 
ORDR BID ASC 

"ELSE IF SCol^'VARWGHT 1 SELECT 
ORDR_ID,ORDR SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R BUYR_RATE,T )+ORDR BUYR PAID, VARWGHT*VARP RICE* ISNULL(ORDR_BU YR_RATE,1 ) ,VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SH IP, LEFT ( CONVERT ( VARCHAR, 0RDR_DATE, 101 ) ,5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN~ID=ORDR_BRAN) AS VARBRAND, ORDRJ»RCE+ORDR_SHIP PRCE AS 
VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS NUMERIC^ 



, FROM PARAMETER WHERE 

PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT, ORDR_BUYR_RATE, ORDR BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_I0=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND YearODate)=Year(ORDR_DATE) )Q WHERE ( (ORDR_BID~LIKE l %aSearch%' 
AND ORDR_BID<>0) OR ( ' B 1 +CASTCORDR ID AS VARCHAR) LIKE ^Search'^ 1 AND ORDR BID=0)) ORDER BY VARWGHT 
ASC 

ELSE IF aCoL= ' VARBRAND 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1)+0RDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE / 1) / VARPLACE / ORDR GENE,ORDRJfGHT 
,ORDR_TO FROM (SELECT OR D R_ID,ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNumT AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR BRAN) AS VARBRAND ,ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA CODE=ORDR SIZE)) as VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR PAID,(SELECT 
LOCL CITY+', ' +LOCL STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 



PLAC_ID=ORDR_TO)) AS VARPLACE^RDR^GENE/ORDRJR^ORDRJJGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(aDate)=Month(ORDRJ>ATE) AND Year(3Date)=Year(0RDR DATE))Q WHERE ((ORDR BID LIKE '%aSearch%' 
AND ORDR_BID<>0) OR ( ' B ' +CAST(ORDR_ID AS VARCHAR) LIKE T %aSearch%' AND ORDR_BID=0)) ORDER BY 
VARBRAND ASC 

ELSE IF aCol='VARPRICE' SELECT 
ORDR_ID,ORDR_$HIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ?ATE,T)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) / VARPLACE,ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP, LEFT(CONVERT( VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN ID=ORDR_BRAN) AS VARBRAND ,ORDR_PRCE+ORDR_SH IP PRCE AS 

VARPRICE, ISNULL(ORDR WGHT, OR DR_QTY*( SELECT CASKPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA NAME='SIZE' AND PARA CODE=ORDR SIZE)) as VARWGHT,ORDR BUYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJ"0)) AS VARPLACE,ORDR GENE, ORDR TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(3Date)=Month(ORDR_DATE) AND Year(aDate)=Year(ORDR_DATE) )Q WHERE ( (ORDR_BID~LIKE '%aSearchr 
AND ORDR_BID<>0) OR ( 1 B 1 +CASTCORDR ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_8ID=0)) ORDER BY 
VARPRICE ASC 

ELSE IF aCoL= , VARPLACE l SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL (ORD 
R_BUYR_RATE,T)+ORDR BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_ RATE, 1 ) ,VARPLACE, ORD R_GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID ,ORDR_SH IP, LEFT (CONVERT( VARCHAR, ORDR DATE,101),5) AS 
VARDATE, ORDR_BID,C AST (ORDR_QTY AS VARCHARH' l +(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= BNum) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_ClTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SI ZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PA 



ID, (SELECT 

LOCL_CITY+*, '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year (SDate)=Year(ORDR_DATE) )Q WHERE ( (ORDR_BID~LIKE '%aSearch%' 
AND ORDR BIDOO) OR ( ' B ' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_BID=0)) ORDER BY 
VARPLACE~ASC 

END 

ELSE 

BEGIN 

IF aCol='ORDR_SHIP' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,0RDR SHIP, LEFT(CONVERT( VARCHAR, ORDR DATE,101),5) AS 
VARDATE, ORDR_B ID, CAST (ORDR QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SH I P_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT, ORDR QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA NAME^'SIZE' AND PARA_CODE=ORDR_SIZE> ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC ID=ORDR_TO)> AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(3Date)=Year(0RDR_DATE) )Q WHERE ((ORDR BID~LIKE '%aSearch%' 
AND ORDR_BID<>0) OR ( 1 B 1 +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%* AND ORDR_BID=0)) ORDER BY 
ORDR_SHIP DESC 

ELSE IF aCol= 1 VARDATE 1 SELECT 
ORDR ID, ORDR_SHIP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ), VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_I D,ORDR_SH I P,LE FTC CONVERT (VARCHAR, ORDR_DATE, 101 ) ,5) AS 



vARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH' 1 + CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CASTCPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARAJIAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)> AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month (3Date)=Month(ORDR_DATE) AND Year(SDate)=Year(ORDR DATE))Q WHERE ( CORDR BID LIKE '%aSearch%' 
AND ORDR_BID<>0) OR ( 1 B' +CAST(ORDR ID AS VARCHAR) LIKE T %aSearch%' AND ORDR BID=0)) ORDER BY VARDATE 
DESC 

ELSE IF aCol='ORDR_BID 1 SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) ,VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP,LEFT(CONVERT(VARCHAR / ORDR_DATE,101),5) AS 



VARDATE,ORDR_BID,CAST(ORDR QTY AS VARCHAR)+ ' 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNumT AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR QTY*7sELECT CAST (PARAJ/ ALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE,ORDR BUYR PAID, (SELECT 
LOCL_CITY+' , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID= ( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE / ORDR_GENE / ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Mont h(3Date)=Month(0RDR_D ATE) AND Year (3Date)= Year (ORDR_DATE) )Q WHERE ( (ORDR_BID LIKE , %aSearch%' 
AND ORDR_BID<>0) OR ( ' B ' +CAST(ORDR ID AS VARCHAR) LIKE , %SSearch% 1 AND ORDR BID=0)) ORDER BY 
ORDR BID DESC 

ELSE IF 3Col= ' VARWGHT 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,T)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR_GENE, ORDR_WGHT 
,ORDR TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT ( CONVERT ( VARCHAR, ORDR_DATE,1 01 ), 5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT ID=ORDR CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE,ISNULL(ORDR WGHT,0RDR_QTY*7s ELECT CAST ( PAR A_V ALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND~PARA_CODE=ORDR_SIZE) ) as VARWGHT, ORDR BUYR_RATE,ORDR BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
MonthODate)=Month(ORDR DATE) AND Year(3Date)=Year(0RDR DATE) )Q WHERE ( (ORDR_BID LIKE '%aSearch%' 
AND ORDR_BID<>0) OR ( ' B 1 +CAST(ORDR ID AS VARCHAR) LIKE 7 %aSearch%' AND ORDR BID=0)) ORDER BY VARWGHT 
DESC 

ELSE IF aCoL= ' VARBRAND 1 SELECT 
0RDR_ID,ORDR_SHIP,VARDATE,0RDR_BID, VARSIZE, V 



ARCONTRACT / VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR RATE / 1)+0RDR_BUYR_PAID / VARW6HT*VARPRICE*ISNULL(0RDR_BUYR_RATE / 1) / VARPLACE / 0RDR GENE,ORDR_WGHT 
,ORDR TO FROM (SELECT ORDR ID, ORDR SHIP, LE FTC CONVERT(VARCHAR,ORDR_DATE / 101 ),5) AS 
VARD ATE, ORDR_BID, CAST (ORDR QTY AS VARCHAR)+ 1 '+CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SINum) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARP RICE, I SNULL(0RDR_WGHT,0RDR_QTY*7s ELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+ l , '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VAR PLACE, ORDR_G EN E,ORDR_JO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(3Date)=Month(0RDRJ)ATE) AND Year (aDate)=Year CORDR DATE) )Q WHERE (<ORDR_BID LIKE '%aSearch%' 
AND ORDR_BID<>0) OR ( 1 B 1 +CASTCORDR ID AS VARCHAft) LIKE 7 %aSearch%' AND ORDR_BID=0) ) ORDER BY 
VARBRAND DESC 

ELSE IF aCol^'VARPRICE 1 SELECT 
ORDR_ID / ORDR_SHIP, VARDATE, 0RDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL CORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULLCORDR_BUYR RATE, 1 ) ,VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR - SHIP, LE FTC CONVERT CVARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE, 0RDR_BID,CASTC0RDRJ2TY AS VARCHAR)+ ' 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA _CODE=ORDR_SIZE) AS VARSIZE, CSELECT CONT_LABL FROM CONTRACT WHERE 
C0NT_ID=ORDR_C0NT AND CONT_ID= 3Num) AS VARCONTRACT, C SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE, ISNULL(0RDR_WGHT,0RDR_QTY*7SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE* AND PARA CODE=ORDR_SIZE) ) as VARWGHT,0RDR_ BUYR_RATE,ORDR_BUYR — PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORD" 



ERS WHERE ORDR_BUYR=aPers Id AND 

Month(aDate)=Month(ORDR_DATE) AND Year (3Date)=Year (ORDR DATE) )Q WHERE C <ORDR_BID LIKE '%aSearch%' 
AND ORDR_BID<>0) OR C * B 1 +CAST(ORDR_ID AS VARCHAR) LIKE 7 %3Search%' AND ORDR BID=0)) ORDER BY 
VARPRICE DESC 

ELSE IF aCol='VARPLACE* SELECT 
ORDR_ID / ORDR_SHIP / VARDATE / ORDR - BID / VARSIZE,VARCONTRACT / VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR - SHIP / LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARAJJAME^'NAME' AND PARA_CODE=ORDR_SIZE) AS VARSI2E, (SELECT C0NT — LABL FROM CONTRACT WHERE 
CONT_ID=ORDRj:ONT AND CONT_ID= SNutn) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, I SnDlL(ORDR_WGHT / ORDR_QTY*(S ELECT CASTCPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARW6HT,0RDR BUYR RATE, ORDR_BUYRJ>AID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,0RDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month ODate)=Month(ORDR - DATE) AND Year (3Date)=Year(0RDR DATE) )Q WHERE ((ORDR BId"lIKE ^aSearchX 1 
AND ORDR_BID<>0) OR ( * B ' +CAST(ORDR ID AS VARCHAR) LIKE 7 %aSearch%' AND ORDR_BID=0)) ORDER BY 
VARPLACE DESC 



END 
END 
END 
END 

ELSE IF aScol='ORDR SHIP 1 
BEGIN 
— <BASE> 
IF 3Num IS NULL 
BEGIN 
IF SCoL IS NULL 
SELECT 

ORDR_ID,ORDR_SHIP, VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARUGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ*ATE / 1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE / ORDR_WGHT 
,ORDR_JO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR_QTY* ( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYRJlATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+', '+LOCl"sTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(ORDR DATE) AND 
Year(3Date)=Year(0RDRJ)ATE))Q WHERE (ORDR_SHIP= ' 0' AND 'Inventory 1 LIKE '%aSearch% 1 OR 
ORDR_SHIP='V AND 'Dispatched' LIKE '%aSearch%' OR ORDR SHIP='2' AND 'En route' LIKE '%3Search%' OR 
ORDR_SHIP= , 3' AND 'Delivered' LIKE '%aSearch% 1 ) ORDER BY ORDR_ID DESC 

ELSE 

BEGIN 

— Determeiner si c ASC ou DESC — > peux pas mettre la variable car y veut pas :( 
IF aOrder^'ASC 
BEGIN 

IF 3Col='0RDR_SHIP' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE,ORDR BID,VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE* I SNULLCORD 
R_BUYR_RATE,T)+ORDR_BUYR_PAID / VARWGHT*VARPR 



ICE*ISNULL(0RDR_BUYR_RATE,1),VARPLACE / 0RDR_GENE,0RDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR / ORDR_DATE / 101 ),5) AS 
VARDATE / ORDR BID, CASTCORDR QTY AS VARCHAR)+ 1 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR CONT) AS VARCONTRACT, ( SELECT BRAN_ NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR SIZE)) as 
VARWGHT / ORDR_BUYR_RATE,ORDR_BUYR_PAID / (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDRJTO) ) AS VARPLACE,0RDRJ3ENE,0RDR TO,ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(0RDR_DATE) AND 

Year(3Date)=Year(0RDR_DATE))Q WHERE (ORDR_SHIP= ' 0' AND 'Inventory' LIKE 'XaSearchX* OR ORDR_SHIP= 1 1 ' 
AND 'Dispatched' LIKE '%3Search%* OR ORDR_SHIP= 1 2 ' AND 'En route' LIKE l %aSearch%' OR ORDR_SHIP= ' 3 1 
AND 'Delivered' LIKE '%aSearch%' ) ORDER BY 0RDR_SHIP ASC 

ELSE IF aCoL= ' VARDATE' SELECT 
ORDR__ID,ORDR_SHIP, VARDATE,ORDR_B ID, VARSIZE, VARCONTRACT,VARBRAND,VARPR ICE, VARWGHT*VARP RICE* I SNULL(0RD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,0RDR_T0 FROM (SELECT 0RDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PAR A 



«_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT UHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY* < SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL_CITY+ , / »+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDRJTO) ) AS VARPLACE,ORDR GENE,ORDR_TO,ORDR_ WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(ORDR_DATE) AND 

Year(3Date)=Year(ORDR_DATE))G WHERE (ORDR_SHIP= ' 0 1 AND 'Inventory 1 LIKE , %aSearch%' OR ORDR SHIP= , V 
AND "Dispatched 1 LIKE '%aSearch%' OR ORDR SHIP='2' AND 'En route' LIKE , %aSearch% 1 OR ORDR_SHIP= 1 3 * 
AND 'Delivered' LIKE '%aSearch%') ORDER BY VARDATE ASC 

ELSE IF aCol= , ORDR_BID' SELECT 
ORDR_ID,ORDR_SHIP / VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL<ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL<ORDR_BUYR RATE,1 > , VARPLACE, ORDR GENE,ORDR WGHT 
,0RDRJT0 FROM (SELECT 0RDR_ID, ORDR_SH IP, LEFT (CONVERT(VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE ,0RDR_B ID, CAST (0RDR_QTY AS VARCHAR)+ 1 ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA CO 



.DE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR SHIP PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CAST (PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR RATE, ORDR_BUYRJ>AID, (SELECT LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE 
L0CL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR_GENE / ORDR TO,ORDR WGHT 



FROM ORDERS WHERE 0RDR_BUYR=3PersId ANO MonthC3Date)=Month(ORDR DATE) AND 

Year(3Date)=Year(0RDRJ>ATE))Q WHERE CORDR SHIP='0' AND 'Inventory' LIKE '%3Search%' OR ORDR SHIP='1' 
AND 'Dispatched' LIKE ^SSearchX' OR ORDR~SHIP= ' 2 1 AND 'En route' LIKE '%aSearch%' OR ORDR_SHIP= ' 3 ' 
AND 'Delivered' LIKE '%3Search%') ORDER BY ORDR_BID ASC 

ELSE IF 3Col= 1 VARWGHT 1 SELECT 
ORDR„ID / ORDR_SHIP,VARDATE / ORDR - BID / VARSIZE / VARCONTRACT / VARBRAND / VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRKE*ISNULL(ORDR BUYR RATE, 1 ) , VARPLACE,ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT( CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_B ID, CAST (ORDR QTY AS VARCHAR)+ l ! +(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA jCODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONTJ.ABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR PRCE+ORDR SHIP PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA CODE=ORDR SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', 1 +LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(ORDR DATE) AND 

Year (3Date)=Year (ORDR_DATE) )Q WHERE (ORDR„SHIP= ' 0' AND 'Inventory' LIKE '%3Search%' OR 0RDR_SHIP= ' 1 » 
AND 'Dispatched' LIKE '/^SearchX' OR ORDR_SHIP= 1 2 1 AND * En route 1 LIKE l %aSearch%' OR 0RDR_SHIP= 1 3 ' 
AND 'Delivered' LIKE , %3Search% 1 ) ORDER BY VARWGHT ASC 

ELSE IF 3Col= 1 VARBRAND 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDRJBID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*I SNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1 ), VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDRJTO FROM (SELECT ORDR_ID, ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR_DATE, 1 01 ),5 ) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' '+CSELECT PARA_VALU FROM PARAMET 



ER WHERE 

PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR_QTY*( SELECT CAST( PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE / ORDR_BUYR_PA ID, (SELECT LOCL_CITY+', '+LOCL"STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=3PersId AND Month(SDate)=Month(ORDR DATE) AND 

Year(SDate)=Year(ORDR_DATE))Q WHERE (ORDR_SHIP= * 0 ' AND 'Inventory' LIKE '%3Search%' OR ORDR_SHIP= ' 1 ' 
AND 'Dispatched' LIKE '%aSearch%' OR 0RDR_SHIP=*2' AND 'En route 1 LIKE '%aSearch%' OR ORDR SHIP= , 3' 
AND 'Delivered 1 LIKE '%aSearch%') ORDER BY VARBRAND ASC 

ELSE IF 3Col='VARPRICE' SELECT 
ORDR_ID, ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ),5 ) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND ,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+L0CL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE, ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(ORDR DATE 1 * 



/ AND 

Year(3Date)=Year (ORDR_DATE) )Q WHERE (ORDR_SHIP= 1 0 ' AND 'Inventory* LIKE '%3Search%' OR 0RDR_SHIP=* 1 ' 
AND 'Dispatched' LIKE '%aSearch%* OR ORDR~SHIP= * 2 1 AND 'En route' LIKE '%aSearch%' OR ORDR_SHIP= ' 3 1 
AND 'Delivered' LIKE ^aSearchX 1 ) ORDER BY VARPRICE ASC 

ELSE IF aCol^VARPLACE' SELECT 
ORDR_ID / ORDR_SHIP / VARDATE,ORDR_BID / VARS I ZE / VARCONTRACT / VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ), VARPLACE, ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT OR DR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR,ORDR_D ATE, 1 01 ) , 5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+* '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_C0DE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDRj:ONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PA ID, (SELECT LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE,ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR DATE) AND 

Year(3Date)=Year(0RDR_DATE))Q WHERE (ORDR_SHIP= ' 0 ' AND 'Inventory' LIKE ' %aSearch% * OR ORDR SHIP='V 
AND 'Dispatched* LIKE '%3Search%' OR ORDR SHIP=*2' AND 'En route* LIKE , %SSearch%' OR ORDR_SHIP= ' 3' 
AND 'Delivered' LIKE '%aSearch%') ORDER BY VARPLACE ASC 

END 

ELSE 

BEGIN 

IF aCol^'ORDR.SHIP' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+0RDR - BUYR_PAID,VARWGHT*VARPRICE*ISNULL(0RDR BUYR RATE,1 ), VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101 ) ,5) AS 



VARDATE,ORDR_BID, CASTCORDR QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA JJAME=* NAME' AND PARA CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CASKPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE 1 AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL"sTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE, ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=3PersId AND MonthODate)=Month(ORDR DATE) AND 

Year(aDate)=Year(ORDR_DATE))Q WHERE (ORDR_SHIP= 1 0 ' AND 'Inventory' LIKE '%aSearch%' OR ORDR SHIP='V 
AND 'Dispatched' LIKE '%aSearch%' OR ORDR SHIP='2' AND 'En route' LIKE '%3Search%' OR ORDR^HIP* 1 3 ' 
AND 'Delivered 1 LIKE *%SSearch%') ORDER BY ORDR_SHIP DESC 

ELSE IF aCoL=' VARDATE 1 SELECT 
ORDR_ID / ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+0RDR_BUYR PAID, VARWGHT*VARPR ICE* ISNULL (ORDR BUYR_RATE,1 ), VARPLACE ,ORDR_GENE, ORDR WGHT 
,ORDRJTO FROM (SELECT ORD R_ID,ORDR - SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_GTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME- 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+', ' +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDR_GENE,ORDR_TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND MonthQDate)=Month(ORDR DATE) AND 

Year(3Date)=Year (ORDR_DATE) )Q WHERE (ORDR_SHIP= ' 0 ' AND 'Inventory' LIKE '%aSearch% 1 OR ORDR_ 



SHIP=' V 

AND 'Dispatched' LIKE '%aSearch%' OR ORDR_SHIP=' 2 ' AND 'En route' LIKE '%aSearch%' OR ORDR_SHIP='3' 
AND 'Delivered' LIKE 'SSaSearch?^) ORDER BY VARDATE DESC 

ELSE IF aCoL='ORDR_BID' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R - BUYR„RATE / 1)+0RDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1) / VARPLACE / 0RDR_GENE / 0RDR_«6HT 
,ORDR TO FROM (SELECT ORDR ID / ORDR_SHIP / LEFT( CONVERT (VARCHAR, ORDR DATE / 101) / 5) AS 
VARDATE, ORDR BID, CAST(ORDR~QTY AS VARCHAR)+ 1 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST( PARA_VALU AS 
NUMERIC) FROM~PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE / ORDR_GENE / ORDR - .TO / ORDR - UGHT 
FROM~ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month (ORDR_DATE) AND 

YearODate)=Year(ORDR DATE) )Q WHERE (ORDR SHIP= , O l AND 'Inventory 1 LIKE '%aSearch%' OR ORDR SHIP='1' 
AND 'Dispatched' LIKE**' %3Search% ' OR ORDR_SHIP= ' 2 ' AND 'En route' LIKE '%aSearch%' OR ORDR_SHIP= '3' 
AND 'Delivered' LIKE 'XaSearchX') ORDER BY 0RDR_BID DESC 

ELSE IF aCol='VARWGHT' SELECT 
ORDR_ID, ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1 ) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP,LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ), 5) AS 
VARDATE, ORDR_B ID, CAST (ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS VAR PRICE, I SNULL (ORDR WGHT,ORDR QTY*(SELECT CAST( PARA_VALU AS 



NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE / ORDR_TO / ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 

Year(S)Date)=Year(ORDR_DATE))Q WHERE (ORDR_SHIP= ' 0' AND 'Inventory' LIKE '%3Search%' OR ORDR_SHIP= ' 1 1 
AND 'Dispatched 1 LIKE , %aSearch%' OR ORDR SHIP='2' AND 'En route' LIKE l %aSearch%' OR ORDR SHIP='3' 
AND ' Delivered 1 LIKE '%aSearch%') ORDER BY VARWGHT DESC 

ELSE IF 3Col= ' VARBRAND 1 SELECT 
0RDR_ID / ORDR_SHIP,VARDATE / ORDR_BID,VARSIZE / VARC0NTRACT / VARBRAND / VARPRICE / VARWGHWARPRICE*ISNULL(0RD 
R„BUYR_RATE / 1)+0RDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR I D, ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID, CAST (ORDR QTY AS VARCHAR)+ ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN^NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, OR DR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(ORDR WGHT, OR DR_QTY*( SELECT CAST( PARA_VALU AS 
NUMERIC) FROM PARAMETER"WHERE PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR SIZE)) as 
VARWGHT, ORDR_BUYR_RATE,ORDR — BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR T0)> AS VARPLACE,ORDR GENE, ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(0RDR DATE) AND 

Year (3Date)=Year (ORDR_DATE) )Q WHERE (ORDR_SHIP= 1 0' AND 'Inventory' LIKE , %aSearch%' OR ORDR_SHIP=' 1 1 
AND 'Dispatched' LIKE '%3Search%' OR ORDR~SHIP= '2' AND 'En route' LIKE '%3Search%' OR ORDR SHIP='3 t 
AND 'Delivered' LIKE '%aSearch%') ORDER BY VARBRAND DESC 



ELSE IF aCoi^'VARPRICE* SELECT 

ORDR_ID / ORDR - SHIP / VARDATE,OR0R_BI0 / VARSIZE, VARCONTRACT, VARBRAND/VARPRICE, VARW6HT*VARPRICE*ISNULL<0RD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE / 1) / VARPLACE / 0RDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDRJTONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CASUPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR SIZE)) as 
VARWGHT, ORDR_BUYR_RATE, 0RDR_BUYR PAID, (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE,ORDR TO / ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 

Year(3Date)=Year(0RDR_DATE))Q WHERE (ORDR_SHIP= ' 0' AND 'Inventory' LIKE '%aSearch%' OR ORDR SHIP='V 
AND 'Dispatched' LIKE '%3Search%' OR ORDR_SHIP= ' 2 ' AND 'En route* LIKE '%aSearch%' OR ORDR SHIP='3' 
AND 'Delivered' LIKE '%aSearch%') ORDER BY VARPRICE DESC 
ELSE IF aCo^'VARPLACE 1 SELECT 

ORDR_ID,ORDR_SHIP, VAR DATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPR ICE* I SNULL (OR D 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ),VARPLACE,ORDR GENE, ORDR WGHT 
,ORDRJTO FROM (SELECT ORDR_I D,ORDR_SHIP,LEFT( CONVERT (VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA 



NAME^'SIZE' AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITYT' , '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE, ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=3PersId AND Month ODate)=Month(ORDR_DATE) AND 

YearODate)=Year(0RDR_DATE))Q WHERE (ORDR_SHIP= ' 0' AND 'Inventory' LIKE 'JSaSearchK* OR ORDR_SHIP=*1' 
AND 'Dispatched' LIKE , %asearch% t OR ORDR_SHIP= ' 2 1 AND 'En route' LIKE 'vSaSearch 0 ^ 1 OR ORDR SHIP='3' 
AND 'Delivered' LIKE '%aSearch%') ORDER BY VARPLACE DESC 
END 
END 
END 
ELSE 
BEGIN 
IF SCoL IS NULL 
SELECT 

ORDR_ID,ORDR_SHIP / VARDATE / ORDR_BID,VARSIZE / VARCONTRACT / VARBRAND / VARPRICE,VARWGHT*VARPRICE*ISNULLCORD 
R_BUYR_RATE,1)+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) ,VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID / ORDR SHIP, LEFT( CONVERT (VARCHAR, ORDR DATE, 101 ),5) AS 
VARDATE,ORDR_BID / CAST(ORDR_QTY AS VARCHAR)*' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNumT AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE / ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT 
LOCL.CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE, ORDRJ5ENE, ORDRJTO, ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(3Date)=Month(0RDRJ>ATE) AND Year(3Date)=Year(0RDR_DATE))Q WHERE (ORDR_SHIP=' 0 1 AND 'Inventory* 
LIKE , %3Search%' OR ORDR_SHIP= ' 1 ' AND 'Dispatched' LIKE '%3Search%' OR ORDR_SHIP= 1 2 ' AND 'En route' 
LIKE '%aSearch%' OR ORDR SHIP='3' AND 'Delivered' LIKE '%aSearch%') ORDER BY 0 



RDR 10 DESC 

ELSE 
BEGIN 

— Determeiner si c ASC ou DESC — > peux pas mettre la variable cap y veut pas *( 
IF aOrder= , ASC l 
IF aCol='ORDR_SHIP' SELECT 

ORDR_ID,ORDR_SHIP / VARDATEyORDR^BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R„BUYR_RATE / 1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE / 1) / VARPLACE / ORDR GENE,0RDR WGHT 
,0RDR_T0 FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT (VARCHAR / ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+» '+CSELECT PARA_ VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA JTODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND C0NT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(0RDR__WGHT,0RDR_QTY*7sELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR BUYR PAID, (SELECT 
L0CL_CITY+', *+L0CL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_L0CL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARP LACE, ORDR_GENE,ORDR_TO, ORDR WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(3Date)=Month(0RDR_DATE) AND Year(3Date)=Year(0RDR DATE) )Q WHERE (ORDR SHIP='0* AND 'Inventory' 
LIKE >%aSearch%' OR ORDR_SHIP=' 1 1 AND 'Dispatched' LIKE~'%SSearch% ' OR 0RDrIsHIP= , 2' AND 'En route 1 
LIKE '%asearch%' OR 0RDR_SHIP='3' AND 'Delivered' LIKE '%aSearch%') ORDER BY 0RDR_SHIP ASC 



ELSE IF 3CoL= 1 VARDATE 1 SELECT 

ORDR_ID, ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPR ICE* I SNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP, LEFT( CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE, 0RDR_8 ID, CAST (OR DR_QTY AS VARCHAR)+ ' ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNutn) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
P ARA_NAME= 'SIZE' AND PARA_CGDE=ORDR SIZE)) as VARWGHT,ORDR BUYR RATE,ORDR BUYR PAID, (SELECT 
LOCL_CITY+' / *+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO, ORDR WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Mont hODate)=Month(ORDR_D ATE) AND Year(3Date)=Year(0RDR DATE))Q WHERE (ORDR_SHIP='0' AND 'Inventory* 
LIKE 'KaSearchX 1 OR ORDR SHIP='1' AND 'Dispatched' LIKE'^aSearchX 1 OR ORDR_SHIP=' 2 » AND 'En route' 
LIKE ' %3Search% 1 OR ORDR_SHIP= ' 3 ' AND 'Delivered' LIKE '%aSearch%') ORDER BY VARDATE ASC 

ELSE IF 3Co(='0RDR_BID' SELECT 
OR DR_ID,ORDR_SH IP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) ,VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SH IP, LEFT (CONVERT( VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA JIAME=' NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR SHIP_PRCE AS 
VARPRICE, ISNULL(ORDR_W 



GHT,ORDR QTY*(SELECT CAST(PARAJ/ALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE / ORDR_BUYR_PAID, < SELECT 
LOCL_CITY+ l , *+LOCL_STAT FROM LOCALITY WHERE LOCL ID=( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC ID=ORDR_TO)) AS VARPLACE,ORDR GENE,ORDR T0,0RDR_W6HT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(3Date)=Year (ORDR_DATE) )Q WHERE (ORDR_SHIP='0* AND 'Inventory' 
LIKE '%aSearch%' OR ORDR_SHIP= ' 1 1 AND 'Dispatched' LIKE ^Search?.' OR ORDR_SHIP='2' AND 'En route' 
LIKE '%3Search%' OR ORDR_SHIP= ' 3 ' AND 'Delivered 1 LIKE '%aSearch%') ORDER BY ORDR_BID ASC 

ELSE IF 3Col=' VARWGHT' SELECT 
ORDR_ID / ORDR_SHIP,VARDATE / ORDR_BID / VARSIZE / VARCONTRACT/VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, D+ORDR BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR_UGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP, LEFT (CONVERT (VARCHAR/ORDR^DATE, 101 ) , 5) AS 
VARDATE / ORDR_BID,CAST(ORDRjaTY AS VARCHAR)+ ' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT~ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDrIbRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST( PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT, OR DR_BUYR_RATE,ORDR_BUYR_P AID, (SELECT 
LOCL_CITY+ l , *+LOCL_STAT FROM LOCALITY WHERE LOCL_ID= ( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE / ORDR_GENE,ORDR_TO / ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR DATE) AND Year (3Date)=Year (ORDR_DATE) )Q WHERE (ORDR SHIP='0' AND 'Inventory' 
LIKE , %SSearch%' OR ORDR_SHIP= ' 1 1 AND 'Dispatched' LIKE '%aSearch%' OR ORDR~SHIP= 1 2' AND 'En route' 
LIKE '%aSearch%' OR ORDR 



_SHIP='3' AND 'Delivered 1 LIKE l %aSearch% 1 ) ORDER BY VARWGHT ASC 
ELSE IF aCoL=* VARBRAND 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE* I SNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHARH* '+CSELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE-ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT, ORDR BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+ l , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,0RDRJ3ENE,0RDRJT0,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month ODate)=Month(0RDR_DATE) AND Year ODate7=Year (ORDR DATE) )Q WHERE (ORDR SHIP= l O' AND "Inventory" 
LIKE ^SSearch?.* OR ORDR_SHIP= 1 1 * AND 'Dispatched' LIKE*' %SSearch% * OR ORDRlsHIP= ' 2 ' AND 'En route' 
LIKE '%asearch%' OR ORDR_SHIP= ' 3 ' AND 'Delivered 1 LIKE '%aSearch%') ORDER BY VARBRAND ASC 

ELSE IF aCol=' VARPRICE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR BUYR PAID, VARWGHT*VARP RICE* I SNULL (ORDR BUYR_RATE,1 ) , VARPLACE,ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP, LEFT(CONVERT(VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR BID, CAST(ORDR_QTY AS VARCHAR)+ 1 '+(S£LECT PARA_VALU FROM PARAMETER WHERE 
P 



ARA_NAME=' NAME 1 AND PARA_C0DE=0RDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME=' SIZE 1 AND PARA CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYRJ>AID / (SELECT 
LOCL CITY+ ' , 1 +L0CL STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 



PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE,ORDRJ"0,ORDRJfGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(aDate7=Year (ORDR DATE) )Q WHERE (ORDR_SHIP= ' 0 1 AND 'Inventory' 
LIKE , %3Search%' OR ORDR_SHIP= ' 1 ' AND 'Dispatched* LIKE*"' %3Search% 1 OR ORDR_SHIP= ' 2 ' AND 1 En route' 
LIKE , %3Search% 1 OR ORDR SHIP='3' AND 'Delivered' LIKE '%aSearch%') ORDER BY VARPRICE ASC 

ELSE IF aCoL= , VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE, 1 01 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDRJJTY AS VARCHARH 1 ' + (SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
C0NT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE 
BRAN ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE' AND PARA CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID= ( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDRJ)ATE) AND Year(3Date)=Year (ORDR_DATE) )Q WHERE (ORDR_SHIP='0* AND 'Inventory 1 
LIKE '%aSearch%' OR ORDR SHIP='V AND 'Dispatched' LIKE , %aSearch%' OR ORDR~SHIP= ' 2 ' AND 'En route' 
LIKE , %3Search%' OR ORDR_SHIP= ' 3 1 AND 'Delivered' LIKE '%3Search%') ORDER BY VARPLACE ASC 
ELSE 

IF aCol='ORDR_SHIP' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,0RDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPR T 



*CE*ISNULL(0RDR_8UYR RATE,1 ),VARPLACE,ORDR GENE / ORDR_WGHT 
,0RDR_TO FROM (SELECT ORDR_ID,OR0R SHIP,LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ),5) AS 
VARDATE,ORDR BID, CAST(ORDR_QTY AS VARCHAR)+ ' *+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= SNUffl) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*7sELECT CASTC PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE / ORDR_BUYR PAID, (SELECT 
LOCL - CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR-aPersId AND 
Month(3Date)=Month(ORDRJ)ATE) AND Year (3Date)=Year (ORDR DATE))Q WHERE (ORDR SHIP=*0' AND 'Inventory* 
LIKE '%aSearch%' OR ORDR_SHIP='V AND 'Dispatched' LIKE*' %SSearch% ' OR ORDR~SHIP='2* AND 'En route' 
LIKE '%aSearch%' OR ORDR SHIP^'3 1 AND 'Delivered' LIKE '%aSearch%') ORDER BY ORDR_SHIP DESC 

ELSE IF SCO 1= 1 VARDATE 1 SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ*ATE,1)+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) , VARPLACE, ORDR_GENE,ORDR_WGHT 
,ORDRjrO FROM (SELECT ORDR_I D, ORDR_SH IP, LEFT (CON VERT (VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA CODE=0RDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT ID=ORDR CONT AND CONT ID= aNumT AS VARCONTRACT 



, (SELECT BRAN_NAHE FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST ( PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR SIZE) ) as VARWGHT,ORDR_BUYR RATE, ORDR_BUYR PAID, (SELECT 
LOCL_CITY+ l / *+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE y 0RDR_GENE,0RDR_T0 / 0RDR_W6HT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month ODate)=Month(ORDR_D ATE) AND Year (3Date)=Year (ORDR_DATE) )Q WHERE (ORDR_SHIP= 1 0 ' AND 'Inventory' 
LIKE '%aSearch%' OR ORDR_SHIP='1* AND 'Dispatched' LIKE '%aSearch%' OR ORDR SHIP= , 2' AND 'En route' 
LIKE '%3Search%' OR ORDR_SHIP= ' 3 ' AND 'Delivered 1 LIKE , %aSearch%') ORDER BY VARDATE DESC 

ELSE IF 3Col='ORDR_BID' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR J3ID,VARS I ZE,VARCONTRACT,VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) ,VAR PLACE, ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP / LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ),5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP__PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR SIZE) ) as VARWGHT ,ORDR_BUYR RATE,ORDR_BUYR — PAID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPers Id AND 
Month(3Date)=Month(ORDR_DATE) AND Year (3Date)=Year (ORDR DATE) )G WHERE (ORDR SHIP= ! 0' AND 'Inventory' 
LIKE '%aSearch%' OR ORDR_SHIP=" 1 ' AND "Dispatched* LIKE*"' %SSearch% ' OR ORDr'sHIP^' AND 'En route' 
LIKE '%asearch%* OR ORDR_SHIP=' 3 ' AND 'Delivered' LIKE *%a" 



oearch%') ORDER BY ORDR BID DESC 

ELSE IF aCoU'VARWGHT' SELECT 

ORDR_ID,ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE, VARCONTRACT/VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R - BUYR_RATE / 1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE,101>,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= l NAME l AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 



CONT_ID=ORDR_CONT AND CONT_ID= SlNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND 7 0RDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*7 SELECT CASK PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,0RDR_J3UYR_RATE,ORDR BUYR PAID, (SELECT 
LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE / ORDR_TO / ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month ODate) =Month (ORDR_DATE) AND Year (aDate)=Year(ORDRJ)ATE) )Q WHERE (ORDR_SHIP='0' AND 'Inventory' 
LIKE , %aSearch%' OR ORDR„SHIP= ' 1 ' AND 'Dispatched' LIKE '%aSearch%» OR ORDR_SHIP= ' 2 * AND * En route' 
LIKE '%asearch%' OR ORDR SHIP='3' AND 'Delivered 1 LIKE ^aSearchX') ORDER BY VARWGHT DESC 

ELSE IF aCol=' VARBRAND 1 SELECT 
ORDR - ID / ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE / VARCONTRACT / VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+0RDR BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,t) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP / LEFT( CONVERT (VARCHAR, ORDR DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME=*NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND C0NT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE / ORDR BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE, ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year (3Date)=Year(0RDR DATE 



))Q WHERE (ORDR_SHIP='0' AND 'Inventory' 
LIKE '%aSearch%' OR ORDR_SHIP= ' 1 ' AND 'Dispatched* LIKE '%aSearch%' OR ORDR_SHIP= ' 2' AND 'En route' 
LIKE '%aSearch%' OR ORDR SHIP='3' AND 'Delivered' LIKE '%aSearch%') ORDER BY VARBRAND DESC 

ELSE IF aCol='VARPRICE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE,VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*I SNULL(ORD 
R_BUYR_RATE,1 )+0RDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1 ) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT ( CONVERT (VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ ' ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST ( PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=( SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE, ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(aDate)=Month(ORDR_DATE) AND YearODate)=Year(ORDR_DATE) )Q WHERE (ORDR SHIP^'O' AND 'Inventory' 
LIKE '%asearch%' OR ORDR_SHIP= ' 1 1 AND 'Dispatched' LIKE '%aSearch%' OR ORDR~SHIP-*2 ' AND 'En route' 
LIKE '%aSearch%' OR ORDR SHIP='3' AND 'Delivered' LIKE '%aSearch%») ORDER BY VARPRICE DESC 

ELSE IF aCol='VARPLACE' SELECT 
ORDR_ID / ORDR_SHIP / VARDATE,ORDR_BID / VARSIZE,VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR__BUYR_PAID, VARWGHT*VARPRICE*I 



SNULL(ORDR_BUYR_RATE,1) / VARPLACE,0RDR_GENE,0RDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_I D, ORDR_SH I P,LE FT ( CONVERT (VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VAR0ATE,OR0R_BID / CAST CORD R_QTY AS VARCHAR)+' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= : ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID= 7 0RDR_BRAN) AS VARBRAND,ORDR PRCE+0RDR_SH1P PRCE AS 

VARPR ICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE I AND PARA C0DE=0RDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,0RDR_BUYR_PAID, (SELECT 
LOCL - CITY+' / *+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=SPersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(aDate7=Year (ORDR_DATE) )Q WHERE (ORDR_SHIP= ' 0 ' AND 'Inventory' 
LIKE '%asearch%' OR ORDR_SHIP= * 1 1 AND 'Dispatched' LIKE '%aSearch%' OR ORDR_SHIP= ' 2 * AND 'En route* 
LIKE '%aSearch%' OR ORDR SHIP='3' AND 'Delivered' LIKE '%aSearch%') ORDER BY VARPLACE DESC 
END 
END 
END 

ELSE IF aSCol =l VARBRAND 1 
BEGIN 
— <BASE> 
IF aNum IS NULL 
BEGIN 
IF aCoL IS NULL 
SELECT 

0RDR_ID,ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VAR PRICE* I SNULL (ORDR BUYR RATE,1 ) , VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_GTY AS VARCHAR)+' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRA" 



WHERE 

CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR SHIP PRCE AS VARPRKE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST (PARA VALU AS 



NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+", '+LOCLIsTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE ORDR BUYR=3PersId AND Month(3Date)=Month (ORDR_DATE) AND 

YearQDate)=Year(ORDR_DATE))Q WHERE (VARBRAND LIKE , %3Search% 1 AND ORDR GENE=1 OR 'Generic' LIKE 
, %aSearch% 1 AND ORDR GENE=0) ORDER BY ORDR_ID DESC 

ELSE 

BEGIN 

— Detertneiner si c ASC ou DESC — > peux pas mettre la variable car y veut pas :( 
IF aOrder='ASC' 
IF aCol='ORDR_SHIP' SELECT 
^^^^-^ ^ / ORDR_SH I P, VARDATE , ORDR_B I D,VAR SIZE, VARCONTRACT, VARBRAND ,VARPR ICE, VARWGHT*VARP RICE* I SNU LLC ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE / 1),VARPLACE / ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 ' +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+ 1 , '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE, ORDR_TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month QDate)=Month(ORDR_DATE) AND 

Year(aDate)=Year(ORDR_DATE))Q WHERE (VARBRAND LIKE '%aSearch%' AND ORDR GENE=1 OR 'Generic* LIKE 
'%aSearch%' AND ORDR GENE=0) ORDER BY ORDR_SHIP ASC 
ELSE IF aCol=' VARDATE 1 SELECT 

ORDR - _ID,ORDR - SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
o 



.t_BUYR_RATE / 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ) ,VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR - ID / ORDR - SHIP / LEFT(CONVERT(VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= 1 SIZE I AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL CITY+', '+L0CL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_I D=ORDR_TO) ) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 

Year (3Date)=Year (ORDR_DATE))Q WHERE (VARBRAND LIKE '%3Search%' AND ORDR_GENE=1 OR 'Generic' LIKE 
l %aSearch%' AND ORDR_GENE=0) ORDER BY VARDATE ASC 

ELSE IF aCol= , ORDR_BID» SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) ,VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_JO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ l '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT> AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA 



_NAME='SIZE' AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PAID / (SELECT LOCL CITY+ 1 , '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(ORDR_DATE) AND 

Year(3Date)=Year (ORDR_DATE) )Q WHERE (VARBRAND LIKE '%3Search%' AND ORDR GENE=1 OR 'Generic' LIKE 
'%3Search%' AND ORDR_GENE=0) ORDER BY ORDR BID ASC 

ELSE IF 3Col= * VARWGHT' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,0RDR_6ENE,0RDR WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR_SHIP, LEFT (CONVERT (VARCHAR / ORDR_DATE / 101 ) , 5) AS 
VAR DATE ,ORDR_BID, CAST (ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND ,ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE,TsNULL(ORDR_WGHT, OR DR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL^CITyI' , 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ_OCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month (3Date)=Month(0RDR_DATE) AND 

Year(3Date)=Year(0RDR_DATE))Q WHERE (VARBRAND LIKE , %3Search%' AND ORDR GENE=1 OR 'Generic' LIKE 
l %3Search% 1 AND ORDR GENE^O) ORDER BY VARWGHT ASC 

ELSE IF 3Col= ' VARBRAND 1 SELECT 
ORDR^ID^RDR^SHIP/VARDATE^RDR.BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ*ATE,1 )+ORDR_BU 



YR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT(VARCHAR,ORDR DATE,101),5) AS 
VARDATE/ORDR^BIO, CAST(ORDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 



PARA_NAME- 1 NAME ' AND PARA_CODE=ORDR_S IZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, C SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULLCORDR WGHT, OR DR_QTY*( SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL - CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_L0CL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE, ORDR TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND ~ 
Year (aDate)=Year (ORDR_DATE) )Q WHERE (VARBRAND LIKE '%asearch%' AND ORDR GENE=1 OR Generic 1 LIKE 
'%aSearch%* AND ORDR GENE=0) ORDER BY VARBRAND ASC 
ELSE IF aCol=* VARPRICE' SELECT 

ORDR - ID / ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE / VARCONTRACT / VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL<ORD 
R - BUYR - RATE / 1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE / 1),VARPLACE,ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT( CONVERT (VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR - QTY AS VARCHAR)+ 1 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
C0NT_ID=0RDR_C0NT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, 0RDR_PR CE+ORDR_SH I P_PRCE AS VARPRICE / ISNULL(ORDR_WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= , SIZE* AND PARA_C0DE=0RDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
L0CL_ID=(SELECT PLAC_L0CL FROM PLACE WHERE PLAC ID=ORDR TO) ) AS VARP LAC E, ORDR_GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR_DATE) AND 

Year (3Date)= Yea r (ORDR_DATE ) )Q WHERE (VARBRAND LIKE '%aSearch%' AND ORDR GENE=1 OR 'Generic 1 LIKE 
'/SaSearchX' AND ORDR_GENE=0) ORDER BY VARPRICE ASC 
ELSE IF aCol^VARPLACE* SELECT 

ORDR_ID,ORDR_SHIP, VARDATE,ORDR_BI D, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R„BUYR_RATE,1)+0RDR_BUYRJ>AID,VARWGHT*VARPRICE*~ 



ISNULL(ORDR BUYR_RATE,1 ) , VARPLACE,ORDR GENE, ORDR_WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR,ORDR_DATE, 101 ) , 5) AS 
VARDATE / ORDR_BID / CAST(ORDR_QTY AS VARCHARH* '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND ,ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(0RDR_WGHT,0RDRJ3TY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID / (SELECT LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE, ORDR GENE / ORDR_TO / ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month (3Date)=Month(0RDR_DATE) AND 

Year(3Date)=Year(0RDR_DATE))Q WHERE (VARBRAND LIKE , %3Search%' AND 0RDR_GENE=1 OR 'Generic' LIKE 
'%aSearch%' AND ORDR_GENE=0) ORDER BY VARPLACE ASC 
ELSE 

IF 3Col='0RDR_SHIP' SELECT 

0^^^-^^ / ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE, VARCONTRACT, VARBRAND, VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+0RDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(0RDR_BUYR RATE,1 ), VARPLACE ,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR,ORDR_D ATE, 101 ), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME I AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDRJ>RCE+ORDR_SHIP_PRCE AS VARPRICE, I SNULL(ORDR_WGHT, ORDR_QTY* (SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCLIsTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=0RDR_T0) ) AS VARPLACE, ORDR GENE,0RDR_T0,0RDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=3Pers Id AND Mont h(3Date)=Month (ORDR DATE) AND 

Year(3Date)=Year(ORDR_DATE))Q WHERE (VARBRAND LIKE '%3Search%* AND ORDR GENE=1 OR 'Generic' LIKE 
'%aSearch%' AND 



ORDR GENE=0) ORDER BY ORDR SHIP DESC 
ELSE IF aCol =l VARDATE ' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR BID, VARSIZE,VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+0RDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULLC0RDR_BUYR_RATE / 1),VARPLACE / 0RDR_GENE / 0RDR_W6HT 
,ORDRJTO FROM (SELECT ORDR ID,ORDR_SHIP, LE FT ( CONVERT (VARCHAR, ORDR DATE, 101 ),5) AS 
VARDATE, ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDRJ>RCE+ORDR_SHIP PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= , SIZE' AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+' / '+LOCLISTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR_TO)) AS VARPLACE,ORDRJ3ENE,ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=3PersId AND Month(3Date)=Month(0RDRJ)ATE) AND 

Year(SDate)=Year(ORDR DATE) )Q WHERE (VARBRAND LIKE l %aSearch%' AND ORDR GENE=1 OR 'Generic' LIKE 
, %aSearch% 1 AND ORDR GENE=0) ORDER BY VARDATE DESC 

ELSE IF aCoL='ORDR_BID I SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1),VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT( CONVERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)* 1 ' +CSELECT PARA VALU FROM PARAMETER WHERE 



PARA_NAME= ' NAME 1 AND PARA_CO0E=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, ORDRJ>RCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR_QTY*( SELECT CAST( PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= l SIZE' AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR it _PAID, (SELECT LOCL_CITY+ l , '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SElIcT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDRJTO)) AS VARPLACE,ORDR GENE ,ORDR_TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 

YearODate)=Year(ORDR_DATE))Q WHERE (VARBRAND LIKE '%aSearch%' AND ORDR_GENE=1 OR 'Generic' LIKE 
'%aSearch%' AND ORDRJSENE=0) ORDER BY ORDR BID DESC 

ELSE IF 3Col= ' VARWGHT' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJMTE,1)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1) , VARPLACE, 0RDR_6ENE,0RDR WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP, LEFT( CONVERT(VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR QTY*(SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYRJ>AID, (SELECT LOCL_CITY+', »+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR_TO)) AS VARPLACE, ORDR_GENE, ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 

Year(3Date)=Year(0RDR_DATE))Q WHERE (VARBRAND LIKE '/^Search?.' AND ORDR_GENE=1 OR Generic' LIKE 
'XaSearch*^' AND ORDRJ3ENE=0) ORDER BY VARWGHT DESC 

ELSE IF aCol=' VARBRAND 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR BID, VARS I ZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARP RICE* I SNULL(ORD 
R_BUYR_RATE,1 )+0RDR_8UYR_PAID,VARWGHT*VARPRICE*ISNUL 



L(0RDR_BUYR_RATE,1 ), VARPLACE, ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT( CONVERT (VARCHAR, ORDR DATE,101 ),5) AS 
VARD ATE ,ORDR_BID, CAST (ORDR_QTY AS VARCHARH 1 *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND / ORDR_PRCE+ORDR SHIP_PRCE AS VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYRJ>AID / (SELECT LOCL__CITY+ ' , '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDR GENE, ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month ODate)=Month(ORDR_DATE) AND 

YearODate)=Year(ORDR_DATE))Q WHERE (VARBRAND LIKE 1 %aSearch%' AND ORDR GENE=1 OR 'Generic' LIKE 
, %aSearch%' AND ORDR GENE=0) ORDER BY VARBRAND DESC 

ELSE IF aCoL=' VARPRICE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ*ATE,1)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ), VARPLACE, ORDR GENE, ORDR_WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA __CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, ORDRJ>RCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULLCORDR WGHT,ORDR QTY*(SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE I AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDRJ5ENE, ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=3PersId AND Month ODate)=Month(ORDR_DATE) AND 
Year(3Date)=Year (ORDR_DATE) )Q WHERE (VARB° 



CASK 

(SELECT SUH(OFFR_QTY) FROM OFFER WHERE OFFR SIZE=1 AND OFFR_CONT=CONT ID AND 
( REVERSE ( SUBSTRING ( REVERSE (cont_bid_rai I) ,1 , PATINDEXC 1 %;% 1 , REVERSE (cont bid_rai I) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST_COMP IN 
( REVERSE (SUBSTRING(REVERSE(cont_bid_r a i 0,1, PATINDEX( REVERSE (cont bid_rai U )-1 ) ) ) AND 

TRST_C0NT&P0WER(2 / C0NT - ID-1)O0) AND CAST((OFFR PRCE-3Shippi ng*ISNULL( (SELECT SHIP PRCE RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRING(cont bid rai 1,1 , PATINDEX( *%;%', cont bid rail^D) AND 
SHIP_FROMJ_OCL=aLocl_Id),0)+OFFR FOB*ISNULL( (SELECT SHIP PRCEJ*AIL FROM SHIPPING WHERE 
SHIP_FROMJ_OCL=OFFR_FROMJ_OCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid_raiL7l / PATINDEX( , %;% , 7cont bid_rai l)-1 )) ),0)) AS VARCHAR)=CAST( (Q.OFFR PRCE- 
3Shipping*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL IN 
(SUBSTRING(cont_bid_rai l,1 / PATINDEX( ' %;%* ,cont_bid_rai )) AND~ 

SHIP - FR0M_L0CL=3Locl_Id) / 0)+Q.0FFR_F0B*ISNULL((SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=Q.OFFR_FROM_LOCL AND SHIP_TO_LOCL IN 

(SUBSTRING(cont_bid rai l,1,PATINDEX( '%;%', cont bid_rai l)-1))),0)) AS VARCHAR)) 
AS VARCHAR) + 1 ; '+ 

CAST( (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=OFFR_SELR) AS VARCHAR) 

FROM OFFER Q WHERE 0FFR_SIZE=1 AND OFFR CONT=CONTJD AND 
(REVERSE (SUBSTRING (REVERSE (cont bid rai I) ,1 , PAT INDEX ( 1 %;% 1 , REVERSE (cont bid raiL))-1))) NOT IN 
(SELECT DISTINCT TRSTJ40T_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP~FROM PERSON WHERE 
PERS_ID=OFFR_SELR) AND TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) AND (SELECT BRAN COMP F D 



uOM BRAND WHERE 

BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST COHP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid_rai I) ,1 , PATINDEX( , REVERSE (con t bid rail))-1))) AND 
TRST_CONT&POWER(2,CONT ID-DOO) ORDER BY EXPR1 ASC) " " 

END 
FROM 
(SELECT 
cont_id, 
cont_labl, 
cont_ordr, 

contJ>id_truc=(SELECT TOP 1 va L=CAST(bid_to loci AS VARCHAR>+ ' ; ' + 
CAST(expr AS VARCHAR)+ 1 ; 1 + 
CAST( 

(SELECT SUM(BIDjrTY) FROM BID WHERE (BID_PRCE-3Shipping*ISNULL( (SELECT SHIP_PRCE TRUC FROM 
SHIPPING WHERE SHIP_TOJ_OCL=BID_TO_LOCL AND SHIP FROM L0CL=3Locl_Id) ,0) )=EXPR AND BID SIZE=0 AND 
BID_CONT=CONT_ID AND (SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT 
TRST_NOT_TRST FROM TRUST WHERE TRST_C0MP=3Cornp Id AND TRST C0NT&P0WER(2, CONT ID-DOO)) 

AS VARCHAR)+ 1 ; 1 + ~ 

CAST(bid_buyr_comp AS VARCHAR) 
FROM (SELECT BID_TO_LOCL, EXPR=BID_PRCE-aShi ppi ng*ISNULL( ( SELECT SHIP_PRCE_TRUC FROM SHIPPING 
WHERE SHIP_TOJ_OCL=BID_T0_L0CL AND SHIP FROM L0CL=3Locl Id) / 0) / BID QTY / BID_BUYR COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID BUYR) FROM BID WHERE BID_SIZE=0 AND BID~CONT=CONT ID AND 
(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST NOT TRST FROM 
TRUST WHERE TRST_COMP=aComp„Id AND TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) )Q ORDER BY expr DESC) 
cont_bid_raU=(SELECT TOP 1 val=CAST(bid to Loci AS VARCHARH ' ; * + ' 

CAST(expr AS VARCHAR)+ ' ; ' + 

CAST( 

(SELECT SUM(BID_QTY) FROM BID WHERE (BID_PRCE-QShipping*ISNULL( (SELE r 



vT SHIP PRCE_RAIL FROM 

SHIPPING WHERE SHIP _TO_LOCL=BID_TO_LOCL AND SHIP_FROM_LOCL=aLocl Id),0))=EXPR AND BID SIZE=1 AND 
BID_CONT=CONT_ID AND (SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=aComp_Id AND TRST_CONT&POWER(2, CONT_ID-1 )<>0) ) 

AS VARCHAR)+ l ; '+ 

CAST(bid_buyr_comp AS VARCHAR) 

FROM (SELECT BID_TO_LOCL, EXPR=BID PRCE-aShi ppi ng*ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING 
WHERE SHIP_TOJ_OCL=BID_TOJ_OCL AND SHIP_FROM_LOCL=3Loc l_Id) ,0) / BID_QTY / BID_BUYR COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE BID_SIZE=1 AND BIdIcONT=CONT_ID AND 
(SELECT PERS_C0MP FROM PERSON WHERE PERS_ID=BID BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM 
TRUST WHERE TRST_C0MP=3Comp_Id AND TRST_CONT&POWER(2, CONT ID-1)O0))Q ORDER BY expr DESC) 

FROM CONTRACT WHERE CONTJD IN (SELECT DISTINCT CONT_ID FROM CONTRACT WHERE 
ISNULL(POWER(2,CONT_ID-1)&(SELECT DISTINCT TRST CONT FROM TRUST WHERE TRST COMP=aComp ld),0)=0 AND 
P0WER(2,C0NT_ID-1)&(SELECT COMP PREF FROM COMPANY WHERE C0MP_ID=3Comp ld)<>0) AND CONT_LABL LIKE 
3Cont_typ)G0 ORDER BY CONT ORDR 

END 
END 

RETURN 1 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSIJIULLS ON 
GO 



CREATE PROCEDURE spGWOI 

3Id numeric 

acompld numeric = NULL, 

SFLag varchar(4) 

aSesTyp varchar(4) = NULL, 

SNumber numeri c ~ NULL, 

asearch varchardOO) = NULL, 



ashowAU 
aSearchCol 

acoi 

aOrder 



AS 

DECLARE 



astrSql 



varchardOO) 
varchardOO) 
varchardOO) 
varchardOO) 



varchar(2O00> 



NULL, 
NULL, 



NULL, 
NULL, 
NULL, 
NULL 



IF <aid!=-1 AND Sid IS NOT NULL) 
BEGIN 

IF (3Flag='P' OR aSesTyp= , OP t OR aSesTyp='P') 
BEGIN 

SET 3St rSql= 1 SELECT * FROM (SELECT VARDATE=LEFT(CONVERT(VARCHAR,BID_DATE,101 ),5), 
VARID=BID_ID, 

VARSIZE=CAST(BID_QTY AS VARCHAR)+" ' *+(CASE BID_SIZE WHEN 0 THEN ' 'T" ELSE 
"R" END)+ ' 1 : 1 '+CAST((CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END)*BID QTY AS 
VARCHAR)+' ' lbs' 

VARCONTRACT=( SELECT CONT_LABL FROM CONTRACT WHERE CONT ID=BID_CONT), 
VARPRICE=CAST(BID_PRCE AS VARCHAR), 

VARVALUE=BID_PRCE*(CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END)*BID_QTY, 
VARPLACE=ISNULL(( SELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=BID_TO> , (SELECT 

LOCL_CITY+' "+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 

PLAC_ID=BID_TO))), 

VARPLACEID=BID_TO, 

VARUSR=(SELECT~PERS_LOGN FROM PERSON WHERE PERS_ID=BID BUYR), 

VARUSRID=BID_BUYR, 

VARWGHT=BID QTY* (CASE 



BID SIZE WHEN 0 THEN 42000 ELSE 190000 END), 

BIDJ)ATE 
FROM BID 

WHERE BID_BUYR='+CAST Old AS varchar) +' AND BID CONT=(CASE ' +CAST(5)Number as 
varchar)*' WHEN -1 THEN BID_C0NT ELSE , +CAST(3Number as varchar)+' END) )Q0' 
END 
ELSE 
BEGIN 

SET aStrSql='SELECT * FROM (SELECT VARDATE=LEFT(CONVERT(VARCHAR,OFFR_DATE / 101),5), 
VARID=OFFR_ID, 

VARSIZE=CAST(OFFR QTY AS VARCHAR)+" "+(CASE OFFR SIZE WHEN 0 THEN "T" 
ELSE 1 ' R 1 1 END)+ 1 1 : 1 1 +CAST( (CASE OFFR SIZE WHEN 0 THEN 42000 ELSE 190000* END) *OFFRJ3TY AS 
VARCHAR) + ' ' lbs", 

VARCONTRACT=( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=OFFR_CONT)+"<br>   <SPAN CLASS=S9> ' ' +(SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) + (CASE OFFRJ3ENE WHEN 0 THEN " (Generic)" ELSE "" END) + * ' </SPAN>" , 

VARPRICE=CAST(OFFR_PRCE AS VARCHAR), 

VARVALUE=OFFR PRCE*(CASE 0FFR_SIZE WHEN 0 THEN 42000 ELSE 190000 

END)*OFFR_QTY, 

VARPLACE= I SNULL( (SELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=OFFR_FROM), (SELECT 
LOCL_CITY+ 1 1 , "+LOCL STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=OFFR_FROM) ) ), 

VARPLACEID=OFFR_FROM, 

VARUSR=(SELECT PERS LOGN FROM PERSON WHERE PERS ID=OFFR SELR), 
VARUSRID=OFFR SELR, 

VARWGHT=OFFR — QTY* (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END), 
OFFR DATE 



FROM OFFER 

WHERE OFFR_SELR= ! +CASTCSId AS varchar) +* AND OFFR C0NT=(CASE 1 -KASTONumber as 
varchar)+' WHEN -1 THEN OFFR CONT ELSE ' +CAST(aNumber as varchar)?' END) )Q0* 
END 

END 

ELSE 

BEGIN 

IF 3CompId!=-1 AND aCompId IS NOT NULL 
BEGIN 

IF aFLag= , P' OR aSesTyp= , OP t 

SET aStrSql= 1 SELECT * FROM (SELECT 
VARDATE=LEFTCCONVERTCVARCHAR / BID_DATE / 101),5) / 

VARID=BID_ID, 

VARSIZE=CAST(BID QTY AS VARCHARH ' 1 l, +(CASE BID SIZE WHEN 0 THEN 
1 1 T 1 1 ELSE "R" END) + ": 1 1 +CAST( (CASE BID SIZE WHEN 0 THEN 42000 ELSE 190000~END)*BID QTY AS 
VARCHARH' 1 Lbs' 

VARC0NTRACT=( SELECT CONT LABL FROM CONTRACT WHERE CONT ID=BID_CONT) , 
VARPRICE=CAST(BID_PRCE AS VARCHAR), 

VARVALUE=BID_PRCE*(CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 

END)*BID_aTY, 

VARPLACE=ISNULL( (SELECT PLAC LABL FROM PLACE WHERE 
PLAC_ID=BID_TO), (SELECT LOCL CITY+", ' 1 +|_0CL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL 
FROM PLACE WHERE PLAC ID=BID_TO) )), 

VARPLACEID=BID_TO, 

VARUSR=(SELECT~PERS_LOGN FROM PERSON WHERE PERS_ID=BID_BUYR) , 
VARUSRID=BID_BUYR, 

VARWGHT=BID_QTY*(CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END), 
BID_DATE 
FROM BID 

WHERE BID_BUYR_C0MP= l + CASTOCompId AS VARCHAR) +' AND BID_CONT=(CASE 
, +CAST(3Number as varchar)+' WHEN -1 THEN BID CONT ELSE ' +CAST(3Number as varchar)+' END) )Q0 1 
ELSE 

SET SStrSqL= 1 SELECT * FROM (SELECT 
VARDATE=LEFT( C0NVERT( VARCHAR, OFFR DATE,101 ) ,5) , 

VARID=OFFR_ID, 

VARSIZE=CAST(0FFR QTY AS VARCHAR)*' 1 1 '+(CASE OFFR SIZE WHEN 0 THEN 
"T" ELSE "R" END)+ 1 1 : 1 '+CAST((CASE 0FFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END)*OFFR QTY AS 
VARCHAR)+ 1 1 



lbs", 

VARCONTRACT=( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=OFFR_CONT)+' ' <br>   <SPAN CLASS=S9> 1 1 +CSELECT BRAN_NAHE FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN)+(CASE OFFR_GENE WHEN 0 THEN " (Generic) 11 ELSE "'' END) + 1 1 </SPAN> ' ' , 

VARPRICE=CAST(OFFR_PRCE AS VARCHAR), 

VARVALUE=OFFR PRCE*(CASE OFFR SIZE WHEN 0 THEN 42000 ELSE 190000 

END)*OFFR_QTY, 

VARPLACE= I SNULLC (SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID=OFFR FROM) , (SELECT LOCL_CITY+ ' ' , 1 1 +LOCL STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLAC_LOCL 
FROM PLACE WHERE PLAC_ID=OFFR FROM))), 

~VARPLACEID=OFFR_FROM, 

VARUSR=(SELECT PERS_L0GN FROM PERSON WHERE PERS_ID=OFFR_SELR) , 

VARUSRID=OFFR_SELR, 

VARWGHT=OFFR_QTY*(CASE OFFR SIZE WHEN 0 THEN 42000 ELSE 190000 END), 
OFFR DATE 
FROM OFFER 

WHERE OFFR_SELR_COMP='+ CASTOCompId AS varchar) +» AND OFFR_CONT=(CASE 
•+CAST(aNuniber as varcharH 1 WHEN -1 THEN 0FFR_C0NT ELSE ' KASTONumber as varchar) + ' END) )Q0' 
END 
ELSE 
BEGIN 

IF aCompId=-1 

SET aStrSql=' SELECT * FROM (SELECT 
VARDATE=LEFT ( CONVERT ( VARCHAR, BID_DATE, 101 ), 5), 

VARID=BID_ID, 

VARSIZE=CAST(BID QTY AS VARCHAR)+" " + (CASE BID_SIZE WHEN 0 THEN 
"T" ELSE 11 R" END)+": "+CAST((CASE BID SIZE WHEN 0 THEN 42000 ELSE 190000 END)*BID QTY AS 
VARCHAR)+ 1 1 lbs 1 1 , 

VARCONTRACT=( SELECT C0NT_LABL FROM CONTRACT WHERE CONT ID=BID_CONT), 
VARPRICE=CAST(BIDJ>RCE AS VARCHAR), 

VARVALUE=BID_PRCE*(CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 

END)*BID_QTY, 



VARPLACE=ISNULLC (SELECT PLAC_LABL FROM PLACE WHERE 
PLACJD=BID TO), (SELECT LOCL CITY+", "+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_LOCL 
FROM PLACE WHERE PLAC_ID=BID_TO> )), 

VARPLACEID=BID_TO, 

VARUSR=(SELECT PERS LOGN FROM PERSON WHERE PERS ID=BID BUYR), 
VARUSRID=BID_BUYR, 

VARW6HT=BID_QTY*(CASE BID SIZE WHEN 0 THEN 42000 ELSE 190000 END), 
BID DATE 
FROM BID 

WHERE BID BUYR IS NOT NULL AND BID_CONT=(CASE 1 +CAST (SNumber as varchar)+' 
WHEN -1 THEN BIDJTONT ELSE ' +CAST(S)Nuniber as varchar)+» END) )Q0 ' 
ELSE 

SET aStrSql=' SELECT * FROM (SELECT 
VARDATE=LEFT(CONVERT(VARCHAR,OFFR_DATE,101 ),5), 

VARID=OFFR_ID, 

VARSIZE=CAST(OFFRJTTY AS VARCHAR)+" ,, + (CASE OF FR SIZE WHEN 0 THEN 
"T" ELSE "R" END)+ ' 1 : ' ' +CAST( ( CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END)*0FFR QTY AS 
VARCHAR)* 1 ' lbs' ', 

VARC0NTRACT=( SELECT CONTJ_ABL FROM CONTRACT WHERE 
CONT_ID=OFFR_CONT)+"<br>  Snbsp;<SPAN CLASS=S9>' ' + CSELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN)+(CASE OFFR GENE WHEN 0 THEN 11 (Generic)" ELSE "" END)+' ' </SPAN>' ' , 

~VARPRICE=CAST(OFFR_PRCE AS VARCHAR), 

VARVALUE=0FFR PRCE*(CASE OFFR SIZE WHEN 0 THEN 42000 ELSE 190000 

END)*0FFR_QTY, 

VARPLACE=ISNULL( (SELECT PLAC LABL FROM PLACE WHERE 
PLAC_ID=OFFR_FROM), (SELECT LOCL CITY+", "+LOCL STAT FROM~LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL 
FROM PLACE WHERE PLAC_ID=OFFR_FROM) ) ) , 

VARPLACEID=OFFR_FROM, 

VARUSR=(SELECT PERS_LOGN FROM PERSON WHERE PERS ID=OFFR_SELR) , 
VARUSRID=OFFR_SELR, 

VARWGHT=OFFR_QTY*(CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 END), 
OFFR_DATE 
FROM OFFER 

WHERE OFFR SELR IS NOT NULL AND OFFR CONT=(C* 



aSE 1 +CAST QNumber as varchar)+' 

WHEN -1 THEN OFFR_CONT ELSE 1 +CAST QNumber as varchar)+' END) )Q0 ' 
END 

END 

IF aSearch IS NOT NULL AND SShowAU IS NULL 
BEGIN 

IF aSearchCol= , ALL l 
BEGIN 

SET aStrSqL=aStPSql+' WHERE (VARDATE LIKE ' ' % ' +3Search+ 1 % 1 ' OR VARID LIKE 
' , % , +aSea^ch+ , % , 1 OR VARPLACE LIKE 1 , %'+aSearch+ , %' ' OR VARPRICE LIKE ' ' % ' +aSearch+ ' % " OR VARVALUE 
LIKE 1 , % , +aSearch+'%* 1 OR VARUSR LIKE ' ' % ' +asearch+ ' % ' ' OR VARCONTRACT LIKE ' , % , +aSearch+ I %" OR 
VARSIZE LIKE ' ' % * +3Search+ 1 % ' 1 ) ' 

END 

ELSE 

BEGIN 

SET astrSql=3StrSql+' WHERE ' +3SearchCol+ ' LIKE 1 , % , +3Search+' % ' 1 ' 

END 

END 

SET 3StrSql=aStrSqL+' ORDER BY * 

IF 3CoL IS NOT NULL 
BEGIN 

IF (3Col =I OFFR_DATE' AND (CaFlag^'P* AND aFlagO") OR aCompId=-1 OR aSesTyp= 1 OP' OR 
aSesTyp='P 1 )) 

SET 3StrSqL=aStrSql+'BID_DATE *+aOrder 

ELSE 
BEGIN 

IF (aCoL='BID DATE 1 AND ((aFlagO'P 1 AND aFlagO") OR aSesTyp='OS' OR aSesTyp- 1 S 1 ) ) 
SET 3S~trSql=astrSql+'0FFR_DATE l +aOrder 

ELSE 

SET 3StpSqL=astrSql+aCoL+' '+30rder 

END 

END 
ELSE 

SET astrSa 



,l=astrSql+«VARID OESC 



Exec OStrSql) 
RETURN 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spLivePrices 



3Cont_Typ 

3LocL_Id 

aComp_Id 

auser_ld 

3User_Type 

acont id 



varchar(lO) 

numeric 

numeri c 

numeric 

chard) 

numeric 



— only for Demo Live/Prices 

NULL, 

NULL, 

NULL, 

'P', 

NULL 



AS 



IF aUser_Type='P l 
BEGIN 

SELECT 

cont__id, 
cont_labl, 

cont_bid_truc=CASE ISNULL(cont_of f r truc / , -V) 
WHEN '-I 1 THEN 

(SELECT TOP 1 vaL=CAST(expr1 AS VARCHAR)+ ' ; ' + 
CASTC 

(SELECT SUM(BIDJJTY) FROM BID WHERE BID_SIZE=0 
AND BID_CONT=CONT_ID AND (BID_PRCE+(SELECT SHIP J>RCE_TRUC FROM SHIPPING WHERE 

SHIP_FROM_LOCL=aLocl_Id AND SHIP_TO_LOCL=SHIP_FROM LOCL)-(SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Id AND SHIP_TO_LOCL=BID_TO_LOCL) )=EXPR1 ) 

AS VARCHAR)+ 1 ; l + 
CAST(BID_BUYR COMP AS VARCHAR) 
FROM (SELECT BID_CONT,BID_PRCE+(SELECT SHIP PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=3Loc L Id AND SHIP TO LOCL=SHIP_FROM_LOCL)-(SELECT S~HIP J>RCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM_LOCL=aLoc L_Id AND SHIP_TO_LOCL=BID_TO LOCL) AS EXPR1 , BID_BUYR_COMP=( SELECT 
PERS_COMP FROM PERSON WHERE PERS ID=BID_BUYR) FROM BID WHERE BID SIZE=0)Q WHERE BID CONT=CONT ID 
ORDER BY EXPR1 DESC) 

ELSE 

(SELECT TOP 1 expr1=CAST((BIDJ>RCE+(SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_FROMJ_OCL IN (SUBSTRING(cont_of f r_truc,1 , PATINDEX( ' %;% ' ,cont of f r_truc)-1 ) ) AND 
SHIP_T0_L0CL=3LocL_Id)-(SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIP TO LOCL=BID TO_LOCL AND 
SHIP_FROMJ_OCL IN (SUBSTRING(cont offr truc,1 , PATINDEX( '%;%' , 



cont_offr_truc)-1)))) AS VARCHAR)+ ' ; '+ 

CASTC 

(SELECT SUM(BID_QTY) FROM BID WHERE BID SIZE=0 

AND BID_CONT=CONT_ID AND 

CREVERSE(SUBSTRING(REVERSE(cont„offr_truc),1 / PATINDEX('%;%' / REVERSE(cont_offr truc))-1))) NOT IN 
(SELECT TRSTJIOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COHP FROM PERSON WHERE 
PERS_ID=BID BUYR) AND (TRST_CONT=0 OR TRST CONT=CONT ID)) AND~(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID~BUYR) NOT IN (SELECT DISTINCT TRST JIOT JTRST FROM TRUST WHERE TRST COHP IN 
(SUBSTRING(cont_offr_truc / PATINDEX('%;% 1 ^ont^offp^t ruc)+1 / PATINDEX('%;%' / right (cont off r_truc, len(c 
ont offr truc)-PATINDEX('%;%' / cont offr truc)7)-1)7 AND (TRST CONT=0 OR TRST CONT=CONT ID)) AND 



CAST(CBID_PRCE+(SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP FROM LOCL IN 

(SUBSTRING<cont_offr_truc r 1,PATINDEX< '%;%', cont_offr_truc)-1))"AND SHIP TO L0CL=3Locl Id)-CSELECT 
SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP TO_LOCL=BID_TO_LOCL AND SHIP FROM LOCL IN 
<SUBSTRING(cont_offr_truc / 1 / PATINDEX('%;% , / cont offr truc)-1)))) AS 

VARCHAR)=CAST((Q.BID_PRCE+(SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP FROM LOCL IN 
<^™™ G <°° nt ^ AND SHIP TO LOCL=aLocl Id)-<SELECT 

SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=Q. BID TO LOCL AND SHIP FROM LOCL IN ~ 
(SUBSTRING(cont_of f r_t ruc,1 , PATINDEX( '%;%', cont_of f r_t ruc)-1 ) ) ) > AS VARCHAR) ) 

AS VARCHAR)+ 1 * 1 + 

PERS_ID=BIO_BUYR) AS VARCHAR) CASTCCSELECT PERS.COMP FROM PERSON WHERE 

FROM BID Q WHERE BID_SIZE=0 AND BID CONT=CONT ID AND 
REVERSE{SUBSTRING(REVERSE(cont_offr_truc) / 1,PATINDEX('%;%' / REVERSE(cont off? truc))-1))) NOT IN 
(SELECT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 
»!2!-ir BID - BUYR) AN ° (TRST - CONT=0 OR TRST_CONT=CONT_ID)) AND~(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT TRST FROM TRUST WHERE TRST COMP IN 

CSUBSTRIM6<cont_offr_tPUc / PATIN0EX<'X;%' / cont_offr:tPUc)+1 / PATIN0EX('X;%' / right(eont offr truc,len(c 

cC=»? Irc^" ATINDEX( %;% '' COnt - 0ffr - trl,C))) " 1)) AN0 <TRST_CONT=0 OR TRST_CONT=CONT ID)) ORDER BY 
caPRj DESC) 

END, 

cont_off r_truc, 

contJ>id_rai INCASE ISNULLCcont offr raU / , -V) 
WHEN '-1' THEN 

(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; ' + 
CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE BID SI7F=1 
AND BID_CONT=CONT_ID AND (BID_PRCE + (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE BID_SIZE 1 

cu^"c^u-^^ =3L ° C ^^ AN ° SHIP - TO -LOCL=SHIP_FROM_LOCL)-CSELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROMJ.OCL=aLocl_Id AND SHIP _TO_LOCL=BID_TO_LOCL) )=EXPR1 ) 

AS VARCHAR)+ 1 ; '+ 



~AST(BID_BUYR_COMP AS VARCHAR) 



uu»c euro c onu , „ ri , , FR °" (SELECT BID_CONT, BIDJ>RCE+ ( SELECT SHIP_PRCE RAIL FROM SHIPPING 

WHERE SHIP_FR0MJ_0CL=3Locl_Id AND SHIP_TO_LOCL=SHIP FROM_LOCL)-(SELECT SHIP PRCE RAIL FROM SHIPPING 
WHERE SHIP_FROMJ_OCL=SLocl_Id AND SHIP_TO_LOCL=BID_TO LOCL) AS EXPR1,BID BUYR COMP=(SELECT PERS COMP 
FROM PERSON WHERE PERS_ID=BIDJ3UYR) FROM BID WHERE BID_SIZE=1)Q WHERE BID_CONT=CONT_ID ORDER BY~ 
tXPRl DESC) 



EXPR1 DESC) 

ELSE 



(SELECT TOP 1 expr1=CAST(CBID_PRCE+(SELECT SHIP PRCE RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL IN (SUBSTRING(cont_of f r_rai 1,1 , PATINDEXC ,cont offr raU>-1>) AND 
SHIP_T0_L0CL=3Locl_Id)-<SELECT SHIP J>RCEJ*AIL FROM SHIPPING WHERE SHIP TO LOCL=BID TO~LOCL AND 
SHIP_FROM_LOCL IN ( SUBSTRING ( con t_offr_r a i 1,1 , PATINDEXC '%;%', cont_of f r_raTl)-1 ) ) ) )~AS~~VARCHAR)+ 1 - ' + 

CAST( ' 
AND BID_CONT=CONT ID AND (SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=1 

( REVER SEC SUB STR I NG( REVERSE (cont_offr_rai , PATINDEXC '%;%', REVERSE (cont offr rail))-1))) NOT IN 
(SELECT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS COMP FROM PERSON WHERE 
»!^-^ =BID - BUYR> AN ° <TRST - c °NT=0 OR TRST_CONT=CONT_ID)) AND~(SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR> NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRING(cont_of f r_rai I, PATINDEX( '%}%', cont_of f r_rai l)+1 , PATINDEXC 1 %;% ' , rightCcont offr rai I, len(c 
ont_offr_raU)-PATINDEX<'%;%' /C ont_offr_raU)))-1)) AND (TRST CONT=0 OR TRST CONT=CONT ID)) AND 
CAST((BID_PRCE+(SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FROM LOCL IN ~ 

cu?n S I!!^ G<C0nt - Offr - rai ^ AND SHIP TO LOCL=3Locl Id)-(SELECT 

SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL=BID_TO_LOCL AND SHIP FROM LOCL IN 

(SUBSTRING(cont_offr_raU / 1,PATINDEX('%;%',cont_offr_raiL)-1)))) AS ~ 

VARCHAR)=CAST((Q.BID_PRCE+(SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE SHIP FROM LOCL IN 
(SUBSTRING(cont_offr_raiL / 1,PATINDEX('% ~ ~ i\un_i_ui.L. in 



euTD BB „„ ft ;%',cont_offr_raiL)-1)) AND SHIP TO LOCL=aLocl Id)-(SELECT 

SHIPJ»RCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL=Q. BID_TO_LOCL AND SHIP FROM LOCL IN " 
( SUBSTRING C cont_of f r_rai 1, 1 , PATINDEXC ' %; % ' , cont_of f r_rai )))) AS VARCHAR) ) 

AS VARCHAR)+ 1 " 1 + 

PERS_IO SB ID_BUYR) AS VARCHAR) CASTUSELECT PERS_CO«P FROM PERSON WHERE 

FROM BID Q WHERE BID SIZE=1 AND BID CONT=CONT ID AND 
(REVERSE<SUBSTRIN6(REVERSE(cont_offr_raiL) / 1 / PATINDEXC'%;% , ,REVERSE(cont off? rail))-1))) NOT IN 
(SELECT TRSTJWTJTRST FROM TRUST WHERE TRST COMP=(SELECT PERS_CONP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND (TRST_CONT=0 OR TRST_CONT=CONT ID)) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BIDJ1UYR) NOT IN (SELECT DISTINCT TRST NOTJTRST FROM TRUST WHERE TRST COMP IN 
(SUBSTRING(cont_offr_rail,PAT^ offp rail , en(c 

cvdE? L) " PATIN0EX(,% /' % '/ cont - of ^_raU)))-1)) AND (TRST_CONT=0 OR TRST_CONT=CONT ID)) ORDER BY 

EXPR1 DESC) "~ — 

END, 
cont offr rail 



FROM 

(SELECT 

cont_id, 

cont_labl, 

cont'ordr, 

cont_offr_truc=(SELECT TOP 1 val=CAST(of f r_FROM_loc t AS VARCHAR)+ 1 ; 1 + 

CAST(offr_selr_comp AS VARCHAR)+ ' ; 1 + 
CASTCexpp AS VARCHAR)+ 1 ; ' + 
CASTC 

COF F R_P R CE + (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP FRO^L^JS^rERoS'Sc^'AHo 0 "" ""^ 
SHIP_TOJ_OCL=SLocl_Id))=EXPR AND OFFR_SIZE=0 AND OFFR_CONT=CONT~ID) 

"AS VARCHAR)+ , ;'+ 
CASTCoff r_bran_comp AS VARCHAR) 
cuto ™ FR0M <SELECT OFFR_FROMJ.OCL,EXPR=OFFR PRCE+(SELECT 

SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM LOCL=OFFR_FROM_LOCL AND 
SHIP_TO_LOCL=aLocL_Id) / OFFR_QTY,OFFR„SELR COMP=(SELECT PERS_COMP FROM PERSON WHERE 

m^^ ID=0FFR - SELR)/0FFR - BRAN - C0MP=CSELECT BRAN -COMP FROM BRAND WHERE BRAN ID=OFFR BRAN) FROM OFFER 
WHERE OFFR_SIZE=0 AND OFFR_CONT=CONT_ID)Q ORDER BY expr ASC), " 

cont_offr_rail=(SELECT TOP 1 val=CAST(of f r_FROM_locl AS VARCHAR)+'; '+ 

CAST(offr_selr_comp AS VARCHAR)+ ' ; ' + 
CASTCexpr AS VARCHARH' ; ' + 
CASTC 

(OF FR_PRCE+ (SELECT SHIP J>RCE_RAIL FROM SHIPPING WHERE SHIP_FWM L LOCL=OFF^^ 
SHIP_TO_LOCL=3Locl_Id))=EXPR AND OFFR_SI2E=1 AND OFFR_CONT=CONT ID) 

AS VARCHAR)+'; , + 
CASTCoff p_bran_corap AS VARCHAR) 
FR0H (SELECT OFFR_FROM LOCL, EXPR=OFFR PRCE+(SELECT 
SHIP_PRCEJ*AIL FROM SHIPPING WHERE SHIP_FROM LOCL=OF FR_FROM loCL AND 
SHIP_T0_L0CL=aLocl_Id) / 0FFRj2TY / 0FFR_SELR COMP=(SELECT PERS~COMP FROM PERSON WHERE 

PERS_ID=OFFR_SELR) , OFF R_BRANCOMP=( SELECT BRANJTOMP FROM BRAND WHERE BRAN ID=OFFR BRAN) FROM OFFER 
WHERE OFFR_SIZE=1 AND OFFR_CONT=CONT ID)Q ORDER BY expr ASC) uh-r_brah; FROM OFFER 

FROIi CONTRACT WHERE CONT_ID NOT IN (SELECT CUST CONT FROM Demo. . CUSTOM WHERE 
CUST_NOT_TRST=0 AND CUSTJ>ERS=aUser_Id) AND CONT_LABL LIKE 3Cont typ)Q0 ORDER BY CONT ORDR 
END — 

ELSE IF aUser_Type=' S' 



dEGIN 

SELECT 

cont_id, 

cont_labl, 

cont_bid_truc, 

cont_offr truc=CASE ISNULLCcont bid tpuc^-V) 
WHEN '-V THEN 

(SELECT TOP 1 vat=CASTCexpr1 AS VARCHARH ' ; ' + 
CASTC 

«. T ,r. n (SELECT SUM(OFFRJJTY) FROM OFFER WHERE 

OFFR_SIZE=0 AND OFFR_CONT=CONT_ID AND (OFFR PRCE-(SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_T0_L0CL=3Locl_Id AND SHIP_FROM_LOCL=SHIP_TOJ_OCL)+(SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=aLocl_Id AND SHIP_FROM_LOCL=OFFR_FROM_LOCL) )=EXPR1) 

AS VARCHAR)+ , ; , + 
CASTCOFFR SELR COMP AS VARCHAR) 

cutddt Mr* „u COC o UT « , FR0M (SELEC T OF FR_CONT, OF FR_PRCE-( SELECT SHIP PRCE TRUC FROM 

SHIPPING WHERE SHIP_T0_L0CL=3Loc l_Id AND SHIP FROM LOCL=SHIP TO LOCL) + (SELECT SHIP "PRCE _ TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL=aLocl_Id AND SHIPIfROMJ_OCL=OF FRIfR0M_LOCL) AS ~ 
EXPR1 / 0FFR_SELRJT0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=OFFR SELR) FROM OFFER WHERE 
OFFR_SIZE=0)Q WHERE OFFR_CONT=CONT ID ORDER BY EXPR1 ASC) 
ELSE 

(SELECT TOP 1 expr1=CAST<<OFFRJ>RCE-<SELECT SHIP PRCE TRUC FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRING ( con t_bid t puc, 1 ,PATINDEX( '%;%' /C ont bid tpuc)-1)) AND 
SHIP_FROM_LOCL=aLoct_Id)+(SELECT SHIPJ>RCE_TRUC FROM SHIPPING WHERE SHIP FROM~LOCL=OFFR FROM LOCL 
AND SHIP_TO_LOCL IN (SUBSTRING(cont_bid_tPuc 7 1 A PATINDEX( *%;%' , cont bid_truc)-1>>)) AS VARCHAR)+ 1 ■ ' - 

Ch<iTf ™ ' 



OFFR_SIZE=0 AND OFFR_CONT=CONT ID AND 



CAST( 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE 



(REVERSE(SUBSTRING(REVERSE(cont_bid_truc) / 1,PATINDEX('%;%',REVERSE(cont bid tpuc))-1))> NOT IN 
(SELECT TRSTJIOT_TRST FROM TRUST WHERE TRST_COMP=( SELECT PERS_C0MP FROM~P " 



PERS_ID=OFFR_SELR) AND (TRST_CONT=0 OR TRST_CONT=CONT ID) ) AND (SELECT BRAN COHP FROM BRAND WHERE 
BRAN_I D=OF FR_BRAN ) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP IN 
(REVERSE(SUBSTRIN6CREVERSE(cont_bid_truc) / 1 / PATINDEX('%;%' / REVERSECcont bid truc)>-1))) AND 
CTRST_CONT=0 OR TRST_CONT=CONT_ID) ) AND CASTC (OFF R_PRCE-( SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 



SHIP_TO_LOCL IN (SUBSTRING(cont Jndjtru C/ 1 ,PATINDEX( '%;% ' ,cont bid truc)-D) AND 

SHIP_FROM_LOCL=aLocl_Id)+(SELECT SHIP J>RCE_TRUC FROM SHIPPING WHERE SHIP FROM LOCL=OFFR FROM LOCL 
AND SHIP_TO_LOCL IN (SUBSTRING(cont_bid t ru C/ 1 , PATINDEXC '%;%', cont bid tFuc)-T)))) AS " 
VARCHAR)=CAST((Q.OFFRJ»RCE-(SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL IN 
(SUBSTRINGCcont^bid^truc^PATINDEXCX^'^ont^bid truc)~D) AND SHIP FROM~LOCL=aLoc L Id) + (SELECT 
SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM LOCL=Q. OFFR_FROM LOCL AND SHIP TO LOCL IN 
(SUBSTRING(cont_bid_truc / 1 / PATIN0EX( , %;%' / cont_bid - truc)-1)))) AS VARCHAR) )~ ~ 

AS VARCHAR)+';*+ 

— |^ v CASTCCSELECT PERSJTOMP FROM PERSON WHERE 

PERS_ID=OFFR_SELR) AS VARCHAR) 

FROM OFFER Q WHERE OFFR SIZE=0 AND OFFR CONT=CONT ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_bid_truc) / 1 / PATINDEX(*%;% , / REVERSE(cont bid truc))-1))> NOT IN 
(SELECT TRSTJIOTJTRST FROM TRUST WHERE TRST_COMP= ( SELECT PERS COMP FROM~PERSON WHERE 
PERS_ID=OFFR_SELR) AND (TRST_CONT=0 OR TRST_CONT=CONT ID)) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_ID=OFFRJ3RAN) NOT IN (SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP IN 

(REVERSECSUBSTRING(REVERSE(cont„bid_truc),1 / PATTNDEX( l %;% , / REVERSE(cont bid truc)>-1)>> AND 
(TRST_CONT=0 OR TRST_CONT=CONT ID)) ORDER BY EXPR1 ASC) ~ " 

END, 
cont_bid_rai I, 

cont_offr_rail=CASE ISNULL(cont J>id rai L, '-1 1 ) 
WHEN '-V THEN 

(SELECT TOP 1 val=CAST(expr1 AS VARCHARH'; ' + 
CAST( 

rtceB „„„ „ (SELECT SUM(OFFR QTY) FROM OFFER WHERE 

OFFR_SIZE=1 AND OFFR_CONT=CONT_ID AND (OF FR_PRCE-( SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=aLocl_Id AND SHIP_FROM_LOCL=SHIP_TO_LOCL)+(SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_T0_L0CL=3LocL_Id AND SHIP_FROM_LOCL=OFFR FROM L0CL))=EXPR1) 

~ AS VARCHAR)+ , ; , + 
CAST(OFFR_SELR_COMP AS VARCHAR) 
FROM (SELECT OFFR_CONT,OFFR_PRCE-( SELECT SHIP PRCE RAIL FROM 



-HIPPING WHERE SHIP_TOJ_OCL=SLoc l_Id AND SHIP_FROM_LOCL=:SHIP_TO_LOCL) + (SELECT SHIP PRCE RAIL FROM 
SHIPPING WHERE SHIP_T0_L0CL=3Loc I Id AND SHIP_FROMJ_OCL=OFFR_FROM_LOCL> AS ~ 
EXPR1,0FFR_SELR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=OFFR SELR) FROM OFFER WHERE 
OFFR_SIZE=1)Q WHERE OFFR_CONT=CONT_ID ORDER BY EXPR1 ASC) 
ELSE 

<SELECT TOP 1 expr1=CAST((OFFR_PRCE-(SELECT SHIP PRCE RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL IN (SUBSTRING(cont bid rai 1,1 , PATINDEX( '%;%>, cont bid raU>-1)> AND 
SHIP_FR0M_L0CL=3Locl_Id)+(SELECT SHIP J>RCE_RAIL FROM SHIPPING WHERE SHIP_FROM~LOCL=OFFR FROM LOCL 
AND SHIPJTO_LOCL IN ( SUBSTRING < con t_bid_rai 1,1 / PATINDEX( '%;%' , cont bid_rail)-T )) ) ) AS VARCHAR)* 1 * ' + 

CASTC 

(SELECT SUM(OFFR QTY) FROM OFFER WHERE 

OFFR_SIZE=1 AND OFFR_CONT=CONT_ID AND 

(R EVE RSE ( SUBS TRING( REV ERSE( con t_bid_rai l),1 , PATINDEX( '%;%', REVERSE (cont bid rait))-1))) NOT IN 
(SELECT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM*PERSON WHERE 
PERS_ID=:OFFR_SELR) AND (TRST,CONT=0 OR TRST_CONT=CONT_ID) ) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST COMP IN 
(REVERSE(SUBSTRING(REVERSE(cont_bid - raiO,1,PATINDEX('%;% , ,REVERSE(cont_bid_rail))-1))) AND 
(TRST_CONT=0 OR TRST_CONT=CONT_ID) ) AND CAST((OFFR PRCE-(SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_TOJ.OCL IN ( SUBSTRING ( con t_bid_rai l,1,PATINDEX( '%;%' , cont bid_rai L)-1 ) ) AND 

SHIP_FROMJ_OCL=aLocl_Id)+(SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP FROM LOCL=OFFR FROM LOCL 
AND SHIPJTOJ.OCL IN ( SUBSTRING (cont_bid_rai L,1 ,PATINDEX( 1 %;% 1 ,cont bid_rai l)-T) ) ) ) AS " 
VARCHAR)=CAST((Q.OFFR_PRCE-(SELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP TO_LOCL IN 
(SUBSTRING(cont_bid_raiL,1,PATINDEX( , %;%',cont_bid_rail)-D) AND SHIP FROM"LOCL=SLocl Id)+(SELECT 
SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP FROM LOCL=Q.OFFR FROM LOCL AND SHIP TO LOCL IN 
(SUBSTRINGUont " ~ "* " 



^id.rail.^PATINDEXC^^^^ont^bid^raiD-D))) AS VARCHAR) ) 

AS VARCHAR)+';'+ 

dcoc T « CAST((SELECT PERS_COMP FROM PERSON WHERE 

PERS_ID=OFFR_SELR) AS VARCHAR) 

FROM OFFER Q WHERE OFFR_SIZE=1 AND OFFR CONT=CONT ID AND 
(REVERSE (SUBSTRING (REVERSE (con t_bid_rai L),1 ,PATINDEX( '%;%' , REVERSE (con"t bid rail))-!))) NOT IN 
(SELECT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM~PERSON WHERE 
PERS_ID=OFFR_SELR) AND (TRST_C0NT=0 OR TRST_CONT=CONT ID)) AND (SELECT BRAN COMP FROM BRAND WHERE 
BRAN_I D=0 F F R_BRAN ) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP IN 

REVERSE(SUBSTRING(REVERSE(cont_bid_raU) / 1 / PATINDEX('%;% , / REVERSE(cont bid raTl»-1») AND 
(TRST_CONT=0 OR TRST_CONT=CONT_ID) ) ORDER BY EXPR1 ASC) " " 

END 

FROM 

(SELECT 

cont^id, 

cont_LabL, 

conl^ordr, 



contJ)idjtruc=(SELECT TOP 1 val=CASTCbid_to_LocL AS VARCHAR)+' ; ' + 

CAST(expr~AS~VARCHAR)+'; '+ 
CASK 

< SELECT SUMCBID QTY) FROM BID WHERE 
(8ID_PRCE-(SELECT SHIP J>RCE JTRUC FROM SHIPPING WHERE SHIP TO LOCL=BID TO LOCL AND 
SHIP_FROM_LOCL=aLocl_Id))=EXPR AND BID_SIZE=0 AND BID_CONT=CONT ID) ~ ~ 

AS VARCHAR~)+ I ;' + 
CAST(bidJ>uyr_comp AS VARCHAR) 
FROM (SELECT BID_TO_LOCL, EXPR=BID PRCE-(SELECT SHIP PRCE TRUC 
FROM SHIPPING WHERE SHIP_TO_LOCL=BID TO LOCL AND " " 

SHIP_FROM_LOCL=aLoct_Id),BID_QTY / BIDlBUYR_COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) 
FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID)Q ORDER BY expr DESC), 

contJ>id_raU=(SELECT~TOP 1 val=CAST(bid to_tocL AS VARCHARH 1 ; ' + 

CAST(expr~AS VARCHAR)+* ; '+ 
CASTC 

(SELECT SUMCBID QTY) FROM BID WHERE 
(BID_PRCE-(SELECT SHIPJ>RCE RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID TO LOCL AND 
SHIP_FR0M_L0CL=3Locl_Id))=EXPR AND BID_SIZE=1 AND BID_CONT=CONT_ID) " 

AS VARCHAR)+'; I + 
CASTCbid buyr_comp AS VARCHAR) 
FROM (SELECT BIDJTOJ.OCL, EXPR=BID PRCE-(SELECT SHIP PRCE RAIL 
FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO LOCL AND " " 

SHIP - .FROM - LOCL=aLocl_Id),BID_QTY / BID_BUYR - COMP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) 
FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID)Q ORDER BY expr DESC) 

FROM CONTRACT WHERE CONT ID~NOT IN (SELECT CUST_CONT FROM Demo.. CUSTOM WHERE 
CUST_NOT_TRST=0 AND CUST_PERS=aUser_Id) AND CONT LABL LIKE SCont typ)QO ORDER BY CONT ORDR 
END ~ 
RETURN 1 



SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



SET QUOTED_IDENTIFIER ON SET ANSI NULLS ON 
GO 



CREATE Procedure spMail 
3To varchar( 



50) = NULL, 
asubject varchar(IOO) = NULL, 
aMessage varchar<8000) = NULL 
AS 

/************************************^^ 

** File: spHail.sql 
** Name: spHail 

** Desc: sproc for sending mail 

** 

** 

********************************^ 
** Change History 

******************************************* 
** Date: Author: Description: 

** 11-27-2000 Gerald Colin Send Mail for ThePlasticsExchange.com in HTML Format 
** 

**************************************^^ 

DECLARE aobjMail int, ' 
ahr int, 
3Q1 varchar(200), 
SQ2 varchar(200), 
3Q3 varcharC200), 
3Q4 varchar(200), 
3Q5 varcharC200), 



Ssource varchar (2000), 
adescription varchar (2000) , 
aoutput varchar(2000) 
EXEC ahr a master.. sp OACreate 1 TPEHai I . NewHai 1 1 , aobjHail OUT 
IF ahrOO 
BEGIN 
PRINT * ErroM ' 
RETURN 

END 

—EXEC ahr = master. ,sp_OAHethod aobjHail, 'Inif, 'geraldatheplasticsexchange. com 1 , 
'geraldatheplasticsexchange. com 1 , 'geraldatheplasticsexchange. com' , 1 ' 'TOTO* 
SET 3Q1 = 'Asterix' 

SET 3Q2 = 'geraldatheplasticsexchange.com' 

SET 3Q3 = 'geraldatheplasticsexchange. com 1 

SET 3QA = 'geraldatheplasticsexchange. com' 

SET 3Q5 = 'geraldatheplasticsexchange.com' 

EXEC Shr = master. .sp_0AMet hod aobjHail, 'Init', NULL, 

aoi , aQ2,ao3,aQ4 ,ao5 

EXEC ahr = sp_OAGetErrorInf o aobjHail, asource OUT, adescription OUT 

IF 3hr = 0 

BEGIN 

SELECT aoutput = 1 Source: ' + asource 
PRINT aoutput 

SELECT aoutput = 1 Description: ' + adescription 

PRINT aoutput 
END 
ELSE 
BEGIN 

PRINT ' sp_0AGetErrorInfo failed. 1 
RETURN 
END 

IF ahrOO 
BEGIN 

PRINT ' Error 978 ' 

RETURN 
END 

EXEC ahr = master. .sp_0AHethod aobjHail, 'Send' 

IF ahrOO 

BEGIN 

PRINT 1 Error 3 ' 

RETURN 
END 

EXEC ahr = master.. sp OADestroy aobjMail 

IF ahrOO 

BEGIN 

PRINT * Error 3 ' 

RETURN 
END 



/*EXEC ahr = master.. sp OACreate ' CDONTS.NewMai I ' SobiMail OUT 

IF ahrOO 

BEGIN 

EXEC master. .sp_displayoaerrorinfo SobjMail, ahr 
RETURN 

END 

EXEC Shr = master.. sp OASetProperty aobjMail, 'From' 'TEST* 

IF ahrOO 

BEGIN 

EXEC master. . sp_di splayoaerrorinf o aobjHait, ahr 
RETURN 
END 

EXEC ahr = master.. sp OASetProperty aobjMail, 'To' 3To 

IF ahrOO 

BEGIN 

EXEC master. .sp_displayoaerrorinfo 3objMail, ahr 
RETURN 
END 

EXEC ahr = master. . sp_OASetProperty aobjMail, 'Subject', asubject 

IF ahrOO 

BEGIN 

EXEC master. .sp_displayoaerrorinfo aobjMail, ahr 



END 

EXEC ahr = master .. sp_OASetProperty aobjMail, 'Body' aMessaqe 

IF ahrOO 

BEGIN 

EXEC master. . sp_dispLayoaerrorinfo aobjMail, ahr 
END 

EXEC ahr = master. . sp_OASetProperty aobjMail, ' BodyFormat ' , 'O 1 

IF ahrOO 

BEGIN 

EXEC master.. sp displayoaerrorinf o aobjMail, ahr 
END 

EXEC ahr = master. . sp_OASetProperty aobjMail, ' Mai IFormat 1 , '0' 

IF ahrOO 

BEGIN 

EXEC master. . sp_displayoaerrorinf o aobjMail, ahr 
END 

EXEC ahr = master.. sp OASetProperty aobjMail, 'Importance' '1' 

IF ahrOO 

BEGIN 

EXEC master.. sp di splayoaerrorinfo aobjMail, ahr 
END 

EXEC 3hr = master. .sp_0AMethod aobjMail, 'Send' 

IF ahrOO 

BEGIN 

EXEC master.. sp displayoaerrorinfo aobjMail, ahr 
RETURN 
END 

EXEC ahr = master.. sp OADestroy aobjMail 

IF ahrOO 

BEGIN 

EXEC master. . sp_displayoaerrorinf o aobjMail, ahr 
RETURN 
END 

*/ 



GO 

SET QUOTED^ IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE spNews AS 

SELECT NEWS_ID,NEWS_DATE,NEWS_LABL FROM NEWS ORDER BY NEWS DATE DESC,NEWS ID DESC 
RETURN 1 " 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spOAddLoc 
acomp varchardO), 
aCompTyp char(l) 

AS 

/********************^ 
** File: spPlace.sql 
** Name: spPLace 
** Desc: Place List 
** 

********************* 



**********************^ 



** Change History 

********************************************* 

** Date: Author: Description: 

** 12/19/2000 Patrick Zaouter Place List 

** 

*********************************^ 

IF aCompTyp='P' ' 

SELECT PLAC_ID,EXPR=ISNULL(PLAC_LABL, (SELECT LOCL CTRY+ 1 / 1 +L0CL STAT+ 1 , '+L0CL_CITY FROM LOCALITY 
WHERE LOCL_ID=PLAC_LOCL)) / (SELECT COUNTC*) FROM BID WHERE BID BUYR COHP=3Comp AND BID TO=PLAC ID) 
FROM PLACE WHERE PLAC COMP=aComp AND PLAC ENBL=1 AND PLAC TYPE= 1 D ' ~0RDER BY EXPR 
ELSE 

SELECT PLAC_ID / EXPR=ISNULL(PLAC_LABL / (SELECT LOCL CTRY+ ' / 1 +L0CL_STAT+ 1 , '+LOCL CITY FROM LOCALITY 
WHERE LOCL_ID=PLAC_LOCL)),(SELECT COUNT(*) FROM OFFER WHERE OFFR SELR C0MP=3Comp AND 
OFFR_FROM=PLAC_ID) FROM PLACE WHERE PLAC_COMP=aComp AND PLAC_ENBL=1 AND PLAC_TYPE= 1 S ' ORDER BY EXPR 

RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spOAddLocTemp 
SComp varcharOO) 
AS 

/******************************************************** t *^ A ^**^ t ^^^ jt5t ^^ 

** File: spPlace.sql 

** Name: spPlace 

** Desc: Temp Place List 

** 

***************************^ 
** Change History 

A****************************************************************************** 

** Date: Author: Description: 

** 12/19/2000 Patrick Zaouter Temp Place List 

** 

***************************^ 

SELECT TMP_PLAC_ID,EXPR=ISNULL(TMP_PLAC LABL, TMP_PLAC_CTRY+ 1 / 1 +TMP_PLAC STAT+ 1 , 1 +TMP_PLAC_CITY) 
FROM TMP_PLACE WHERE TMPJ>LAC_COMP IN (SELECT C0MP_ID FROM COMPANY WHERE COMP REG=1 AND COMP NAME IN 
(SELECT COMP_NAME FROM COMPANY WHERE COMP_ID=aComp) ) ORDER BY EXPR 
RETURN 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED 



IDENTIFIER OFF SET ANSI NULLS ON 

GO 



CREATE Procedure spOEFi Iters 

acompld numeric, 

aCompTyp varchar(2), 

aPersTyp varchar(2), 

acase varchar(8) = ' Contract' , 

aid varchardO) ='0' 
AS 

IF 3Case=* Contract' 
IF aid= , O l 
IF aCompTyp='P' OR 3PersTyp= 1 OP ' 
SELECT CONT_ID,CONT_LABL,CASE (SELECT COUNTW FROM BID WHERE BID CONT=CONT ID AND 
BID_BUYR_COMP=aCompId) WHEN 0 THEN (SELECT C0UNT(*) FROM COMPANY WHERE POWER(27cONT ID-1 )&(SELECT 
COMPJ>REF FROM COMPANY WHERE COMP ID=aCompId)<>0 AND (SELECT COUNT(*) FROM TRUST WHERE 



TRST_C0MP=3CompId AND ISNULL(TRST__C0NT&P0WER(2, CONT ID-1 ),0)<>0)=0) ELSE >2' END FROM CONTRACT ORDER 
BY CONT_ORDR 

-- SELECT CONT_ID, C0NT_LABL, CASE (SELECT COUNTC*) FROM BID WHERE BID CONT=CONT ID AND 
BID_BUYR„COMP=aCompId) WHEN 0 THEN (SELECT COUNTW FROM TRUST WHERE'tRST COMP=aCompId AND 
TRST_CONT=CONT_ID AND TRST_NOT_TRST=0) ELSE l 2' END FROM CONTRACT ORDER BY CONT ORDR 
ELSE IF aPersTyp= , OS 1 

SELECT CONT^ID/CONT^LABL, CASE (SELECT COUNT(*) FROM OFFER WHERE OFFR CONT=CONT ID AND 
OFFR_SELR_COMP=aCompId) WHEN 0 THEN (SELECT COUNTW FROM COMPANY WHERE~POWER(2, CONT ID-1 )&(SELECT 
COMP_PREF FROM COMPANY WHERE COMP_ID=aCompId)<>0 AND (SELECT COUNTW FROM TRUST WHERE 
TRST_COMP=aCompId AND ISNULL(TRST_C0NT&P0WER(2, CONT ID-1) ,0)<>0)=0) ELSE *2' END FROM CONTRACT ORDER 
BY CONT_ORDR 

SELECT CONT_ID,CONT_LABL,CASE (SELECT COUNTW FROM OFFER WHERE OFFR_CONT=CONT ID AND 
OFFR_SELR_COMP=aCompId) WHEN 0 THEN (SELECT COUNTW FROM TRUST WHERE TRST_C0MP=3CoiiipId AND 
TRST_CONT=CONT_ID AND TRST_NOT TRST=0) ELSE , 2' END FROM CONTRACT ORDER BY CONT ORDR 
ELSE 

SELECT CONT_ID,CONT_LABL,CASE (SELECT COUNT(*) FROM OFFER WHERE OFFR_CONT=CONT ID AND 
OFFR_SELR_COMP=aCompId) WHEN 0 THEN (SELECT COUNT(*) FROM COMPANY WHERE P0WERC2,C0NT ID-1 )&(SELECT 
COMPJ>REF FROM COMPANY WHERE COMP_ID=aCompId)<>0 AND (SELECT COUNT(*> FROM TRUST WHERE 
TRST_COMP=aCompId AND ISNULL(TRST_CONT&POWER(2 / CONT_ID-1 ) / 0)<>0)=0) ELSE »2' END FROM CONTRACT WHERE 
CONT_ID IN (SELECT DISTINCT BRAN_CONT FROM BRAND WHERE BRAN COMP=aCompId) ORDER BY CONT ORDR 

SELECT CONT_ID,CONT_LABL,CASE (SELECT COUNTW FROM OFFER WHERE OFFR_CONT=CONT ID AND 
OFFR_SELR__COMP=aCompId) WHEN 0 THEN (SELECT COUNTS) FROM TRUST WHERE TRST C0MP=3CompId 'AND 
TRST_CONT=CONT_ID AND TRST_NOTJTRST=0) ELSE '2' END FROM CONTRACT WHERE CONT ID IN (SELECT DISTINCT 
BRAN_CONT FROM BRAND WHERE BRAN C0MP=3CompId) ORDER BY CONT ORDR 
ELSE 

IF 3CompTyp= ' P 1 OR aCompTyp=' D' 
SELECT CONT_ID,CONTJ_ABL,1-(SELECT COUNTW FROM TRUST WHERE TRST COMP=aCompId AND 
TRST_C0NT8P0WER(2 / C0NT_ID-1)O0 AND TRST_N0T_TRST=3Id) FROM CONTRACT~ORDER BY CONT_ORDR 
SELECT CONT_ID,CONTJ_ABL,1-(SELECT COUNTW FROM TRUST WHERE TRST C0MP=3CompId AND 
TRST_CONT=CONT_ID AND TRST_N0T_TRST=3Id) FROM CONTRACT ORDER BY CONT ORDR 
ELSE 

SELECT CONT_ID,CONTJ.ABL,1-<SELECT COUNTW FROM TRUST WHERE TRST COMP=aCompId AND 
TRST_CONT&POWER(2,CONT_ID-1)<>0 AND TRST_N0T_TRST=3Id) FROM CONTRACT WHERE CONT ID IN (SELECT 
DISTINCT BRAN ~ 



tONT FROM BRAND WHERE BRAN JTOMP^aCompId ) ORDER BY CONT ORDR 
SELECT CONT_ID,CONTJ_ABL / 1-(SELECT COUNT(*) FROM TRUST WHERE TRST_COMP=aCompId AND 
TRST_CONT=CONT_ID AND TRST_NOT_TRST=aid) FROM CONTRACT WHERE CONT_ID IN < SELECT DISTINCT BRAN CONT 
FROM BRAND WHERE BRAN COMP=aCotnpId) ORDER BY CONT ORDR 
ELSE 
IF aid= , O l 
IF aCompTyp='P' OR 3PersTyp= 1 OP ' 
SELECT EXPR,COMP_NAME, 1-CSELECT COUNTC*) FROM TRUST WHERE TRST_COMP=aCompId AND 
TRST_NOT_TRST=EXPR) FROM (SELECT COMP_NAME, EXPR=MAX(COMP_ID) FROM COMPANY WHERE COMP TYPEO'P' AND 
COMP_ID IN (SELECT DISTINCT BRAN_COMP FROM BRAND) GROUP BY COMP NAME)Q ORDER BY COMP NAME 

SELECT EXPR,COMP_NAME / 1-(SELECT COUNTC*) FROM TRUST WHERE TRST COMP=aCompId AND " 
TRST_NOTJTRST=EXPR AND TRST_CONT=0) FROM (SELECT COMP NAME, EXPR=MAX(COMP — ID) FROM COMPANY WHERE 
COMPJTYPEO'P' AND COMP_ID IN (SELECT DISTINCT BRAN COMP FROM BRAND) GROUP BY COMP NAME)Q ORDER BY 
COMP NAME 
ELSE 

SELECT COMP_ID / COMP_NAME,l-(SELECT COUNTC*) FROM TRUST WHERE TRST.COMP=aCompId AND 
TRST_NOT_TRST=COMP_ID) FROM COMPANY WHERE COMP_TYPE= ' P 1 AND COMP_REG=1 ORDER BY COMP NAME 
-- SELECT COMP^D^OMPJIAME/I-CSELECT COUNTC*) FROM TRUST WHERE TRST_COMP=aCompId AND 
TRST_ NOTJTRST~COMP_ID AND TRSTJTONT=0) FROM COMPANY WHERE COMP TYPE='P' AND COMP REG=1 ORDER BY 
COMP_NAME 
ELSE 

IF aCon)pTyp= I P" OR 3PersTyp= 1 OP ' 
SELECT EXPR^OMPJIAMEJ-CSELECT COUNTC*) FROM TRUST WHERE POWER(2,aid-1 )&TRST CONTOO AND 
TRST_COMP=aCompId AND TRST_NOT_TRST=EXPR) FROM (SELECT COMPJIAME, EXPR=MAX(COMP_ID) FROM COMPANY 
WHERE COMPJTYPEO'P' AND COMP_ID IN (SELECT DISTINCT BRAN COMP FROM BRAND) GROUP BY COMP NAME)Q 
ORDER BY COMP_NAME 

SELECT EXPR / COMP_NAME,1-(SELECT COUNTC*) FROM TRUST WHERE TRST_C0MP=3CompId AND 
TRST_NOT_TRST=EXPR AND TRST_CONT=aid) FROM (SELECT COMP_NAME, EXPR=MAX(COMP_ID) FROM COMPANY WHERE 
COMPJTYPEO'P 1 AND COMP.ID IN (SELECT DISTINCT BRAN COMP FROM BRAND) GROUP BY COMP NAME)Q ORDER BY 
COMP_NAME 
ELSE 

SELECT COMP_ID,COMP_NAME / 1-(SELECT COUNT(*) FROM TRUST WHERE P0WER(2 / 3Id-1)STRST CONTOO AND 
TRST_COMP=aCompId AND TRST_NO 



BY COMP NAME - T_TRST=COMP_ID> FROM COMPANY WHERE COMP_TYPE= 1 P ' AND COMP_REG=1 ORDER 

SELECT C0MP_ID, C0MP_NAME / 1-(SELECT COUNTC*) FROM TRUST WHERE TRST COMP=aCompId AND 
TRST_NOT_TRST=COMP_ID AND TRST_CONT=SId) FROM COMPANY WHERE COMP_TYPE= 1 P ' AND COMP REG=1 ORDER BY 
COMP NAME ~ 
RETURN 



SELECT 

ORDR_ID / ORDR - SHIP / VARDATE,ORDR_BI0,VARSIZE, VARCONTRACT, VAR8RAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR < _BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR^ID/ORDR^SHIP, LEFT (CONVERT(VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE/ORDR^BID, CAST(ORDR_QTY AS VARCHAR)+' '+CSELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARAj:ODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT / ORDR_QTY*?SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR BUYR RATE,ORDR BUYR_PAID, ( SELECT 
LOCL_CITY+*, '+LOCL.STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE y ORDR_GENE / ORDR_TO / OFEDR_WGHT FROM ORDERS WHERE ORDR_BUYR=SPersId AND 
Month (3Date)=Month(0RDR_DATE) AND YearODate)=Year(ORDR DATE) )Q WHERE (VARBRAND LIKE '5iaSearch%* AND 
ORDR_GENE=1 OR 'Generic' LIKE *%aSearch%' AND ORDR GENE=0) ORDER BY ORDR ID DESC 

ELSE 

BEGIN 

— Determeiner si c ASC ou DESC — > peux pas mettre La variable car y veut pas :( 
IF 30rder='ASC' 
IF SCol^'ORDR^SHIP 1 SELECT 
0RDR_ID,ORDR_SHIP / VARDATE / ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+0RDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONTJ.ABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORD R_SH I P_PRCE AS 
VARPRICE, ISNULL(ORDR_ 



W6HT / 0RDR - QTY*( SELECT CASK PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE, ORDR BUYR_PAID, ( SELECT 
LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO, ORDR JJGHT FROM ORDERS WHERE ORDR BUYR=SPersId AND 
MonthODate)=Month(ORDR_DATE) AND Year(3Date)=Year (ORDR DATE) )Q WHERE (VARBRAND LIKE '%aSearch%' AND 
ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%* AND ORDR GENE=0) ORDER BY ORDR SHIP ASC 

ELSE IF 3Col= 1 VARDATE ' SELECT 
ORDR^ID^RDR^SHIP^ARDATE^RDR^BID^ARSIZE/VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ) ,VARP LACE, ORDR_GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_S HIP, LEFT ( CONVERT (VAR CHAR, ORDR DATE,101),5) AS 
VARDATE / ORDR - BID / CAST(ORDR_QTY AS VARCHAR)+' ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA J4AME=' NAME 1 AND PARA_CODE=ORDR_SIZE> AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*7s ELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 'SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE,0RD n 



n BUYR_PAID, (SELECT 

LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE, ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
MonthODate)=Month(ORDR_DATE) AND Year(aDate)=Year(ORDRJ)ATE) )Q WHERE (VARBRAND LIKE '/SaSearch/'. 1 AND 
0RDR_GENE=1 OR 'Generic 1 LIKE 'XSSearchX* AND ORDR_GENE=0) ORDER BY VARDATE ASC 

ELSE IF aCol^ORDR^BID' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1), VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT(VARCHAR,ORDR_DATE / 101 ) , 5) AS 
VARDATE, ORD R_B ID, CAST (ORDR_QTY AS VARCHARH ' *+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_C0DE=ORDR SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
C0NT_ID=ORDR_CONT AND CONT ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*TsELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE' AND PARA CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE, ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+* / , +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,0RDRJ3ENE,0RDR_T0,0RDR_WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year (3Date7=Year (ORDR DATE))Q WHERE (VARBRAND LIKE '%aSearch%' AND 
0RDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0) ORDER BY ORDR_BID ASC 

ELSE IF aCol^'VARWGHT* SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VA 



„R8RAND,VARPRICE / VARWGHT*VARPRICE*ISNULL(0RD 
R_BUYRJ*ATE,1)+0RDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(0RDR BUYR RATE,1 ) , VARPLACE / ORDR_GEN£ / ORDR_WGHT 
,ORDR_T0 FROM (SELECT ORDR_ID / ORDR_SHIP, LEFT(CONVERT(VARCHAR / ORDR_DATE, 101 ) ,5) AS 
VAR DATE, ORDR_BID, CAST (ORDR_QTY AS VARCHAR)+ I '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA JIAME=' NAME' AND PARA„CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN> AS VARBRAND,ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE,ISNULL(ORDR_WGHT / QRDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_C0DE=ORDR_SIZE> ) as VARWGHT,ORDR BUYR_RATE / ORDR BUYR_PAID, (SELECT 
LOCL_CITY+', 1 +LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 



PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
Month(aDate)=Month(ORDRJ)ATE) AND Year(3Date)=Year(0RDR DATE) )Q WHERE (VARBRAND LIKE '%aSearch%' AND 
ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0) ORDER BY VARWGHT ASC 

ELSE IF 3CoL= 1 VARBRAND 1 SELECT 
0RDR_ID / 0RDR„SHIP / VARDATE / ORDR_BID / VARSIZE / VARCONTRACT / VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ*ATE,1)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE, 1 ) , VARPLACE,ORDR GENE, ORDR WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT( CONVERT (VARCHAR, ORDR DATE,101 ),5) AS 
VARDATE,ORDR_8ID,CAST(ORDR_QTY AS VARCHAR)+' '+CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*7sELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR SIZE) ) as VARWGHT, ORDR BUYR RATE, ORDR_BUYRJ>AID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=( SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND YearODate)=Year (ORDR_DATE) )Q WHERE (VARBRAND LIKE 'SSaSeardtf 1 AND 
ORDRJ5ENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR GENE=0) ORDER BY VARBRAND ASC 
ELSE IF aCol='VARPRICE' SELECT 

ORDR_ID,ORDR_SHIP,VARDATE,ORDR - BID,VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1),VARPLACE,ORDR_GENE / ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_I D,ORDR_SH I P, LEFT( CONVERT (VARCHAR, ORDR DATE,101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIPJ>RCE AS 

VARPRICE, ISNULL(0RDR_WGHT,0RDRJ3TY*(SELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA NAME='SIZ 



E 1 AND PARA_CODE=OR0R_SIZE)) as VARW6HT / 0RDR_BUYR RATE,ORDR BUYR_PAID, (SELECT 
LOCL_CITY+ l , '+LOCL_STAT FROM LOCALITY WHERE LOCL I0=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_T0)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(3Date)=Year(0RDR_DATE) )Q WHERE (VARBRAND LIKE , %aSearch% 1 AND 
ORDRJ5ENE=1 OR 'Generic 1 LIKE '%aSearch%' AND ORDR_GENE=0) ORDER BY VARPRICE ASC 

ELSE IF aCol='VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ I D,ORDR_SH IP, LEFT ( CONVERT (VARCHAR, ORDR DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+* '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, I SNULL(0RDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+ , / «+L0CL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR__GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
Month(aDate)=Month(ORDR_DATE) AND YearQDate)=Year(ORDR DATE) )Q WHERE (VARBRAND LIKE '%aSearch%' AND 
ORDRJ3EN£=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0) ORDER BY VARPLACE ASC 
ELSE 

IF 3Col= , 0RDR_SHIP' SELECT 
ORDR_ID,0RDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ?ATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) , VARPLACE,ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP,LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME f AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR CONT A" 



ND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRANJiAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE I AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR RATE, ORDR_BUYR_PAID, (SELECT 
LOCL.CITY+ 1 , '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month ODate)=Month(ORDR_DATE) AND Year (3Date)=Year(0RDR DATE))Q WHERE (VARBRAND LIKE , %aSearch% 1 AND 
ORDRJ3ENE=1 OR 'Generic' LIKE *%aSearch%' AND ORDR GENE=0) ORDER BY ORDR_SHIP DESC 

ELSE IF 3Col= 1 VARDATE ' SELECT 
ORDR_ID,ORDR_SH IP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR BUYR PAID, VARWGHT*VARP RICE* I SNULL (ORDR BUYR_RATE, 1) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT (VAR CHAR, ORDR DATE, 101), 5) AS 
VARDATE, 0RDR_BID,CAST(0RDRJ5TY AS VARCHAR)+» '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE,ISNULL(ORDR WGHT,ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE ( AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR__BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL CITY+ 1 , *+LOCL STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 



PLAC_ID=ORDRJTO)) AS VARPLACE,0RDRJ5ENE,0RDR_T0,0RDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(aDate)=Month(ORDRJ)ATE) AND Year(SDate)=Year (ORDR DATE) )Q WHERE (VARBRAND LIKE '%3Search%' AND 
ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR GENE^O) ORDER BY VARDATE DESC 
ELSE IF aCol='ORDR_BID' SELECT 

ORDR„ID / ORDR - SHIP / VARDATE / ORDR_BID / VARSIZE,VARCONTRACT / VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ) ,VAR PLACE, ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP,LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ) ,5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 ' +(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT / ORDR QTY*(SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME =I SIZE' AND PARA_CODE=ORDR SIZE)) as VARWGHT,0RDR_8UYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month (3Date)=Month( OR DR_DATE) AND Year QDate)=Year (ORDR DATE) )Q WHERE (VARBRAND LIKE '%aSearch%' AND 
ORDRJ3ENE=1 OR 'Generic 1 LIKE '%aSearch%' AND ORDRJ3ENE=0) ORDER BY ORDR_BID DESC 

ELSE IF aCol =l VARWGHT' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,0RDR_SHIP, LEFT (CONVERT (VAR CHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID^ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID-ORDR BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP PRCE AS 
VARPRICE, ISNULL(ORDR 



WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE^RDRJBENE^ORDRJTO/ORDRJJGHT FROM ORDERS WHERE ORDR BUYR=SPersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year(3Date)=Year (ORDRJ)ATE) )Q WHERE (VARBRAND LIKE , %aSearch%» AND 
ORDR_GENE=1 OR 'Generic' LIKE '%3Search%' AND ORDR GENE=0) ORDER BY VARWGHT DESC 

ELSE IF 3CoL= 1 VARBRAND 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR SHIP, LEFT(CONVERT(VARCHAR,ORDR_DATE,101 ),5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA JIAME=' NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN> AS VARBRAND,ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*7sELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+', «+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR J3ENE,ORDR_TO,ORDR WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month ODate)=Month(ORDR_DATE) AND Year(aDate)=Year(ORDRJ>ATE) )Q WHERE (VARBRAND LIKE '%aSearch%' AND 
0RDR_GENE=1 OR 'Generic 1 LIKE '%aSearch%' AND ORDR_GENE=0) ORDER BY VARBRAND DESC 

ELSE IF 3CoL='VARPRICE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1),VARPLACE,ORDR_GENE,ORDR_WGHT 



,ORDR__TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR / ORDR_DATE / 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' '+CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= aNum) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDRJ>RCE+ORDR_SHIP_PRCE AS 

VARPRICE,ISNULL(ORDR_WGHT,ORDR_QTY*7sELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE I AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR RATE, ORDR BUYR_PAID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE, ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=SJPersId AND 
MonthODate)=Month(ORDR_DATE) AND Year(QDate)=Year(ORDR_DATE) )Q WHERE (VARBRAND LIKE l %aSearch%' AND 
ORDRJ3ENE=1 OR 1 Generic' LIKE '%3Search%' AND ORDR_GENE=0) ORDER BY VARPRICE DESC 

ELSE IF aCol^'VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP, VAR DATE, ORDR_BID,VA RSI ZE, VARCONTRACT, VARBRAND, VARPR ICE, VARWGHT*VARPR ICE* I SNULL(ORD 
R_BUYR_RATE,1 )+ORD R_BUYR_PA ID ,VARWGHT*VARPR ICE* I SNULL(ORD R_BUYR_RATE,1 ), VARPLACE, ORDR_GENE, OR DR_WGHT 
,0RDR_T0 FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT (VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_GTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE I AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL__STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR GENE, ORDR TO, ORDR WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 



Month(aDate)=Month(ORDR_DATE) AND Year(3Date)=Year (ORDR DATE) )Q WHERE CVARBRAND LIKE '%aSearch%* AND 
ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0) ORDER BY VARPLACE DESC 
END 
END 
END 

ELSE IF aSCo^'ALL' 
BEGIN 
— <BASE> 
IF aNum IS NULL 
BEGIN 
IF aCot IS NULL 
SELECT 

ORDR__ID / ORDR_SHIP / VARDATE/ORDR^BID, VARSIZE, VARCONTRACT / VARBRAND / VARPRICE, VARMGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ), VARPLACE, ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORD R_I D , ORD R_SH I P, LEFT (CONVERT (VAR CHAR, ORDR DATE 7 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)-*- ' ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN^NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE / ORDR_BUYR_PAID, (SELECT LOCL_CITY+' / '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE, ORDR_GENE,ORDR_TO / ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(0RDR DATE) AND 

YearODate)=Year(ORDR_DATE))Q WHERE VARDATE LIKE '%aSearch%' OR~ORDR BID LIKE , %aSearch%' AND 
ORDR_BID<>0 OR * B' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0 OR VARSIZE LIKE 
'%asearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '/SaSearch%' OR VARBRAND LIKE l %Search%' 
AND ORDR_GENE=1 OR 'Generic* LIKE , %aSearch%' AND ORDR_GENE=0 OR ORDR_SHIP= ' 0 ' AND 'Inventory' LIKE 
'%asearch%' OR ORDR_SHIP= ' 1 1 AND 'Dispatched' LIKE '%3Search%' OR ORDR SHIP='2' AND 'En route* LIKE 
, %aSearch%* OR ORDR_SHIP= 1 3 1 AND 'Delivered' LIKE '%aSearch%' ORDER BY~ORDR ID DESC 
ELSE 
BEGIN 

— Determeiner si c ASC ou DESC — > peu 



x pas mettre La variable car y veut pas :( 

IF 30rder='ASC 
IF aCol='ORDR_SHIP> SELECT 
ORDR_ID, ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE* I SNULL(ORD 
R_BUYRJ?ATE,1)+0RDR_BUYRJ>AID,VARUGHT*VARPRICE*ISNULL(0RDR BUYR_RATE, 1 ),VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR__ID,ORDR_SHIP, LEFT (CONVERT (VAR CHAR, ORDR DATE, 101 ) ,5) AS 
VARDATE, 0RDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 *+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
C0NT_ID=0RDR_C0NT> AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+ l , '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDRJTO) ) AS VARPLACE,ORDR GENE,ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND MonthODate)=Month(ORDR DATE) AND 

Year(3Date)=Year(0RDRJ)ATE))Q WHERE VARDATE LIKE '%aSearch%' OR~ORDR_BID LIKE '%3Search%' AND 
ORDR_BID<>0 OR 1 B ' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0 OR VARSIZE LIKE 
^SSearchX 1 OR VARPRICE LIKE '%3Search%' OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE '%Search%' 
AND 0RDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR GENE=0 OR ORDR SHIP=*0' AND 'Inventory' LIKE 
'%aSearch%' OR ORDR_SHIP=' 1 ' AND 'Dispatched' LIKE '%aSearch%" OR ORDR_SHIP=' 2' AND 'En route' LIKE 
'%asearch%' OR 0RDR_SHIP= t 3 l AND 'Delivered' LIKE '%aSearch%' ORDER BY ORDR_SHIP ASC 

ELSE IF aCol^'VARDATE* SELECT 
ORDR_ID,ORDR_SH IP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R BUYR RATE 



/ 1)+0RDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1) / VARPLACE / 0RDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP, LEFT(CONVERT< VARCHAR,ORDR DATE,101),5) AS 
VARDATE, ORDR_BID,C AST ( OR DR_QTY AS VARCHAR)+ 1 ' +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA^NAME^ 1 NAME 1 AND PARA_CODE=ORDR_SI2E) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR_QTY* (SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYRJ>AID, (SELECT LOCL_CITY+', *+LOClIsTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE,ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(ORDR DATE) AND 

Year(3Date)=Year(ORDRJ)ATE))Q WHERE VARDATE LIKE '%aSearch%' OR~ORDR_BID LIKE 'XaSearch/S' AND 
ORDR_BID<>0 OR 1 B' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_BID=0 OR VARSIZE LIKE 
'%aSearch%' OR VARPRICE LIKE '%aSearch% 1 OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE '%Search%' 
AND ORDRJ3ENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR GENE=0 OR ORDR_SHIP= ' 0 1 AND inventory' LIKE 
'%aSearch%' OR ORDR„SHIP='V AND 'Dispatched' LIKE »%aSearch%' OR 0RDR_SHIP='2 l AND 'En route 1 LIKE 
^asearch'r OR ORDR_SHIP=' 3' AND 'Delivered 1 LIKE '%aSearch%' ORDER BY VARDATE ASC 

ELSE IF aCol='ORDR_BID l SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 



R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) ,VARPLACE, ORDR GENE / ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR - ID,ORDR_SHIP, LE FT( CONVERT (VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)* 1 ' + ( SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARS IZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR QTY*( SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME= , SIZE I AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE PLAC_ID=ORDRJTO> ) AS VARPLACE,ORDR_GENE,ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(0RDR_DATE) AND 

Year(aDate)=Year(ORDRJ)ATE))Q WHERE VARDATE LIKE '%aSearch%' OR ORDR BID LIKE *%aSearch%* AND 
ORDR_BID<>0 OR ' B 1 +CAST(ORDR_ID AS VARCHAR) LIKE 'XaSearchX* AND ORDR BID=0 OR VARSIZE LIKE 
*%3Searchr OR VARPRICE LIKE , %aSearch%' OR VARCONTRACT LIKE '%aSearch%* OR VARBRAND LIKE '%SearchX' 
AND 0RDRJ5ENE=1 OR 'Generic 1 LIKE '%aSearch%* AND ORDR_GENE=0 OR ORDR_SHIP=* 0' AND 'Inventory' LIKE 
'%aSearch%' OR ORDR_SHIP= * 1 ' AND 'Dispatched' LIKE '%aSearch%' OR 0RDR_SHIP='2' AND 'En route* LIKE 
'%aSearch%' OR ORDR_SHIP=' 3* AND 'Delivered* LIKE , %3Search%' ORDER BY ORDR_ BID ASC 

ELSE IF aCol= , VARWGHT l SELECT 
ORDR_ID,ORDR_SHIP / VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_J3UYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*I SNULL(ORDR_BUYR RATE,1 ) , VARPLACE, ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LE FT ( CONVERT ( VARCHAR, ORDR_DATE, 101), 5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHARH ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT__ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJJAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SH IP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORD 



R_GTY*< SELECT CASTC PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE 1 AND PARA C0DE=ORDR_SIZE) ) as 
VARWGHT / ORDR_BUYR_RATE / ORDR_BUYR_PAID / (SELECT LOCL CITY+' , 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=OR0R TO)) AS VARPLACE,ORDR_GENE, ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month (3Date)=Month(0RDR_DATE) AND 

Year(aDate)=Year(ORDR_DATE))Q WHERE VARDATE LIKE ^Search?. 1 OR ORDR_BID LIKE '%aSearch%' AND 
ORDR_BID<>0 OR 1 B* +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR_BID=0 OR VARSIZE LIKE 
, %aSearch%' OR VARPRICE LIKE ^aSearchX' OR VARCONTRACT LIKE , %aSearch%' OR VARBRAND LIKE I %Search% 1 
AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR ORDR_SHIP= ' 0' AND 'Inventory' LIKE 
f %aSearch%' OR ORDR_SHIP='V AND 'Dispatched' LIKE '%aSearch%' OR ORDR_SHIP='2' AND 1 En route' LIKE 
'%aSearch%' OR ORDR_SHIP= ' 3 1 AND 'Delivered' LIKE '%aSearch%' ORDER BY VARWGHT ASC 

ELSE IF aCol=' VARBRAND' SELECT 
ORDR_ID / ORDR_SHIP / VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_I D,ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE,101),5> AS 
VARD ATE ,ORDR_BID, CAST (ORDR_QTY AS VARCHAR)* ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, ORDRJ>RCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR QTY*(SEL r 



cCT CASTCPARA VALU AS 

NUMERIC) FROM PARAMETER WHERE PARA_NAME- ' SIZE 1 AND PARA CO0E=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYRJ>AID, (SELECT LOCL_CITY+ , / '+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR__TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=SPersId AND Month (SDate)=Month<ORDR DATE) AND 

YearODate)=Year(ORDR_DATE))Q WHERE VARDATE LIKE l %aSearch% 1 OR~ORDR BID LIKE '%aSearch%' AND 
ORDR^BIDOO OR 1 B ' +CAST(ORDR_ID AS VARCHAR) LIKE l %aSearch% ! AND ORDR_BID=0 OR VARSIZE LIKE 
, %asearch%' OR VARPRICE LIKE , %SSearch% 1 OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE , %Search% t 
AND ORDR_GENE=1 OR Generic 1 LIKE '%aSearch%' AND ORDR_GENE=0 OR ORDR_SHIP= 1 0 ' AND 'Inventory' LIKE 
'%aSearch%' OR ORDR_SHIP= 1 1 ' AND 'Dispatched 1 LIKE '%aSearch%' OR ORDR_SHIP= 1 2 1 AND 'En route' LIKE 
'%aSearch%' OR ORDR_SHIP= ' 3 ' AND 'Delivered' LIKE '%aSearch%' ORDER BY VARBRAND ASC 

ELSE IF aCol^'VARPRICE 1 SELECT 
ORDR_ID / ORDR_SHIP, VARDATE, 0RDR_BID 7 VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULLCORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE, 1 ) , VARPLACE,ORDR GENE, ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,0RDR SH I P,LE FT ( CONVERT ( VARCHAR, ORDR_DATE, 101 ) ,5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA JiAME=' NAME* AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJ1AME FROM BRAND WHERE 8RAN_ID=0RDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR JJGHT,ORDR_QTY*CSELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR BUYR_RATE,ORDR BUYR_PAID, ( SELECT LOCL CITY* 



. + *, '+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR_TO)> AS VARPLACE,ORDR GENE, ORDR_TO, ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR DATE) AND 

Year(3Date)=Year(0RDR_DATE) )Q WHERE VARDATE LIKE ^Search?; 1 OR~ORDR BID LIKE '%a$earch%' AND 
ORDR_BID<>0 OR ' B' +CAST(ORDR_ID AS VARCHAR) LIKE ^Search^ 1 AND ORDR BID=0 OR VARSIZE LIKE 
'%aSearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE '%Search%' 
AND ORDRJ3ENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR GENE=0 OR ORDR_SHIP= '0' AND 'Inventory' LIKE 
'%aSearch%' OR ORDR_SHIP= , V AND 'Dispatched' LIKE '%aSearch%* OR ORDR_SHIP=' 2' AND 'En route' LIKE 
'%asearch%' OR ORDR^SHIP^' AND 'Delivered' LIKE '%aSearch%' ORDER BY VARPRICE ASC 



ELSE IF aCol=' VARPLACE 1 SELECT 

ORDR_IO / ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE / VARCONTRACT / VARBRAND / VARPR1CE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ), VARPLACE, ORDR GENE, ORDR WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA _CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=0RDR_C0NT) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT,OR0R QTY*(SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE 1 AND PARA CODE=ORDR_sTzE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL CITY+', 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR T0>) AS VARPLACE, ORDR_GENE, OR DR_TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=SPersId AND Month QDate)=Month(ORDR_DATE) AND 

Year(3Date)=Year(0RDRJ)ATE))Q WHERE VARDATE LIKE ^Search?; 1 OR ORDR BID LIKE , %3Search%' AND 
ORDRJIDOO OR 1 B' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0 OR VARSIZE LIKE 
*%asearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE , %aSearch%' OR VARBRAND LIKE '%Search%' 
AND 0RDR_GENE=1 OR 'Generic' LIKE ^Search?,' AND ORDR GENE=0 OR ORDR SHIP='0' AND inventory' LIKE 
'%aSearch%' OR ORDR_SHIP= ' 1 * AND 'Dispatched' LIKE '%aSearch%' OR ORDR_SHIP= ' 2 ' AND 'En route' LIKE 
'%aSearch%' OR ORDR SHIP='3' AND 'Delivered* LIKE '%aSearch%' ORDER BY VARPLACE ASC 
ELSE 

IF aCol='ORDR_SHIP' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE,1 ), VARPLACE, ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR^ID/ORDR^SHIP, LEFT (CONVERT (VARCHAR, ORDR 



DATE, 1015,5) AS 

VARDATE,ORDR_BID,CAST(ORDR__QTY AS VARCHAR)+ 1 1 +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE * AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+ l , '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID-(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,0RDR_GENE,ORDR_T0,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(S)Date)=Month(ORDR_DATE) AND 

Year (3Date)=Year (ORDR^D ATE) )Q WHERE VARDATE LIKE '%aSearch%' OR ORDR_BID LIKE '%aSearch%' AND 
ORDR_BID<>0 OR 1 B 1 +CAST(ORDR_ID AS VARCHAR) LIKE , %aSearch% ( AND ORDR BID=0 OR VARSIZE LIKE 
, %asearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '%aSearch%* OR VARBRAND LIKE '%Search%' 
AND 0RDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR ORDR SHIP='0' AND 'Inventory' LIKE 
'%aSearch%' OR ORDR_SHIP= * 1 1 AND 'Dispatched' LIKE '%asearch%' OR ORDFLSHIP^* AND 'En route' LIKE 
'%asearch%' OR ORDR_SHIP= ' 3 1 AND 'Delivered' LIKE '%aSearch%' ORDER BY 0RDR_SHIP DESC 
ELSE IF aCoL= ' VARDATE 1 SELECT 

ORDR_ID / ORDR_SHIP / VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+0RDR_BUYRJMID,VARUGHT*VARPRICE*ISNULL(0RDR_BUYR RATE, 1 ) ,VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP, LEFT(CONVERT(VARCHAR, ORDR DATE,101),5) AS 



vARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH' ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT~ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJMME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_aTY* (SELECT CAST( PARA_VALU AS 
NUMERIC) FROM~PARAMETER WHERE PARA_NAME=' SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR BUYR_RATE,ORDR BUYR_PAID, (SELECT LOCL_CITY+ , / 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(SDate)=Month(ORDR DATE) AND 

Year(3Date)=Year (ORDR_DATE) )Q WHERE VARDATE LIKE ^SSearch/S' OR ORDR_BID LIKE '%aSearch%' AND 
ORDR BIDOO OR ' B ' +CAST(ORDR ID AS VARCHAR) LIKE , %SSearch% 1 AND ORDR BID=0 OR VARSIZE LIKE 
'%aSearch%' OR VARPRICE LIKE" , %aSearch% 1 OR VARCONTRACT LIKE *%aSearch%' OR VARBRAND LIKE '%Search%' 
AND ORDR GENE=1 OR 'Generic' LIKE '%asearch%' AND ORDR_GENE=0 OR ORDR SHIP='0' AND 'Inventory' LIKE 
'%asearch%' OR ORDR_SHIP='1 ' AND 'Dispatched' LIKE '%aSearch%' OR ORDR_SHIP=' 2' AND 'En route' LIKE 
, %3Search%* OR ORDR SHIP='3' AND 'Delivered* LIKE '%asearch%' ORDER BY VARDATE DESC 

ELSE IF aCol='ORDR BID 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ), VARP LACE, ORDR_GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SH I P,LE FT (CONVERT( VARCHAR, ORDR_DATE, 101 ) ,5) AS 
VARDATE, ORDR_BID, CAST(ORDR~QTY AS VARCHAR)+' '+(SELECT PARAJ/ALU FROM PARAMETER WHERE 



rARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULL(ORDRJJGHT,ORDRJ5TY*(SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID / (SELECT LOCL_CITY+ 1 / '+LOCL_$TAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(ORDR DATE) AND 

Year ODate)=Year(ORDR_DATE) )Q WHERE VARDATE LIKE 'JSaSearch?.' OR~ORDR BID LIKE '%3$earch%' AND 
ORDR_BID<>0 OR 1 B 1 +CAST(ORDR_ID AS VARCHAR) LIKE , %aSearch%' AND ORDR BID=0 OR VARSIZE LIKE 
'%asearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE '%Search%' 
AND ORDR_GENE=1 OR 'Generic' LIKE '%asearch%' AND ORDR GENE=0 OR ORDR SHIP='0' AND 'Inventory 1 LIKE 



, %5JSearch% 1 OR ORDR_SHIP= ' 1 1 AND 'Dispatched' LIKE ( %aSearch%' OR ORDR SHIP= , 2' AND 'En route' LIKE 
'XaSearchX* OR ORDR_SHIP= '3 ' AND 'Delivered' LIKE '%aSearch%' ORDER BY~ORDR BID DESC 

ELSE IF aCoL=' VARWGHT 1 SELECT 
ORDR ID,ORDR_SHIP, VARD ATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ) ,VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR TO FROM (SELECT ORDR_ID, ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR BID, CAST(ORDR QTY AS VARCHAR)+ ' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT ID=ORDR CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR PRCE+ORDR_SHIP_PRCE AS VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE l AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR RATE,ORDR BUYR PAID, (SELECT LOCL CITY+ 1 , '+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDRJTO) ) AS VARPLACE,0RDRJ3ENE,0RDR_T0,0RDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 

Year(3Date)=Year(0RDRJ)ATE))Q WHERE VARDATE LIKE '%aSearch%' OR ORDR_BID LIKE '%3$earch%' AND 
ORDR BIDOO OR ' B ' +CAST(ORDR_ID AS VARCHAR) LIKE ^SearchX' AND ORDR_BID=0 OR VARSIZE LIKE 
'%asearch%' OR VARPRICE LIKE *%aSearch%' OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE '%Search%' 
AND ORDR GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR ORDR SHIP^'O* AND 'Inventory 1 LIKE 
'%aSearch%' OR ORDR_SHIP= ' 1 ' AND 'Dispatched 1 LIKE '%aSearch% 1 OR ORDR SHIP= , 2' AND 'En route* LIKE 
'%aSearch%' OR ORDR_SHIP= ' 3 1 AND 'Delivered' LIKE '%aSearch% 1 ORDER BY~VARWGHT DESC 

ELSE IF aCol= ' VARBRAND ' SELECT 
ORDR_ID, ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,0RDR_GENE,ORDR_WGHT 
,ORDR TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CON VERT (VARCHAR, ORDR_DATE, 101 ), 5) AS 
VAR 



DATE, ORDR BID, CAST(ORDR_QTY AS VARCHAR)+ 1 1 + C SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT.LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND, ORDR PRCE+ORDR_SHIP_PRCE AS VARPRICE,TsNULL(ORDR WGHT,ORDR QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM~PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR_sIzE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', *+LOCL_STAT FROM LOCALITY WHERE 
LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR_TO / ORDR_WGHT 
FROM~ORDERS WHERE ORDR_BUYR=3PersId AND Month (3Date)=Month(0RDR_DATE) AND 

YearODate)=Year(0RDR_DATE))Q WHERE VARDATE LIKE '%aSearch%' OR ORDR BID LIKE , %aSearch%' AND 
ORDR_BID<>0 OR 1 B 1 +CAST(ORDR ID AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0 OR VARSIZE LIKE 
'%aSearch%' OR VARPRICE LIKE*"' %aSearch% ' OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE '%Search%' 
AND ORDR_GENE=1 OR 'Generic 1 LIKE '%aSearch%' AND ORDR_GENE~0 OR ORDR_SHIP= ' 0 ' AND 'Inventory' LIKE 
'%aSearch%' OR ORDR SHIP= , V AND 'Dispatched 1 LIKE '%aSearch%' OR ORDR_SHIP=' 2 1 AND 'En route' LIKE 
'XaSearchSS 1 OR ORDRlsHIP= ' 3 ' AND 'Delivered 1 LIKE '%3Search%' ORDER BY VARBRAND DESC 

ELSE IF aCoL= , VARPRICE l SELECT 
ORDR ID, ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ), VARPLACE,ORDR_ GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_ <> SHIP, LEF T( CONVERT (VARCHAR,ORDR_DAT£, 101 ) ,5) AS 
VARDAT 



E,ORDR_BID,CAST(0RDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, ORDR PRCE+ORDR_SHIP_PRCE AS VARPRICE,TsNULL(ORDR_WGHT,ORDR__QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as 
VARW6HT,0RDR_BUYR_RATE,0RDR_BUYR__PAID, ( SELECT LOCL_CITY+ ' , 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ_OCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR_TO,ORDRJJGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month ODate)=Month(ORDR_DATE) AND 

YearQDate)=Year(ORDR DATE) )Q WHERE VARDATE LIKE '%asearch%' OR ORDR_BID LIKE '%aSearch%' AND 
ORDR_BID<>0 OR 1 B 1 +CAST(ORDR_ID AS VARCHAR) LIKE l %aSearch%' AND ORDR_BID=0 OR VARSIZE LIKE 
^aSearch?,' OR VARPRICE LIKE , %asearch% 1 OR VARCONTRACT LIKE , %aSearch% 1 OR VARBRAND LIKE '%Search%' 
AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR ORDR_SHIP= ' 0 * AND 'Inventory' LIKE 
'%aSearch%' OR ORDR_SHIP=*1 ' AND dispatched' LIKE '%aSearch%' OR 0RDR_SHIP=' 2' AND 'En route' LIKE 
'%asearch%* OR ORDR_SHIP='3' AND 'Delivered' LIKE '%aSearch%' ORDER BY VARPRICE DESC 

ELSE IF aCot^'VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 ) ,VARPLACE,ORDR_GENE,0RDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LE FTC CONVERT( VARCHAR, OR DR DATE, 101), 5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_C0DE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDRj;ONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, ORDR_PRCE+0RDR SHIPJ>RCE AS VARPRICE, ISNULL(ORDR WGHT,0RDR QTY*(SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA CO* 



uE=ORDR SIZE) ) as 

VARWGHT / ORDR_BUYR_RATE,ORDR_BUYR_PAID / (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=HonthC0RDR DATE) AND ~ 
Year(3Date)=Year(0RDRj)ATE))Q WHERE VARDATE LIKE , %aSearch% ) OR~ORDR BID LIKE '%3Search%' AND 
ORDR_BID<>0 OR ' B' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND ORDR BID=0 OR VARSIZE LIKE 
'%3Search%' OR VARPRICE LIKE , %aSearch% 1 OR VARCONTRACT LIKE '%aSearch%' OR VARBRAND LIKE '%Search%' 



AND 0RDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR ORDR SHIP='0' AND 'Inventory* LIKE 
, %3Search% 1 OR ORDR_SHIP= 1 1 ' AND 'Dispatched' LIKE *%asearch%' OR ORDR SHIP='2' AND 'En route* LIKE 
'%asearch%* OR ORDR SHIP='3' AND 'Delivered 1 LIKE '%3Search%' ORDER BY~VARPLACE DESC 
END 
END 
ELSE 
BEGIN 
IF acol IS NULL 
SELECT 

ORDR_ID / ORDR_SHIP,VARDATE / ORDR_BID,VARSIZE,VARCONTRACT / VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ*ATE,1)K>RDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1) , VARPLACE,ORDR GENE / ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101 ) ,5 > AS 
VARDATE/ORDR^BID, CAST(ORDR_QTY AS VARCHAR)+ ' ' +CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE,ISnUlL(ORDR_WGHT,0RDR_QTY*(SELECT CASKPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE I AND PARA CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
Month QDate)=Month(ORDR_DATE) AND Year (3Date)= Year (ORDR_DATE) )Q WHERE VARDATE LIKE '%aSearch%' OR 
ORDR_BID LIKE '%aSearch%' AND ORDR_BID<>0 OR ' B ' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_BID=0 OR VARSIZE LIKE , %aSearch% ) OR VARPRICE LIKE '%aSearch%* OR VARCONTRACT LIKE '%aSearch%' 
OR VARBRAND LIKE '%Search%' AND 0RDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR 
ORDR_SHIP=*0' AND 'Inventory' LIKE l %aSearch%' OR ORDR SHIP='V AND 'Dispatched' LIKE '%aSearch%' OR 
ORDR_SHIP='2 l AND 'En route' LIKE '%aSearch% 1 OR ORDR_SHIP= ' 3 ' AND 'Delivered' LIKE '%3Search%' 
ORDER BY ORDR_ID DESC 

ELSE 

BEGIN 

— Determeiner si c AS 



C ou DESC — > peux pas raettre la variable car y veut pas :( 

IF aOrder='ASC' 
IF aCol='ORDR_SHIP' SELECT 
0RDR_ID,ORDR_SHIP, VARDATE, OR DR_B ID, VARSIZE, VARCONTRACT,VARBRAND, VARPRICE, VARWGHT*VARPR ICE* I SNULL(ORD 
R_BUYR_RATE,1)+0RDR_BUYR - PAID / VARWGHT*VARPRICE*ISNULL(0RDR_BUYR RATE, 1) ,VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR I D,ORDR__SH IP, LEFT (CONVERT (VARCHAR,ORDR_DATE, 101 ),5 ) AS 
VARDATE, ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 ' + (SELECT PARA_VALU FROM PARAMETER WHERE 
PARA - NAME='NAME' AND PARA _CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= QNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR__WGHT, OR DR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA NAME='SIZE' AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR BUYR_RATE,ORDR_BUYR_PAID, ( SELECT 
L0CL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE L0CL_ID=( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDRJJGHT FROM ORDERS WHERE ORDR_BUYR=3PersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year(3Date)=Year(0RDR_DATE) )Q WHERE VARDATE LIKE '%3Search%' OR 
ORDR_BID LIKE ^aSearcr^' AND ORDR_BID<>0 OR 1 B 1 +CAST(ORDR ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_BID=0 OR VARSIZE LIKE '%3Search%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '%aSearch%' 
OR VARBRAND LIKE '%Search%' AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR 
ORDR_SHIP='0' AND 'Inventory 1 LIKE »%asearch%' OR ORDR SHIP='V AND 'Dispatched' LIKE , %3Search%' OR 
0RDR_SHIP='2 l AND 'En route' LIKE '%aSearch%' OR 0RDR_SHIP=' 3" AND 'Delivered' LIKE '%aSearch%' 
ORDER BY ORDR SHIP ASC 

ELSE IF 3Col= 1 VARDATE 1 SELECT 
ORDR__ID,ORDR_SH IP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 ) +ORDR_BU YR_P " 



AlD,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_ SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101 ) ,5) AS 
VARDATE, ORDR_BID, CAST (ORDR QTY AS VARCHAR)+ 1 '+CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= 3Num) AS VARCONTRACT, (SELECT BRANjlAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT, ORDR QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME =I SIZE' AND PARA_CODE=ORDR SIZE)) as VARWGHT, ORDR_BUYR RATE, ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR GENE, ORDRJTO, ORDR WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month ODate)=Month CORD R_DATE) AND Year(3Date)=Year (ORDR_DATE) )Q WHERE VARDATE LIKE ^Search?,* OR 
ORDR_BID LIKE "^Search?. 1 AND ORDR BIDOO OR ' B 1 +CASTCORDR ID AS VARCHAR) LIKE "/iaSearchX 1 AND 
ORDR_BID=0 OR VARSIZE LIKE '%aSearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '%aSearch%' 
OR VARBRAND LIKE '%Search%' AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR 
ORDR_SHIP='0' AND 'Inventory' LIKE , %aSearch%* OR ORDR SHIP='1' AND 'Dispatched' LIKE '%asearch%* OR 
ORDR_SHIP='2' AND 'En route' LIKE '%3Search%' OR ORDR SHIP^'3' AND 'Delivered' LIKE '%asearch%' 
ORDER BY VARDATE ASC 

ELSE IF aCol='ORDR_BID* SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 



R_BUYRJ*ATE,1)+0RDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) , VARPLACE,ORDR 6ENE,0RDR W6HT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101 ),5) AS 
VARDATE,ORDR__BID,CAST(ORDR_QTY AS VARCHAR)+ ' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3NunO AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN> AS VARBRAND, ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE,ORDR BUYRJ>AID, (SELECT 
LOCL_CITY+ 1 , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year (3Date)=Year (ORDR_DATE) )Q WHERE VARDATE LIKE '%aSearch%' OR 
ORDR_BID LIKE '%aSearch%' AND ORDR_BID<>0 OR ' B' +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_BID=0 OR VARSIZE LIKE '%aSearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '%3Search%' 
OR VARBRAND LIKE '%Search%' AND ORDR_GENE=1 OR 'Generic 1 LIKE I %3Search%' AND ORDR GENE=0 OR 
ORDR_SHIP='0' AND 'Inventory' LIKE '%SSearch%' OR ORDR SHIP='V AND "Dispatched 1 LIKE '%asearch%' OR 
ORDR SHIP='2* AND 'En route' LIKE *%asearch%' OR ORDR_SHIP='3 ' AND 'Delivered' LIKE '%aSearch%' 
ORDER BY ORDR_BID ASC 

ELSE IF aCol='VARWGHT' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) ,VARP LACE, 0RDR_6ENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT( CONVERT (VARCHAR, OR~ 



DR DATE,101),5) AS 

VARDATE/ORDR^BIO/CASKORDR^QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARAj?ODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIPJ>RCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CASTCPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+ 1 , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Mont h(SDate)=Month(ORDR < _D ATE) AND Year (3Date)=Year (ORDRJ>ATE) )Q WHERE VARDATE LIKE 'XaSearch 0 ^ 1 OR 
ORDR_BID LIKE '%aSearch%* AND ORDR__BID<>0 OR ' B ' +CAST(ORDR_ID AS VARCHAR) LIKE '%3Search%' AND 
ORDR_BID=0 OR VARSIZE LIKE '%3Search%' OR VARPRICE LIKE *%aSearch%' OR VARCONTRACT LIKE , %aSearch% t 
OR VARBRAND LIKE l %Search%' AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR GENE=0 OR 
ORDR_SHIP='0' AND 'Inventory' LIKE '%aSearch%' OR ORDR SHIP= I V AND 'Dispatched' LIKE , %aSearch%' OR 
ORDR_SHIP='2' AND 'En route' LIKE '%aSearch%' OR ORDR„SHIP=' 3' AND 'DeLivered' LIKE l %aSearch%* 
ORDER BY VARWGHT ASC 

ELSE IF aCol= ' VARBRAND ' SELECT 
ORDR_ID,ORDR S" 



nIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE* I SNULL(ORD 
R_BUYRJ?ATE,1)+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE,101 ) ,5) AS 
VARDATE,ORDR_BID / CASTCORDR_QTY AS VARCHAR)+ 1 *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT ID= SNumT AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE / ORDR_BUYR_PAID / (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDRJ3ENE,ORDR_TO,ORDR_UGHT FROM ORDERS WHERE ORDR_BUYR=S)PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year (3Date)=Year (ORDR_DATE) )Q WHERE VARDATE LIKE '%3Search%' OR 
ORDR_BID LIKE '%aSearch%' AND ORDR BIDOO OR ' B' + CAST(ORDR_ID AS VARCHAR) LIKE '%3Search%' AND 
ORDR_BID=0 OR VARSIZE LIKE ^aSearchSS' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE '%aSearch%' 
OR VARBRAND LIKE '%Search%' AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_G£NE=0 OR 
ORDR_SHIP='0' AND 'Inventory' LIKE '%aSearch%' OR ORDR SHIP='V AND 'Dispatched 1 LIKE l %aSearch%' OR 
0RDR_SHIP= , 2' AND 'En route' LIKE '%aSearch%' OR ORDR_SHIP= ' 3 ' AND 'DeU 



•vered 1 LIKE , %aSearch%' 

ORDER BY VARBRAND ASC 

ELSE IF aCoL='VARPRICE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR - PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE / 1 ) , VARPLACE,ORDR GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE,101),5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+' ^(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_ NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT, ORDR QTY*(SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR BUYR_PAID, (SELECT 
LOCL_CITY+ I , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDRJSENE,ORDR_TO,ORDRJJGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month (3Date)=Month(0RDR_DATE) AND YearODate)=Year(ORDR DATE))Q WHERE VARDATE LIKE ^aSearchX' OR 
ORDR_BID LIKE , %aSearch%' AND ORDR_BID<>0 OR 1 B'+CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_BID=0 OR VARSIZE LIKE '%aSearch%' OR VARPRICE LIKE •JtoSearchJS' OR VARCONTRACT LIKE , %aSearch%* 
OR VARBRAND LIKE '%Search%' AND ORDR GENE=1 OR 'Generic 1 LIKE 'XaSearchX' AND ORDR GENE=0 OR 



ORDR_SHIP= , O l AND ■Inventory' LIKE '/^Search?. 1 OR ORDR_SHIP= ' 1 1 AND 'Dispatched 1 LIKE '%3Searchr OR 
ORDR_SHIP='2' AND 'En route 1 LIKE '/SaSearch/S' OR ORDR SHIP= , 3 I AND 'Delivered' LIKE '%aSearch%' 
ORDER BY VARPRICE ASC 

ELSE IF aCo^'VARPLACE 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE / ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) ,VARP LACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT(VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE / ORDR_BID / CAST (ORDR QTY AS VARCHARH' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num7 AS VARCONTRACT, ( SELECT BRANjlAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT / ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA CODE=ORDR SIZE) ) as VARWGHT, 0RDR_BUYR RATE,ORDR BUYRJ>AID, (SELECT 
LOCL_CITY+', *+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month(ORDRJ)ATE) AND Yea r(3Date7=Year (ORDR DATE) )Q WHERE VARDATE LIKE '%aSearch%' OR 
ORDR_BID LIKE *%aSearch%' AND ORDR_BID<>0 OR ' B' +CAST(ORDR_ID AS VARCHAR) LIKE ^aSearch^' AND 
0RDR_B1D=0 OR VARSIZE LIKE ^aSearchX* OR VARPRICE LIKE *%3Search%' OR VARCONTRACT LIKE 'SSaSearcr^ 1 
OR VARBRAND LIKE , %Search%' AND 0RDR_GENE=1 OR 'Generic' LIKE , %aSearch%* AND ORDR_GENE=0 OR 
ORDR_SHIP= , 0' AND 'Inventory* LIKE '%3Search%' OR ORDR_SHIP= 1 1 1 AND 'Dispatched 1 LIKE '%3Search%' OR 
0RDR_SHIP='2' AND * En route' LIKE '%SSearch% 1 OR ORDR_SHIP=' 3 ' AND 'Delivered' LIKE '%aSearch%' 
ORDER BY VARPLACE ASC 
ELSE 

IF 3Col='0RDR SHIP' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR BID, VARSIZE 



, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+0RDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE / 1) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR^ID/ORDR^SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE,101 ),5) AS 
VARDATE / ORDR_BID,CASTCOR0R_QTY AS VARCHAR)+ 1 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP__PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CASTCPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT, ORDR_BUYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL - CITY+ I , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE, ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(3Date)=Month(0RDR_DATE) AND Year ODate)=Year(ORDR_DATE) )Q WHERE VARDATE LIKE , %3Search% 1 OR 
ORDR_BID LIKE , %3Search% 1 AND ORDR_BID<>0 OR 1 B 1 +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_BID=0 OR VARSIZE LIKE '%aSearch%' OR VARPRICE LIKE '%aSearch%' OR VARCONTRACT LIKE , %aSearch% 1 
OR VARBRAND LIKE '%Search%' AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR 
ORDR_SHIP= , 0' AND 'Inventory 1 LIKE '%aSearch%' OR ORDR_SHIP='V AND 'Dispatched 1 LIKE '%aSearch%' OR 
0RDR_SHIP= I 2 1 AND 'En route' LIKE , %3Search%' OR ORDR_SHIP= ' 3 1 AND 'Delivered' LIKE '%aSearch%' 
ORDER BY ORDR_SHIP DESC 

ELSE IF SCoL=» VARDATE' SELECT 
ORDR_ID,ORDR_SHIP,VA 



RDATE / 0RDR„BID,VARSIZE,VARCONTRACT / VARBRAND,VARPRICE / VARW6HT*VARPRICE*ISNULL(0RD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORD R_ID, OR DR_SH IP, LEFT (CONVERT (VARCHAR,ORDR DATE,101),5) AS 
VARDATE, OR DR_BID, CAST (ORDR_QTY AS VARCHAR)+ 1 *+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR J>RCE+ORDR_SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*7sELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA^NAME^ 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE,ORDR BUYR_PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month ODate)=Month(ORDR_DATE) AND Year(aDate)=Year(ORDR_DATE) )Q WHERE VARDATE LIKE '%aSearch%» OR 
ORDR_BID LIKE ^aSearchK 1 AND ORDR_BID<>0 OR 1 B l +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_BID=0 OR VARSIZE LIKE , %aSearch% 1 OR VARPRICE LIKE , %aSearch%« OR VARCONTRACT LIKE '%aSearch%' 
OR VARBRAND LIKE '%Search%* AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR 
ORDR_SHIP='0' AND 'Inventory' LIKE '%aSearch%' OR 0RDR_SHIP='1 ' AND 'Dispatched 1 LIKE 'JSaSearch?/ OR 
ORDR_SHIP='2' AND 'En route* LIKE '%aSearch%' OR 0RDR_SHIP='3 ' AND 'Delivered' LIKE '%aSearch%' 
ORDER BY VARDATE DESC 

ELSE IF aCol='ORDR_BID' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDRJBUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1) , VARPLACE,ORDR GENE,0RDR WGHT 
,ORDR TO FROM (SELECT ORDR_ID,ORDR SHI" " ~ 



r, LEFT (CONVERT (VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR QTY AS VARCHARH' ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA JiAME=' NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= QNuffl) AS VARCONTRACT, (SELECT BRAN_ NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 



LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO / ORDR_WGHT FROM ORDERS WHERE ORDR BUYR-3PersId AND 
Month(S)Date)=Month(ORDRJ)ATE) AND Year ODate7=Year (ORDR_DATE) )Q WHERE VARDATE LIKE '/SaSearcr^' OR 
ORDR_BID LIKE ^aSearchSS' AND ORDR_BID<>0 OR I B l +CAST(ORDR_ID AS VARCHAR) LIKE '%3Search%' AND 
ORDR_BID=0 OR VARSIZE LIKE l %aSearch% 1 OR VARPRICE LIKE '!£aSearch%' OR VARCONTRACT LIKE , %aSearch%' 
OR VARBRAND LIKE , %Search%' AND ORDR_GENE=1 OR 'Generic 1 LIKE '%aSearch%' AND ORDR GENE=0 OR 
ORDR_SHIP='0' AND 'Inventory' LIKE , %aSearch% 1 OR ORDR SHIP='1' AND 'Dispatched' LIKE '%asearch%' OR 
ORDR_SHIP='2 l AND 1 En route' LIKE '%aSearch%' OR ORDR SHIP= , 3' AND 'Delivered' LIKE '%aSearch%' 
ORDER BY ORDR_BID DESC 

ELSE IF aCoL= ' VARWGHT 1 SELECT 
ORDR^ID^RDR^SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULLCORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE, ORDR_B ID, CAST (ORDR_QTY AS VARCHARH* *+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_C0NT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL(0RDR_WGHT,0RDR_QTY*7SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME=' SIZE' AND PARA CODE=ORDR_SIZE) ) as VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_P AID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,0RDRJ3ENE,0RDR_T0,0RDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month QDate)=Month(ORDR_DATE) AND YearO 



Date>=Year(ORDR DATE) )Q WHERE VARDATE LIKE '/SaSearchX* OR 
ORDR_BID LIKE '%aSearch%> AND ORDR_BID<>0 OR ' B 1 +CAST(ORDR_ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_8ID=0 OR VARSIZE LIKE '%aSearch%' OR VARPRICE LIKE '%aSearch%* OR VARCONTRACT LIKE 'J&aSearchX' 
OR VARBRAND LIKE '%Search%' AND ORDR_GENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR 
ORDR_SHIP='0' AND 'Inventory' LIKE '^Search?. 1 OR ORDR_SHIP= ' 1 ' AND 'Dispatched' LIKE ^aSearchSS 1 OR 
ORDR_SHIP= , 2' AND 'En route' LIKE '%aSearch%' OR ORDR_SHIP= ' 3 ' AND 'Delivered' LIKE '%aSearch% 1 
ORDER BY VARWGHT DESC 

ELSE IF 3Col=' VARBRAND' SELECT 

ORDR_ID, OR D R_SH I P, VARDATE, ORD R_BI D, VARSIZE, VARCONTRACT, VARBRAND, VARPR ICE, VARWGHT*VARP RICE* I SNULL( OR D 
R_BUYR_RATE,1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE / 1),VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT 0RDR_ID, ORDR_SH IP, LE FTC CONVERT( VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE, ORDR_B ID, CAST(ORDR_QTY AS VARCHAR)+ ' '+CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA JIAME=* NAME* AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPR ICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE' AND PARA_CODE=ORDR__SIZE) ) as VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+ 1 , '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO>) AS VARPLACE, ORDR_GENE, ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year (3Date)=Year (ORDR DATE) )Q WHERE VARDATE LIKE '%aSearch%' OR 
ORDR BID LIKE '%aSearch% 



' AND OROR BIDOO OR 1 B ' +CAST(ORDR_ID AS VARCHAR) LIKE '%S)Search%' AND 
ORDR_BID=0 OR VARSIZE LIKE '%SSearch% 1 OR VARPRICE LIKE , %aSearch% ( OR VARCONTRACT LIKE '%aSearch%' 
OR VARBRAND LIKE '%Search%' AND ORDR_GENE=1 OR 'Generic 1 LIKE '%aSearch%' AND ORDR_GENE=0 OR 
ORDR^SHIP^'O* AND 'Inventory' LIKE '%aSearch%' OR ORDR_SHIP= 1 1 1 AND 'Dispatched' LIKE '%asearch%' OR 
ORDR_SHIP='2' AND 'En route' LIKE '%asearch%' OR ORDR_SHIP='3 1 AND 'Delivered* LIKE '%aSearchr 
ORDER BY VARBRAND DESC 

ELSE IF aCoL= 1 VARPRICE 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE,VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULLCORDR_BUYR_RATE / 1) / VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORD R_ID,ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE / ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ ' '^(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA„NAME=*NAME> AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
C0NT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRANJIAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND ,ORDR_PRCE+ORDR SHIP PRCE AS 

VARPRICE, I SNUL L( ORD R - WGHT,ORDR_QTY*( SELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT, ORDR_BUYR RATE,ORDR_BUYRJ>AID, ( SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE / ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDRJ)ATE) AND Year(aDate)=Year(ORDR_DATE) )Q WHERE VARDATE LIKE '%aSearch%' OR 
ORDR_BID LIKE V.aSearchr AND ORDR BIDOO OR * B ' +CAST(ORDR ID AS VARCHAR) LIKE '%aSearch%' AND 
ORDR_BID=0 OR VARSIZE LIKE ^aSearcf^ 1 OR VARPRICE LIKE ' %" 



3Search%' OR VARCONTRACT LIKE '%aSearch%' 
OR VARBRAND LIKE '%Search%' AND ORDRJ5ENE=1 OR 'Generic* LIKE '%aSearch%' AND ORDR GENE=0 OR 
ORDR_SHIP= , 0* AND 'Inventory 1 LIKE '%aSearch%' OR ORDR_SHIP= 1 1 ' AND 'Dispatched' LIKE ^aSearchX 1 OR 
ORDR_SHIP='2* AND 'En route 1 LIKE '/SaSearch 0 /' OR ORDR_SHIP=' 3' AND 'Delivered' LIKE *%aSearch%' 
ORDER BY VARPRICE DESC 

ELSE IF aCo^'VARPLACE 1 SELECT 

ORDR_ID,ORDR_SHIP, VARDATE,ORDR_BID, VARSIZE,VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYRJ*ATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ) , VARPLACE,ORDR GENE, ORDR_WGHT 
,ORDR_TO FROM (SELECT ORD R_ID,ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 



PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SJNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE / ISNULL(ORDR_WGHT / ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE 1 AND PARA _CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE, ORDR BUYR_PAID, (SELECT 
LOCL_CITY+' / '+L0CL_STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year (3Date)=Year(ORDR_DATE) )Q WHERE VARDATE LIKE '%aSearch%* OR 
ORDR_BID LIKE '%aSearch%' AND ORDR_BID<>0 OR ' B'+CAST(ORDR_ID AS VARCHAR) LIKE '%3Search%' AND 
ORDR_BID=0 OR VARSIZE LIKE '%aSearch%' OR VARPRICE LIKE *%aSearch%' OR VARCONTRACT LIKE ^SearchX' 
OR VARBRAND LIKE '%Search%' AND ORDRJ3ENE=1 OR 'Generic' LIKE '%aSearch%' AND ORDR_GENE=0 OR 
0RDR_SHIP='0' AND 'Inventory' LIKE 'XaSearchSS' OR ORDR_SHIP= ' 1 ' AND 'Dispatched' LIKE *%asearch%' OR 
ORDR^SHIP^'a' AND 'En route' LIKE '%aSearch%' OR ORDR SHIPs'3' AND 'Delivered' LIKE '%aSearch% 1 
ORDER BY VARPLACE DESC 
END 
END 
END 
ELSE 
BEGIN 
— <BASE> 
IF aNum IS NULL 
BEGIN 
IF aCol IS NULL 
SELECT 

ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 

R_BUYR_RATE,1)+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE, 1 ), VARPLACE, ORDR_GENE,ORDRJJGHT 

,ORDR_TO FROM (SELECT ORDR_ID,QRDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 

VARDATE, ORDR__BID,CAST(ORDR_QTY AS VARCHARH* ' +CSELECT PARA VALU FROM PARAMETER WHERE 

PARA__NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 

CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRANJiAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 

v 



. ARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE 1 AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', , +LOClIsTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_IO=ORDR_TO) ) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 
Year (3Date)=Year(0RDR_DATE) )Q WHERE aSCol LIKE '%aSearch%» ORDER BY ORDR ID DESC 

ELSE 

BEGIN 

— Determenner si c ASC ou DESC — > peux pas mettre la variable car y veut pas :( 
IF aOrder='ASC 
IF aCol='ORDR_SHIP' SELECT 
ORDR_ID / ORDR_SHIP / VARDATE,ORDR_BID / VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,T)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE / 1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT<VARCHAR,ORDR_DATE,101 ) ,5) AS 
VARDATE / ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR n 



ullYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+ , / 1 +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE, ORDR GENE, ORDR T0,0RDR_W6HT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month (aDate)=Month(ORDR_DATE) AND 
YearC3Date)=Year(0RDR_DATE))Q WHERE aSCol LIKE , %aSearch% 1 ORDER BY ORDR SHIP ASC 

ELSE IF 3Col= 1 VARDATE 1 SELECT 
ORDR_ID / ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE / VARC0NTRACT,VARBRAND,VARPRICE / VARW6HT*VARPRICE*ISNULL(0RD 
R_BUYR - RATE / 1)+ORDR - BUYR_PAID / VARWGHT*VARPRICE*ISNULL<ORDR BUYR RATE,1 ), VARPLACE, ORDR GENE / ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 *+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE,ISNULL(ORDR WGHT, ORD R_QTY* (SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE, 0RDR_GENE, ORDR TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year(aDate)=Year 



(ORDR_DATE))Q WHERE 3SCoL LIKE '%aSearch%* ORDER BY VARDATE ASC 
ELSE IF aCot='ORDR_BID' SELECT 
ORDR^ID^RDR^SHIP^ARDATE/ORDR BID, VARSIZE, VARCONTRACT, VARBRANO, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE,101),5) AS 
VARDATE,ORDR_BID, CAST(ORDR_GTY AS VARCHAR)+' '+CSELECT PARA VALU FROM PARAMETER WHERE 



PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN) AS 
VARBRAND, OR DR_PRCE+ORDR_SH IP PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(0RDR DATE) AND 
Year(3Date)=Year(0RDR DATE) )Q WHERE asCol LIKE , %aSearch%» ORDER BY ORDR_BID ASC 
ELSE IF 3Cot= , VARWGHT' SELECT 

ORDR^ID^RDR^SHIP^VARDATE^RDR^BID, VARSIZE, VARCONTRACT / VARBRAND / VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CONVERT(VARCHAR,ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH 1 »+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS VARPRICE, ISNULL(ORDR WGHT, OR DR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA NAME='SIZE' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', ' +LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE,ORDR TO,ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(ORDR DATE) AND 
YearQDate)=Year(ORDR DATE) )Q WHERE SSCol LIKE '%aSearch%' ORDER BY VARWGHT ASC 

ELSE IF aCoL=' VARBRAND' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDRJTO FROM (SELECT ORDR_I D,ORDR_SH IP, LEFT ( CONVERT (VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA COD E=ORDR SIZE) AS VARSIZE, ( SELECT CONT_LABL FR* 



~M CONTRACT WHERE 

CONTJD=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*( SELECT CASTCPARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE / ORDR_BUYR_PAID, (SELECT L0CL_CITY+', *+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR GENE,ORDR_TO, ORDR_WGHT 
FROM ORDERS WHERE ORDR_BUYR=SPersId AND Month(3Date)=Month(ORDR DATE) AND 
Year (aDate)=Year(ORDR_DATE) )Q WHERE SJSCoL LIKE '%aSearch%' ORDER BY VARBRAND ASC 

ELSE IF aCol^'VARPRICE' SELECT 
ORDR_ID / ORDR_SHIP,VARDATE,0RDR_BID,VARSIZE / VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR — BUYR RATE, 1) , VARPLACE,ORDR_GENE, ORDR JfGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE,101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE BRAN 1D=0RDR BRAN) AS 
VARBRAND ,ORDR_PRCE+ORDR_SH I P_PRCE AS VARPRICE, ISNULL(ORDR WGHT,ORDRJJTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ■ AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+*, '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE / ORDR_GENE,ORDR_TO, ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(3Date)=Month(ORDR_DATE) AND 
Year(3Date)=Year(ORDR_DATE))Q WHERE aSCol LIKE '%aSearch%' ORDER BY VARPRICE ASC 

ELSE IF aCoL= 1 VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R„BUYR_RATE,1)+ORDR_BUYR - PAID / VARWGHT*VARPRICE*ISNULL(ORDR - BUYR_RATE,1),VARPLACE / ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORD R_ID,ORDR_SH IP, LEFT (CONVERT (VARCHAR,ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)*' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND, ORDR_ 



_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULLCOROR WGHT, ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR_TO)) AS VARPLACE,ORDR GENE, ORDR_TO,OR0R WGHT 
FROM ORDERS WHERE ORDR BUYR=3PersId AND Month (3Date)=Month (ORDR DATE) AND 
Year (3Date)=Year (ORDR_DATE) )Q WHERE ascol LIKE '%aSearch%' ORDER 8Y VARPLACE ASC 
ELSE 

IF aCol= I ORDR_SHIP' SELECT 
ORDR_I D,0RDR_SH IP, VARDATE/ORDR^BID, VARS I ZE/VARCONTRACT^VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP,LEFT(CONVERT(VARCHAR / ORDR_DATE,101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR QTY AS VARCHAR)+' ^(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDRj:ONT> AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULLCOROR WGHT, 0RDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARAJIAME=* SIZE' AND PARA_CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR BUYR PAID, (SELECT LOCL CITY+ 1 , ! +LOCL~STAT FROM LOCALITY WHERE 



LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE, ORDR_GENE,ORDR TO / ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR DATE) AND 
YearQDate)=Year(ORDR DATE) )G WHERE 3SCol LIKE '%aSearchr ORDER BY ORDR SHIP DESC 

ELSE IF aCol= ' VARDATE 1 SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) ,VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID / ORDR_SHIP,LEf : TCCONVERT(VARCHAR,ORDR_DATE / 101),5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ ' *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE,TsNULL(ORDR WGHT,ORDR QTY*(SELECT CAST( PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE' AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID / (SELECT LOCL CITY+ ' , '+LOCLISTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR GENE, ORDR TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(3Date)=Month(0RDR DATE) AND 
Year (3Date)=Year (ORDR_DATE) )Q WHERE 3SCol LIKE '%aSearchr ORDER BY VARDATE DESC 

ELSE IF aCol='ORDR BID 1 SELECT 
ORDR_I D, OR DR_SH IP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND,VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) ,VARPLACE,ORDR_GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT (CON VERT (VARCHAR, ORDR DATE,101),5) AS 
VARDATE, ORDR_B ID, CAST (ORDR_QTY AS VARCHAR)+ ' *+(SELECT PARAJ/ALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS VARPRICE,ISNULL(ORDR_WGHT / ORDR_QTY*( SELECT CAST(PARA VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE 1 AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) AS VARPLACE,ORDR_GENE / ORDR_TO,ORD I> 



»_W6HT 

FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year(aDate)=Year(ORDR_DATE))Q WHERE SSCol LIKE '%aSearch%' ORDER BY ORDR_BID DESC 

ELSE IF aCo^'VARWGHT' SELECT 
ORDR_ID / 0RDR_SHIP / VARDATE / ORDR_BID / VARSIZE,VARC0NTRACT,VARBRAND / VARPRICE,VARWGHT*VARPRICE*ISNULL(0RD 
R_BUYR_RATE / T)+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) ,VARPLACE,QRDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP / LEFT ( CONVERT (VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDRJiTY AS VARCHAR)+ ' ' +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE,ISNULL(ORDR_WGHT, ORDR_QTY*( SELECT CAST( PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR SIZE)) as 
VARWGHT, 0RDR_BUYR_RATE,0RDR_J3UYR_P A ID, (SELECT LOCL_CITY+' / '+LOCL~STAT FROM LOCALITY WHERE 
LOCL„ID^(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR_TO>) AS VARPLACE,ORDR GENE,ORDR_TO, ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year(aDate)=Year(ORDR_DATE))Q WHERE aSCot LIKE l %aSearch%' ORDER BY VARWGHT DESC 

ELSE IF aCol=' VARBRAND' SELECT 
0RDR_ID,0RDR_SHIP,VARDATE,ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) , VARPLACE,0RDR_GENE,ORDR WGHT 
,ORDR_T0 FROM (SELECT ORDR_ID,ORDR_SHIP,LEFT(CONVERT(VARCHAR,ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) AS 
VARBRAND, OR DR_PRCE+ORDR — SHI P_PRCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as 
VARWGHT, ORDR_BUYR_RATE,ORDR_BUYR_PA ID, (SELECT LOCL CITY+ 1 , '+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_L0CL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE ORDR BUYR=3PersId AND Month(aDate)=Month(ORDR_DATE) AND 
YearO 



Date)=Year(ORDR_DATE))Q WHERE aSCol LIKE '%aSearch%' ORDER BY VAR8RAND DESC 

ELSE IF aCol^VARPRICE' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE,ORDR_B ID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE / 1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_JO FROM (SELECT ORDR ID,ORDR SHIP, LEFT (CONVERT (VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND, ORDRJ>RCE+ORDR_SHIPJ>RCE AS VARPRICE, ISNULL(ORDR WGHT, ORDR QTY* (SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR_SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', *+LOCL STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT 
FROM ORDERS WHERE 0RDR_BUYR=3PersId AND MonthODate)=Month(ORDR DATE) AND 
Year(3Date)=Year(0RDR DATE))Q WHERE asCoL LIKE '%aSearch%' ORDER BY VARPRICE DESC 

ELSE IF aCol='VARPLACE" SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE, 1 ) ,VAR PLACE, ORDR GENE,ORDR_WGHT 



,ORDR_TO FROM (SELECT OR DR_ID, OR DR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101 ) ,5) AS 
VARDATE,ORDR__BID, CAST(ORDR_QTY AS VARCHAR)+ l '^(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR BRAN) AS 
VARBRAND,ORDR_PRCE+ORDR_SHIP_PRCE AS VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST ( P ARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAHE= 1 SIZE 1 AND PARA CODE=ORDR SIZE) ) as 
VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT LOCL_CITY+', '+LOCLlSTAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS VARPLACE, ORDR GENE, ORDR_TO, ORDR WGHT 
FROM ORDERS WHERE ORDR_BUYR=aPersId AND Month(aDate)=Month(ORDR_DATE) AND 
Year(3Date)=Year(0RDR DATE) )Q WHERE SSCol LIKE '%aSearch%* ORDER BY VARPLACE DESC 
END 

END 

ELSE 

BEGIN 
IF aCol IS NULL 
SELECT 

ORDR_ID,0RDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1) , VARPLACE, OR DR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VAR CHAR, ORDR DATE,101),5) AS 
VARDATE,ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+' '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_C0DE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR BRAN) AS VARBRAND / ORDR_PRCE+ORDR__SHIP PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT, OR DR_QTY*( SELECT CAST( PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= ' SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR_RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE, 0RDR_GENE,0RDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(3Date)=Month(0RDR_DATE) AND Year(aDate)=Year(ORDR_DATE) )Q WHERE asCol LIKE '%aSearch%' ORDER 
BY ORDR ID DESC 

ELSE" 

BEGIN 

— Determe 



iner si c ASC ou DESC — > peux pas mettre La variable car y veut pas :( 
IF aOrder= , ASC I 
IF aCol='OROR_SHIP' SELECT 

ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE, VARCONTRACT, VARBRAND,VARPR ICE, VARWGHT*VARPR I CE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE / 1 ) / VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT( CONVERT(VARCHAR, ORDR_DATE, 101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH ' '+CSELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, ( SELECT BRAN NAME FROM BRAND WHERE 
BRANJD=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR SHIP PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY* (SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT / ORDR_BUYR RATE,ORDR BUYR_PAID, ( SELECT 
LOCL„CITY+ 1 , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month (SDate)=Month(ORDR_D ATE) AND Year (3Date)=Year(0RDR_DATE) )Q WHERE asCol LIKE '%aSearch%' ORDER 
BY ORDR_SHIP ASC 

ELSE IF aCol=' VARDATE 1 SELECT 

OR DR_I D , ORD R_SH I P, VARDATE , ORDR_BI D , VAR SIZE, VARCONTRACT, VARBRAND ,VAR PR ICE, VARWGHT*VAR PR I CE*ISNULL(ORD 
R_BUYR_RATE / 1)+0RDR_BUYR - PAID,VARWGHT*VARPRICE*ISNULL(0RDR_BUYR RATE, 1 ) , VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SH IP, LEFT ( CONVERT (VARCHAR,ORDR_DATE, 101 ),5) AS 
VARDATE, ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num> AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) A 



S VARBRAND,ORDR PRCE+ORDR SHIP PRCE AS 
VARPRIC£ / ISNULL(ORDR_WGHT / ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 'SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE, ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+ , / , +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO>) AS VARPLACE / ORDR_GENE,ORDR_TO / ORDR WGHT FROM ORDERS WHERE ORDR_BUYR=S)PersId AND 
Month (3Date)=Month(0RDR_DATE) AND YearODate)=Year(ORDR DATE))Q WHERE asCol LIKE , %aSearch%' ORDER 
BY VARDATE ASC 

ELSE IF aCol='ORDR_BID' SELECT 

ORDR.ID / ORDR_SHIP / VARDATE / ORDR_BID / VARSIZE / VARCONTRACT / VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULLCORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE, 1 ) , VARPLACE,ORDR GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP / LEFT(CONVERT(VARCHAR / ORDR_DATE / 101),5) AS 
VARDATE / ORDR_BID / CAST (ORDR_QTY AS VARCHARH' *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, ( SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE / ISNULL(ORDR_WGHT / ORDR_QTY*(SELECT CASUPARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR BUYR PAID,(SELECT 



LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLAC LOCL FROM PLACE WHERE 

PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 

Month(aDate)=Month(ORDR DATE) AND Year(3Date)=Year(0RDR DATE))Q WHERE SSCoL LIKE~' %S)Search% ' ORDER 
BY ORDR_BID ASC 

ELSE IF aCoL=' VARWGHT' SELECT 

ORDR_ID / ORDR_SHIP,VARDATE / ORDR_BID / VARSIZE / VARCONTRACT / VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR - RATE / 1)+ORDR_BUYR_PAID / VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ),VARPLACE,ORDR_GENE, ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID,CAST(ORDRJ2TY AS VARCHAR)*' ^(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME='NAME' AND PARA_CODE=ORDR_SI2E) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR SHIP_PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST (PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME =I SIZE' AND PARA_CODE=ORDR SIZE) ) as VARWGHT, ORDR_BUYR_RATE, ORDR BUYR PAID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=( SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR WGHT FROM ORDERS WHERE ORDR BUYR=aPersId AND 
MonthODate)=Month(ORDRJ)ATE) AND Year (3Date)=Year (ORDR_DATE) )Q WHERE aSCol LIKE*' %aSearch% 1 ORDER 
BY VARWGHT ASC 

ELSE IF 3CoL= 1 VARBRAND ' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE, 1 )+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(C0NVERT(VARCHAR,0RDR_DATE,101 ),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHARH ' '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA _CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=0RDRJ3RAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP PRCE AS 
VARPRICE, ISNULL(ORDR WGHT, ORDR QTY*(SELECT CAST(PARA 



„_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE ' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE / OR0R_BUYR_PAID, (SELECT 
LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE / ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year(aDateT=Year(ORDR DATE) )Q WHERE 3SCot LIKE '%aSearch%' ORDER 
BY VARBRAND ASC 

ELSE IF aCol^'VARPRICE 1 SELECT 
ORDR_ID,ORDR SHIP, VARDATE, ORDR BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,T)+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1), VARPLACE,ORDR_GENE,ORDR WGHT 
,ORDR_TO FROM (SELECT ORDR_ID, ORDR_SH IP, LEFT (CONVERT (VARCHAR, ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID, CAST(ORDR QTY AS VARCHAR)+ ' l +(SELECT PARA VALU FROM PARAMETER WHERE 
PARA^NAME^ 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNuro) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE I AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR_RATE, ORDR_BUYRJ>AID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDRJTO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year (3Date)=Year (ORDR DATE) )Q WHERE 3SCoL LIKE~' %3Search% ' ORDER 
BY VARPRICE ASC 

ELSE IF aCo^'VARPLACE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R - BUYR_RATE,T)+0RDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE / 1),VARPLACE,0RDR_GENE / 0RDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID, ORDR SHIP, LEFT(CONVERT(VARCHAR / ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 ^(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT ID=ORDR_CONT AND CONT ID= aNumT AS VARCONTRACT, (SELECT BRAN_NAME FROM BR' 



AND WHERE 

BRAN_ID=ORDR_BRAN> AS VARBRAND,ORDR_PRCE+ORDR SHIP_PRCE AS 

VARPRICE, I SNULL(0RDR_WGHT,ORDR_QTY* (SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME='SIZE' AND PARA CODE=ORDR_SIZE) ) as VARWGHT,ORDR_BUYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+' / *+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE / ORDR_GENE,ORDR_TO / ORDR_WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month(aDate)=Month<ORDR_DATE) AND Year ODateT^Year (ORDR DATE) )Q WHERE SSCol LIKE* 1 %aSearch% * ORDER 
BY VARPLACE ASC 
ELSE 

IF aCol= , ORDR_SHIP' SELECT 
ORDR_ID,ORDR_SHIP / VARDATE/ORDR^BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE, 1 ) , VARPLACE / ORDR_GENE / ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_I D/ORDR^SHIP, LEFT ( CONVERT (VARCHAR,ORDR_DATE, 101 ),5 ) AS 
VARDATE,ORDR_BID / CAST(ORDR_QTY AS VARCHAR)+ 1 '+<SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= SNum) AS VARCONTRACT, (SELECT BRAN NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND,ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE,ISNULL(ORDR_UGHT,ORDR_QTY*(SELECT CAST ( PARA J/ALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= , SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE,ORDR BUYR_PAID, (SELECT 



LOCL_CITY+' / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC LOCL FROM PLACE WHERE 
PLAC_IO=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR__TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=SPersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year (aDate)=Year(ORDR DATE))Q WHERE SSCoL LIKE , %3Search% 1 ORDER 
BY ORDR_SHIP DESC 

ELSE IF 3CoL=' VARDATE' SELECT 
ORDR_ID,ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1)+ORDR„BUYRJ>AID,VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1 ) ,VAR PLACE, ORDR_GENE,ORDR_WGHT 
,ORDRJTO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT (CONVERT(VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE, ORDR_BID, CAST (ORDR_QTY AS VARCHAR)+ ' 1 +CSELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARA CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(0RDR_WGHT,0RDR_QTY*7sELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME=' SIZE' AND PARA_CODE=ORDR SIZE)) as VARWGHT,ORDR_BUYR RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,0RDRJ3ENE, ORDR_TO,ORDR WGHT FROM ORDERS WHERE ORDR BUYR=3PersId AND 
Month (3Date)=Month(0RDR_DATE) AND Year ODate)=Year(0RDR DATE) )£5 WHERE 3SCol LIKE~' %3Search% 1 ORDER 
BY VARDATE DESC 

ELSE IF aCol= , ORDR_BID l SELECT 
ORDR_ID, ORDR_SHIP, VARDATE, ORDR_BID, VARSIZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL (ORD 
R_BUYRJ?ATE,1)+0RDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(0RDR BUYR RATE, 1 ),VARPLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR_SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101 ),5) AS 
VARDATE, ORDR_B ID, CAST (ORD R_QTY AS VARCHARH 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= , NAME' AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= 3Num) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, ISNULL(ORDR_WGHT, ORD R_QTY*( SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARANAME^ ' SIZE 1 AND PARA_CODE=ORDR SIZE) ) as VA 



RWGHT,ORDR BUYR_RATE,ORDR_BUYR PAID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)> AS VARPLACE,ORDR_GENE,ORDR JTO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=QPePSld AND 
Mont hODate)=Month(ORDR_D ATE) AND Year(aDate)=Year(ORDR_DATE) )Q WHERE 3SCoL LIKE '%aSearch%' ORDER 
BY ORDR_BID DESC 

ELSE IF aCot= 1 VARWGHT 1 SELECT 
ORDR - ID,ORDR_SHIP,VARDATE / ORDR - BID / VARSIZE,VARCONTRACT / VARBRAND / VARPRICE / VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR_ID,ORDR SHIP, LEFT(CONVERT(VARCHAR,ORDR DATE, 101), 5) AS 
VARDATE,ORDR_BID, CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARS IZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR SIZE)) as VARWGHT, ORDR_BUYR RATE,ORDR BUYR_PAID, (SELECT 
LOCL_CITY+ , / '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO)) AS VARPLACE,ORDR_GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
MonthODate)=Month(ORDR DATE) AND Year(aDate)=Year (ORDRJMTE) )Q WHERE 3SCol LIKE , %aSearch%' ORDER 
BY VARWGHT DESC 

ELSE IF 3Col=' VARBRAND 1 SELECT 
ORD R_I D, ORD R_SHI P,VARDATE,ORDR_B I D,VARS I ZE, VARCONTRACT, VARBRAND, VARPRICE, VARWGHT*VARPR ICE* I SNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ) ,VAR PLACE, ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT 0RDR_ID,ORDR SHIP, LEFT (CONVERT (VAR CHAR, ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 *+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= ' NAME ' AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SHIP PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME= 1 SIZE 1 AND PARA_CODE=ORDR_SIZE) ) as 



VARWGHT,ORDR BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
LOCL_CITY+ l , '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=ORDR_TO>) AS VARPLACE,ORDR_GENE / ORDR TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Year (aDate)=Year(ORDR_DATE) )Q WHERE asCol LIKE '%aSearch%' ORDER 
BY VARBRAND DESC 

ELSE IF aCol='VARPRICE' SELECT 
ORDR_ID,ORDR_SHIP,VARDATE,ORDR_BID,VARSIZE,VARCONTRACT, VARBRAND, VARPRICE,VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,1 )+ORDR_BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE,1 ) , VARPLACE,ORDR GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR^ID/ORDR^SHIP, LEFT( CONVERT (VARCHAR,ORDR DATE,101),5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+' *+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME ' AND PARAJTODE=ORDR_SIZE) AS VARSIZE, (SELECT CONT LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT AND CONT_ID= aNum) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN_ID=ORDR_BRAN) AS VARBRAND, ORDR_PRCE+ORDR_SH I P_PRCE AS 

VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA_NAME =I SIZE' AND PARA_CODE=ORDR_SIZE) ) as VARWGHT,ORDR BUYR RATE,ORDR_BUYR_PAID, (SELECT 
LOCL CITY+' , ' +L0CL STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE 



PLAC ID=OR0R_TO)) AS VARPLACE,ORDR GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE 0RDR_BUYR=3PersId AND 
Month(aDate)=Month(ORDR_DATE) AND Yea r(3Date)= Year (ORDR_DATE) )Q WHERE 3SCol LIKE , %3Search% 1 ORDER 
BY VARPRICE DESC 

ELSE IF aCol^'VARPLACE 1 SELECT 
0RDR_ID,0RDR SHIP, VARDATE,ORDR_BID, VARSIZE, VARCONTRACT,VARBRAND,VARPR ICE, VARWGHT*VARPRICE*ISNULL(ORD 
R_BUYR_RATE,T)+ORDR BUYR_PAID, VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1) , VARPLACE,ORDR_GENE,ORDR_WGHT 
,ORDR_TO FROM (SELECT ORDR ID,ORDR SHIP, LEFT (CONVERT (VARCHAR,ORDR_DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR"qTY AS VARCHAR)+ 1 '+(SELECT PARA_VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR SIZE) AS VARSIZE, (SELECT CONTJ.ABL FROM CONTRACT WHERE 
CONT ID=ORDR CONT AND CONT_ID= 3Num) AS VARCONTRACT, (SELECT BRAN_NAME FROM BRAND WHERE 
BRAN~ID=ORDR~BRAN) AS VARBRAND,ORDR PRCE+ORDR_SHIP PRCE AS 

VARPRICE,ISNULL(ORDR_WGHT,ORDR_QTY*(SELECT CAST(PARA VALU AS NUMERIC) FROM PARAMETER WHERE 
PARA NAME= , SIZE I AND PARA CODE=ORDR SIZE) ) as VARWGHT,ORDR_BUYR_RATE,ORDR_BUYR_PAID, (SELECT 
L0ClIcITY+', ' +LOCL STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ_OCL FROM PLACE WHERE 
PLAC ID=ORDR_TO)) AS VARPLACE,ORDR GENE,ORDR_TO,ORDR_WGHT FROM ORDERS WHERE ORDR_BUYR=aPersId AND 
Month(3Date)=Month(0RDRJ)ATE) AND Year (3Date7=Year (ORDR_D ATE) )Q WHERE SSCol LIKE '%aSearch%' ORDER 
BY VARPLACE DESC 
END 
END 
END 
END 

RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJIULLS ON 
GO 

SET QUOTED_IDENTIFIER ON SET ANSI_NULLS ON 
GO 



CREATE Procedure spPFOBis 
aPersId varchardO) = NULL, 
acompld varchardO) = '0', 
aDate smalldatetime = NULL, 
3Num varchardO) = '0', 
aSCol varchardOO) = ' ', 
asearch varchar(2 



00) = '0«, 
SJCoL varchar(200) = ' 1 , 
aorder varchar(4) = 1 DESC 
AS 

/**************************************************^ 
** File: spPFO.sql 
** Name: spPFO 

** Desc: Purchaser Field Orders 
** 

******************************************* 
** Change History 

******************************************************************************* 

** Date: Author: Description: 

** 11/29/2000 Gerald Colin Purchaser Field Orders 

** 

*******************************************************************************/ 
IF aOrder^'ASC 
IF aCol='VARSHIP' OR 3Col= ' VARCONTRAT ' OR 3Col= ' VARPLACE ' 
SELECT (CASE 3Col WHEN 'VARSHIP' THEN VARSHIP 
WHEN ' VARCONTRACT 1 THEN VARCONTRACT 
WHEN 1 VARPLACE 1 THEN VARPLACE 
END), 

ORDR_ID , 
VARSHIP , 
VARDATE 

VARID , 
VARSIZE 
VARCONTRACT 
VARBRAND , 
VARPRICE , 
VARTOTAL , 



VARDUE , 
VARPLACE , 
ORDR_GENE 
VARWGHT 
ORDR TO 
ORDR~FOB 
ORDRJJGHT 
FROM C 
SELECT 

VARTOTAL =VARWGHT*VARPRICE 

VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1), 
* 

FROM ( 

SELECT VARID =(CASE ISNULL(ORDR_BID,0) WHEN 0 THEN 1 B 1 +CASTCORDR ID AS VARCHAR) ELSE 
CAST(ORDR_ID AS VARCHAR) END), 

VARSHIP =(CASE ORDR SHIP WHEN '0' THEN 'Inventory' WHEN 'V THEN 'Dispatched' WHEN '2' THEN 
'En route' WHEN '3' THEN "delivered 1 END), 

VARDATE =LEFT( CONVERT (VARCHAR,ORDR DATE, 101 ) ,5) , 

VARSIZE =CAST(ORDR QTY AS VARCHAR)+ ' ' +CCASE ORDR SIZE WHEN 0 THEN 'Truckload' WHEN 1 THEN 
'Rail Car 1 END)+(CASE ORDR QTY-1 WHEN 0 THEN " ELSE ' s~ END), 

VARCONTRACT=( SELECT C0NT_LA8L FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 
VARBRAND =(SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN)" / 
VARPRICE =ORDRJ>RCE+ORDR_SHIPJ>RCE, 

VARWGHT =ISNULL(ORDR WGHT,ORDR QTY*(CASE ORDR SIZE WHEN 0 THEN 42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL((SELECT PLAC_LABL FROM PLACE~WHERE PLAC_ID=0RDR_T0), (SELECT LOCL_CITY+', 
l +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR_TO) ) ) , 

FROM ORDERS 

WHERE (CASE SCompId WHEN '0' THEN ORDR_BUYR ELSE (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=ORDR_BUYR) END)=(CASE SJCompId WHEN '0' THEN 3PersId ELSE SJCompId END) AND 
Month(3Date)=Month(ORDR_DATE) AND 
Year (3Date)=Year (ORDR_DATE) AND 

(CASE 3Num WHEN '0' THEN 3Num ELSE ORDR_CONT END) LIKE aNum 

)Q 
)Q0 

WHERE ((CASE SSCol WHEN 'VARDATE' THEN VARDATE 

WHEN 1 ORDR_BUYR 1 THEN CAST(ORDR_BUYR AS VARCHAR) 
WHEN 1 VARID' THEN VARID 
WHEN 'VARSHIP' THEN VARSHIP 
WHEN ' VARCONTRACT 1 THEN VARCONTRA 



CT 

WHEN 'VARBRAND' THEN VARBRAND 

WHEN ' VARTOTAL' THEN CASTCVARTOTAL AS VARCHAR) 
WHEN 'VARDUE' THEN CASTCVARDUE AS VARCHAR) 
WHEN 'VARSIZE' THEN VARSIZE 

WHEN 'VARPRICE 1 THEN CASTCVARPRICE AS VARCHAR) 

WHEN 1 VARPLACE 1 THEN VARPLACE 

WHEN 'ALL' THEN " 

ELSE aSearch 
END) LIKE '%'+aSearch+'%' OR 
(VARDATE LIKE ' % ' +9Search+ ' % * OR 
ORDR_BUYR LIKE ' % ' +aSearch+ ' % ' OR 
VARID LIKE , %'+3Search+ , %' OR 
VARSHIP LIKE ' % 1 +3Search+ ' % * OR 
VARCONTRACT LIKE ' % ' +3Search+ ' % 1 OR 
VARBRAND LIKE ' % ' +3Search+ 1 % 1 OR 
VARSIZE LIKE ' % ' +aSearch+ 1 % 1 OR 
VARPRICE LIKE ' % ' +3Search+ ' % 1 OR 
VARTOTAL LIKE ' % ' +3Search+ ' % ' OR 
VARDUE LIKE 1 % ' +3Search+ 1 % ' OR 
VARPLACE LIKE 1 % ' +3Search+ ' % 1 ) AND aScoL='ALL') 
ORDER BY 1 ASC 
ELSE 

SELECT (CASE 3Col WHEN 'ORDRJ)ATE' THEN CAST(ORDR_DATE AS FLOAT) 
WHEN 1 VARWGHT 1 THEN VARWGHT 
WHEN 'VARTOTAL' THEN VARTOTAL 
WHEN 'VARDUE' THEN VARDUE 
WHEN 'VARPRICE' THEN VARPRICE 
ELSE ORDR_ID 
END), 

ORDR ID , 
VARSHIP , 



VARDATE , 
VARID , 
VARSIZE , 
VARCONTRACT 
VARBRAND 

VARPRICE , 
VARTOTAL , 
VARDUE 
VARPLACE 

0RDR_6ENE , 
VARWGHT 

ORDR TO , 

ordr'fob , 
ordr_wght 

FROM < 
SELECT 

VARTOTAL =VARWGHT*VARPRICE , 

VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,1), 
* 

FROM C 

SELECT VARID =(CASE I$NULL(ORDR_BID,0) WHEN 0 THEN ' B 1 +CAST(ORDR_ID AS VARCHAR) ELSE 
CAST(ORDR_ID AS VARCHAR) END), 

VARSHIP =(CASE ORDR_SHIP WHEN '0' THEN "Inventory 1 WHEN '1' THEN 'Dispatched' WHEN '2' THEN 
'En route' WHEN '3 l THEN 'Delivered' END), 

VARDATE =LEFT(CONVERT(VARCHAR,ORDR_DATE, 101 ) ,5) , 

VARSIZE =CAST(ORDR QTY AS VARCHAR)+ 1 ' +CCASE ORDR_SIZE WHEN 0 THEN 'Truckload' WHEN 1 THEN 
'Rail Car' END)+(CASE ORDRJ5TY-1 WHEN 0 THEN " ELSE 's' END), 

VARCONTRACT=( SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 
VARBRAND =(SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR BRAN), 
VARPRICE =ORDR PRCE+ORDR_SHIP_PRCE, 

VARWGHT =ISNULL(ORDR_WGHT,ORDR_QTY*(CASE ORDR_SIZE WHEN 0 THEN 42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL((SELECT PLAC_LABL FROM PLACE WHERE PLAC ID=ORDR_TO) , C SELECT LOCL_CITY+', 
•+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM~PLACE WHERE PLAC_ID=ORDRjrO))), 

FROM ORDERS 

WHERE (CASE aCompId WHEN '0' THEN 0RDR_BUYR ELSE (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=ORDR BUYR) END) = (CASE acompld WHEN^O 1 THEN SPersId ELSE aCompId END) AND 
Month(3Date)=Month(0RDR DATE) AND 
Year(3Date)=Year(ORDR DATE) AND 

(CASE aNum WHEN '0* THEN aNum ELSE ORDR_C0NT END) LIKE 3Num 

)Q 
)Q0 
WHERE ( 



(CASE aSCoL WHEN 'VARDATE' THEN VARDATE 
WHEN 1 ORDR BUYR' THEN CAST(ORDR_BUYR AS VARCHAR) 
WHEN 1 VARID 1 THEN VARIO 
WHEN 'VARSHIP' THEN VARSHIP 
WHEN 1 VARCONTRACT 1 THEN VARCONTRACT 
WHEN 'VARBRAND' THEN VARBRANO 

WHEN 1 VARTOTAL 1 THEN CASTCVARTOTAL AS VARCHAR) 
WHEN 1 VARDUE ' THEN CASTCVARDUE AS VARCHAR) 
WHEN 'VARSIZE' THEN VARSIZE 

WHEN 'VARPRICE' THEN CASTCVARPRICE AS VARCHAR) 

WHEN 1 VARPLACE 1 THEN VARPLACE 

WHEN 'ALL' THEN ' ' 

ELSE asearch 
END) LIKE 'K'+aSearch+'r. 1 OR 
(VARDATE LIKE ' % ' +3Search+ * % ' OR 
ORDR_BUYR LIKE 1 % ' +3Search+ ' % 1 OR 
VARID LIKE , % , +aSearch+ , %' OR 
VARSHIP LIKE ' % * +3Search+ ' % ' OR 
VARCONTRACT LIKE ' % ' +aSearch+ ' % 1 OR 
VARBRAND LIKE ' % ' +3Search+ ' X ' OR 
VARSIZE LIKE 1 % ' +3Search+ ' % ' OR 
VARPRICE LIKE , % , +aSearch+ , % 1 OR 
VARTOTAL LIKE ' % 1 +aSearch+ ' % ' OR 
VARDUE LIKE 1 % 1 +asearch+ 1 % ' OR 
VARPLACE LIKE ' % ' +aSearch+ ' % ' ) AND aScol^ALL 1 ) 
ORDER BY 1 ASC 
ELSE 

IF aCol='VARSHIP' OR 3Co L= 1 VARCONTRAT 1 OR aCol= 1 VARPLACE 1 
SELECT (CASE 3CoL WHEN 'VARSHIP' THEN VARSHIP 



WHEN 1 VARCONTRACT 1 THEN VARCONTRACT 

WHEN 1 VARPLACE 1 THEN VARPLACE 
END), 
ORDR ID 

VARSHIP , 

VARDATE 

VARID 

VARSIZE 

VARCONTRACT 

VARBRAND 

VARPRICE , 
VARTOTAL , 
VARDUE 
VARPLACE 

ORDR_GENE , 
VARWGHT , 
ORDR_TO , 
ORDR_FOB , 
ORDR_WGHT 
FROM ( 
SELECT 

VARTOTAL =VARWGHT*VARPRICE , 

VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE, 1 ), 
FROM C 

SELECT VARID =<CASE ISNULL(ORDR BID,0) WHEN 0 THEN 1 B 1 +CASTCORDR ID AS VARCHAR) ELSE 
CAST(ORDR_ID AS VARCHAR) END) , 

VARSHIP =(CASE ORDR_SHIP WHEN '0' THEN 'Inventory* WHEN '1' THEN 'Dispatched' WHEN '2' THEN 
'En route' WHEN '3' THEN 'Delivered 1 END), 

VARDATE =LEFT( CONVERT (VARCHAR, ORDR DATE, 101), 5), 

VARSIZE =CAST(ORDR GTY AS VARCHAR)? 1 '+(CASE ORDR SIZE WHEN 0 THEN 'Truckload' WHEN 1 THEN 
'Rail Car* END)+(CASE 0RDR_QTY-1 WHEN 0 THEN " ELSE ' s T END), 

VARCONTRACT- ( SELECT CONT_LABL FROM CONTRACT WHERE C0NT_ID=0RDR_C0NT) , 
VARBRAND =(SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) , 
VARPRICE =ORDR_PRCE+ORDR_SHIP_PRCE, 

VARWGHT =ISNULL(ORDR_WGHT,ORDR QTY*(CASE ORDR_SIZE WHEN 0 THEN 42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL((SELECT PLAC LABL FROM PLACE WHERE PLAC ID=ORDR TO), (SELECT LOCL CITY+ 1 , 
'+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM~PLACE WHERE PLAC_ID=ORDRJTO) ) ) , 
* 

FROM ORDERS 
WHERE (CASE 



acompld WHEN '0* THEN 0RDR_BUYR ELSE (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=ORDR_BUYR) END>=(CASE aCompId WHEN '0' THEN QPersId ELSE SCompId END) AND 
Month(aDate)=Month(ORDR_DATE) AND 
Year(aDate)=Year(ORDR_DATE) AND 

(CASE 3Num WHEN '0' THEN 3Num ELSE ORDR_CONT END) LIKE aNum 

)Q 
)Q0 

WHERE ((CASE 3SCol WHEN ' VARDATE 1 THEN VARDATE 

WHEN 1 ORDR_BUYR 1 THEN CAST(ORDR_BUYR AS VARCHAR) 

WHEN 1 VARID 1 THEN VARID 

WHEN 'VARSHIP' THEN VARSHIP 

WHEN 'VARCONTRACT' THEN VARCONTRACT 

WHEN 'VARBRAND' THEN VARBRAND 

WHEN 'VARTOTAL' THEN CASUVARTOTAL AS VARCHAR) 
WHEN 'VARDUE' THEN CAST(VARDUE AS VARCHAR) 
WHEN 'VARSIZE' THEN VARSIZE 

WHEN 'VARPRICE' THEN CAST(VARPRICE AS VARCHAR) 

WHEN 'VARPLACE' THEN VARPLACE 

WHEN 1 ALL* THEN 11 

ELSE SSearch 
END) LIKE , % , +aSearch+'%' OR 
(VARDATE LIKE ' % 1 +3Search+ ' % ' OR 
ORDR BUYR LIKE ' % ' +aSearch+ 1 % ' OR 
VARID LIKE , %'+aSearch+ , %' OR 
VARSHIP LIKE ' % ' +3Search+ * % ' OR 
VARCONTRACT LIKE ' % ' +aSearch+ 1 % ' OR 
VARBRAND LIKE 1 % ' +3Search+ ' % ' OR 
VARSIZE LIKE ' % ' +3Search+ ' % ' OR 
VARPRICE LIKE ' % ' +3Search+ ' % ' OR 
VARTOTAL LIKE 1 % ■ +3Search+ * % ' OR 
VARDUE LIKE ' % ' +SSearch+ ' % ' OR 



VARPLACE LIKE ' % ' +3Search+ ' % ' ) AND aScol^ALL') 
ORDER BY 1 DESC 
ELSE 

SELECT (CASE 3CoL WHEN ' ORDR DATE 1 THEN CASTCORDR DATE AS FLOAT) 

WHEN ' VARWGHT 1 THEN VARWGHT 

WHEN 'VARTOTAL' THEN VARTOTAL 

WHEN ' VARDUE 1 THEN VARDUE 

WHEN 'VARPRICE' THEN VARPRICE 

ELSE ORDR_ID 
END), 
ORDR_ID 

VARSHIP , 
VARDATE 

VARID , 
VARSIZE 
VARCONTRACT 
VARBRAND , 
VARPRICE , 
VARTOTAL 
VARDUE 
VARPLACE 

ORDRJ5ENE , 
VARWGHT , 
ORDR TO 
ORDR~FOB 
ORDR WGHT 
FROM C 
SELECT 

VARTOTAL =VARWGHT*VARPRICE , 

VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE,1), 
* 

FROM C 

SELECT VARID =(CASE ISNULL(ORDR_BID / 0) WHEN 0 THEN 1 B 1 +CAST(ORDR_ID AS VARCHAR) ELSE 
CAST(ORDR_ID AS VARCHAR) END) , 

VARSHIP =(CASE ORDR_SHIP WHEN '0' THEN 'Inventory* WHEN 'V THEN 'Dispatched' WHEN '2' THEN 
'En route' WHEN '3* THEN 'Delivered' END), 

VARDATE =LEFT( CONVERT (VARCHAR, ORDR_DATE, 101 ),5), 

VARSIZE =CAST(ORDR_QTY AS VARCHAR)+ ' 1 +<CASE ORDR_SIZE WHEN 0 THEN 'Truckload' WHEN 1 THEN 
'Rail Car' END) + (CASE ORDR CtTY-1 WHEN 0 THEN " ELSE 's' END), 

VARCONTRACT=( SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 
VARBRAND =C SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) , 
VARPRICE =ORDR_PRCE+ORDR_SHIPJ>RCE, 

VARWGHT =ISNULL(ORDR_WGHT,ORDR_QTY*(CASE ORDR SIZE WHEN 0 THEN 42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL( (SELECT PLACJ_A8L FROM PLACE~WHERE PLAC_ID=ORDR TO), (SELECT L0CL_CITY+', 
1 +LOCL STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR TO))), 
* 

FROM ORDERS 

WHERE (CASE SCompId WHEN '0' THEN ORDR_BUYR 



ELSE (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=OR0R_BUYR) END)=(CASE aCompId WHEN '0' THEN 3PersId ELSE SCompId END) AND 
Month(3Date)-Month(ORDR DATE) AND 
Year (aDate)-Year (ORDR_DATE) AND 

(CASE 3Num WHEN '0' THEN 3Num ELSE ORDR_CONT END) LIKE 3Num 

)Q 
)Q0 

WHERE ((CASE 3SCol WHEN 'VARDATE' THEN VARDATE 

WHEN 1 ORDR BUYR' THEN CAST(ORDR_BUYR AS VARCHAR) 

WHEN ' VARID 1 THEN VARID 

WHEN 'VARSHIP' THEN VARSHIP 

WHEN ' VARCONTRACT 1 THEN VARCONTRACT 

WHEN 'VARBRAND' THEN VARBRAND 

WHEN 'VARTOTAL' THEN CAST(VARTOTAL AS VARCHAR) 

WHEN 1 VARDUE 1 THEN CAST(VARDUE AS VARCHAR) 

WHEN 'VARSIZE' THEN VARSIZE 

WHEN 'VARPRICE' THEN CAST(VARPRICE AS VARCHAR) 

WHEN 'VARPLACE' THEN VARPLACE 

WHEN 'ALL' THEN ' ' 

ELSE aSearch 
END) LIKE , %'+3Search+ , %' OR 
(VARDATE LIKE 1 % ' +3Search+ ' % 1 OR 
ORDR BUYR LIKE ' % ' +3Search+ ' % ' OR 
VARID LIKE , % I +aSearch+'%' OR 



VARSHIP LIKE ' % ' +3Search+ 1 % ' OR 
VARCONTRACT LIKE • % ' +3Search+ 1 % 1 OR 
VARBRAND LIKE ' % ' +3Search+ ' % 1 OR 
VARSIZE LIKE * % ' +3Search+ 1 % ' OR 
VARPRICE LIKE 1 % 1 +3Search+ ' % 1 OR 
VARTOTAL LIKE ' % ' +3Search+ ' % ' OR 
VARDUE LIKE ' % 1 +3Search+ ' % 1 OR 
VARPLACE LIKE ' % ' +3Search+ ' % ' ) AND aScol^ALL') 
ORDER BY 1 DESC 
RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED IDENTIFIER ON SET ANSI NULLS ON 
GO 



CREATE Procedure spPFOCaL 
aid numeric = NULL 
As 

select expr,count(ORDR_ID) from (select expr=lef t (convertCvarchar/Ord^date^OI ) / 2) / ORDR_ID from 
orders where ordr_buyr=3Id and ordr_date >= dateadd(month / -12,getdate()))Q group by expr order by 
expr ASC 
return 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



SET QUOTED IDENTIFIER ON SET ANSIJIULLS ON 
GO 



CREATE Procedure spPT 
aPersId numeric = NULL 
AS 

/*********************^ 

** File: spPT.sql 

** Name: spPT 

** Desc: Purchaser Terms 

** 

*******************^^ 

** Change History 

*********************^ 

** Date: Author: Description: 

** 12/0 



4/2000 Gerald Colin Purchaser Terms 

** 

***************************^^ 
SELECT 

ORDR_ID / ORDR_SHIP / VAR0ATE / ORDR_BID / ,VARSIZE / VARCONTRACT / VARBRAND, VARPRICE, VARWGHT*VARPRICE*ISNULL(ORD 
R„BUYR_RATE / 1)+0RDR_BUYR_PAID,VARWGHT*VARPRICE*ISNULL(0RDR_BUYR_RATE / 1) / VARPLACE / 0RDR_GENE / 0RDR WGHT 
,0RDR_T0 FROM (SELECT 0RDR_ID,0RDR SHIP, LEFT (CONVERT(VARCHAR / ORDR DATE, 101 ) ,5) AS 
VARDATE,ORDR_BID,CAST(ORDR_QTY AS VARCHAR)+ 1 '+(SELECT PARA VALU FROM PARAMETER WHERE 
PARA_NAME= 1 NAME 1 AND PARA_CODE=ORDR_SIZE) AS VARSIZE, (SELECT C0NT_LABL FROM CONTRACT WHERE 
CONT_ID=ORDR_CONT) AS VARCONTRACT, ( SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) AS 
VARBRAND / ORDR_PRCE+ORDR_SHIPJ>RCE AS VARPRICE, I SNULL(ORDR_WGHT,ORDR_QTY*( SELECT CAST(PARA_VALU AS 
NUMERIC) FROM PARAMETER WHERE PARA_NAME= ' SIZE ' AND PARA CODE=ORDR SIZE)) as 
VARWGHT,ORDR_BUYR_RATE,ORDR BUYR PAID, (SELECT LOCL_CITY+', '+LOCL~STAT FROM LOCALITY WHERE 
LOCL_ID=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR TO)) AS 

VARPLACE / ORDR_GENE,ORDR_TO / ISNULLCORDR WGHT, (SELECT PARA_VALU FROM PARAMETER WHERE PARA_NAME= ' SIZE ' 
AND PARA_CODE=ORDR_SIZE)) AS ORDRJJGHT FROM ORDERS WHERE 0RDR_ID=3PersId)Q 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
60 

SET QUOTED IDENTIFIER ON SET ANSI_NULLS ON 
GO 



CREATE Procedure spPT1 

STerm varchar(IOOO) = NULL, 
aid numeric = NULL 

As 

UPDATE ORDERS SET ORDR_TERM=aTerm WHERE 0RDR_ID=3Id 
return ~ 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spPTransactionEngine 

30rder_Id numeric = NULL, 

aComp_Id numeric = NULL, 

aValid numeric = 0, 

3Pers_Id numeric = NULL, 

aCont_Id numeric = NULL, 

3Qty int = NULL, 

aPrice varchar(5) = NULL, 

asize bit = NULL, 

3LocL0 numeric = NULL, 

3LocL1 numeric = NULL, 

3Mess varchar(8000) = NULL, 

aErrMsg varchar(8000) OUTPUT 
AS 

/************************************************^ 

** File: spTransactionEngine.sqL 

** Name: spTransact ionEngine 

** Desc: sproc for the transaction engine 

** 

** 

** Return values: 1 if it's good 

** 

** 

*******************************************^^ 
** Change History 

***************************************** 
** Date: Author: Description: 

** 11-15-2000 Gerald Colin Transaction Engine for ThePlasticsExchange.com 
** 

**********************************^ 
DECLARE astr varchar(4000) , 

aFPrice decimal(5>, 

3Buyer_Mail varchar(SO), 

SDelPoint varchar(80 



-00), 

aDate varchar(20), 

aobjMail int, 

3i decimal(4,3), 

aj decimal, 

3k decimal, 

at numeric, 

am int, 

Sstrl varchar(4000), 
3str2 varcharUOOO), 



astr3 varchar(8000), 
3StrMaiU varchar<8000) , 
3StrMail2 varchar(8000) , 
astrMaU3 varchar (8000), 
astrA varchar (8000), 
3Bid_Id numeric, 
aBid_Prce decimal(4,3), 
3Bid_Qty int, 
3Bid_Size bit, 
3Locl_To varchar (4000), 
aBran_Name varchar<8000), 
3ContJ_abl varcharC8000), 
3Locl_From varchar (8000), 
aselrjlail varchar<8000), 
astrTempI varchardOO) , 
astrTemp2 varchap<100), 
astrTemp3 varchardOO), 
astrTemp4 varchardOO), 
astrTempS varchardOO), 
aMaxOrderld numeric, 

— columns of offer table — use with the cursor 

aoffr_Id numeric, 

aoffr_Selr numeric, 

aoffr_Bran numeric, 

30ffr_Cont numeric, 

aoffr_From numeric, 

aoff r_From_Locl numeric, 

30ffr~Qty int, 

30ffr_Prce decimal(4,3) , 

30ffr_Size bit, 

30ffr_Date smalldatetime, 

30ffrJ3ene bit, 

aof f r_Selr_Comp numeric, 

aOffr_Bran Comp numeric, 

aoffr_Fob bit, 

ashipPrce decimal(4,3), 

aShipPrceFull decimal(19,3), 

3Expr decimal<4,3) 
— Init Vars — 
Set 3k = 0 

END Init Vars — 
PRINT ' ******************************* ' 
PRINT ***** Transaction Engine ****' 
IF NOT(aOrder_Id IS NULL ) 

SET 3FPrice = (SELECT BID_QTY*BID_PRCE*(42000*(1-BID_SIZE)+190000*BID_SIZE) FROM BID WHERE BID_ID 
aorder Id) 
ELSE 
SET 3FPrice = 0 

SELECT 3k=CRED_AVLB+aFPrice FROM CREDIT WHERE CRED_C0MP = SComp Id 



J.NSERT INTO BID (BID.BUYR^ID^ONT^ID.QTY^ID^PRCE^ID.SIZE^ID^TO^OCL^ID.TO/BID.BUYR^OMP) 
VALUES OPers - Id / SCont_Id,aQty, 'O. 1 +3Pri ce,asi ze,3Loc LO/aLocll ,aComp Id) 
SELECT 3Bid_Id = 33IDENTITY 

SELECT 3DelPoint = LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE LOCL_ID = aLoclO 
SELECT aBuyer_«ail = PERS HAIL FROM PERSON WHERE PERS_ID=aPers_Id 
IF 30rder_Id IS NULL 

Set astr = '3' 
ELSE 

Set astr = l 5' 

Set 3Mess = '#' + C0NVERT<varchar(8),aBid Id) +' '+ aMess 

INSERT INTO MESSAGE <MESS_COMP / MESS_TO,MESS_FROM / MESS JTEXT/MESSJTYPE) VALUES 
(aComp^Id/aPers^d/O/aMesS/astr) 
IF asize = 0 
BEGIN 

DECLARE csShotMarket CURSOR FOR 
SELECT 

Off r_Id,Offr_Selr,Off r_Bran,Of f r_Cont,Of f r_f rom,Of f r_FromJ.ocl,Of f r_Qty,Of f r_Prce,Of f 



r Size/Off r_Dat 

e,Off rJ3ene 7 Off r_Selr_Comp, Of f r_Bran Comp,Offr fob,EXPR = 

OFFRJ>RCE+SHIPJ>RCE / SHIP_PRCE,SHIPJ>RCE FULL FROM (SELECT *,SHIP PRCE=OFFR FOB*ISNULL( (SELECT 
SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=aioc 10 AND 

SHIP_FROM_LOCL=OFFR_FROM_LOCL),0) / SHIP_PRCE FULL=OFFR_FOB*ISNULL( (SELECT SHIP_PRCE FULL TRUC FROM 
SHIPPING WHERE SHIP_TOJ_OCL=aLocLO AND SHIP_FROM_LOCL=OFFR FROM LOCL),0) FROM OFFER WHERE 



0FFR_SIZE=0 AND 0FFR_C0NT=aCont_Id AND SComp Id NOT IN (SELECT TRST_NOT TRST FROM TRUST WHERE 
TRST_COMP=OFFR_SELR_COMP AND TRST_CONT&POWER(2,OFFR_CONT-l )<>0) AND OFFR_BRAN COMP NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST C0MP=3Comp Id AND TRST CONT&POWER(2,OFFR_CONT-1 )<>0) )Q0 WHERE 
OFFR_PRCE< (aPrice/1000.0 +0.001-SHIP J>RCE) ORDER BY EXPR ASC,OFFR ID ASC 

OPEN csShotMarket 

Set 3j = 42000.0 

Set 31 = 0.97 

Set 3Str1 = 'TruckLoad' 
END 
ELSE 
BEGIN 

DECLARE csShotMarket CURSOR FOR 
SELECT 

Off r_Id,Off r_Selr,Off r_Bran,Off r_Cont,0ff r_f rom,Off r_From Loc l,Of f r_Qty,0f f r_Prce,Of f r_Si ze,Of f r_Dat 
e, Of f r_Gene, Of f r_Se I r_Comp, Of f r_Bran_Comp, Of f r_f ob, EXPR =~ 

OFFR„PRCE+SHIP_PRCE,SHIP_PRCE,SHIP_PRCE FULL FROM (SELECT *, SH I P_PRCE=OFFR_FOB*ISNULL( (SELECT 
SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP TO LOCL=aioclO AND 

SHIP_FROMJ_OCL=OFFR_FROM_LOCL) / 0),SHIP_PRCE FULL=OFFR FOB*ISNULL((SELECT SHIP PRCE FULL_RAIL FROM 
SHIPPING WHERE SHIP_TO_LOCL=aLoclO AND SHIP_FR0M LOCL=OFFR FROM_LOCL) ,0) FROM~OFFER WHERE 
OFFR_SI2E=1 AND 0FFR_C0NT=3Cont_Id AND aComp Id NOT IN (SELECT TRSTJIOT TRST FROM TRUST WHERE 
TRST_COMP=OFFR_SELR_C0MP AND TR ST_C0NT&POW ER?2 , 0 F F R CONT-DOO) AND OFFR BRAN_C0MP NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRSTjr0MP=3Comp Id AND TRST CONT&POWER(2,OFFR_CONT-1 )<>0) )Q0 WHERE 
OFFR_PRCE< (aPrice/1000.0 +0 . 001-SHIP_PRCE) ORDER BY EXPR ASC,OFFR_ID ASC 

OPEN csShotMarket 

Set aj = 190000.0 

Set ai = 0.9 



8 

Set 3Str1 = 'Rail Car' 
END 

FETCH NEXT FROM csShotMarket INTO 

30ff r_Id,30ff r_Selr,30f f r_Bran,30ff r_Cont,30ff r_f rom,30ff r_FromJ_ocl,aOf f r_Qty,aOff r_Prce,30ff r_Size 
,a0f f r_Date,30ff r_Gene,30f f r^Sel^Comp^Of f r_Bran_Comp,30f f r_f ofc^aExpr^ShTpPrce^Shi pPrceFull 
WHILE <33FETCH_STATUS=0 AND 3Qty!=0) 
BEGIN 

PRINT '======:===:=:====' 

SELECT 

aoff r_Id, aoff r_Selr, 30ff r_Bran,aoff r_Cont, aoff r_f rom, aoff r_From_Locl,30f f r_Qty,30f f r J>rce,aOf f r Size 
,30ff r_Date,30ff rJSene, aof f r_Selr_Comp, 30ff r_Bran Comp,30ff r f ob,3Expr,3ShipPrce,3ShipPrceFull 

PRINT '============:==' 

PRINT 'BOUCLE' 
SELECT 3Qty 
SELECT ai 
PRINT 'BOUCLEV 
IF 30ff r_Qty>3Qty 
BEGIN 

Set ai = aaty 

UPDATE OFFER SET OFFR QT Y=0 F F R_QT Y-3 i WHERE OFFR ID=30ffr_Id 

DELETE FROM BID WHERE~BID ID=3Bid_Id 
END 
ELSE 
BEGIN 

Set 3i = aoffr Qty 

DELETE FROM OFFER WHERE 0FFR_ID=30f f r Id 
END 

— Credit Available 
PRINT 1 <CREDIT>' 
SELECT ai 
SELECT 3Expr 
SELECT aj 

SET 3k = 3k - 3i*3Expr*3j 

SELECT 3k 

PRINT X/CREDITV 

— Filled order and message inserts 
IF 3i>1 



set astr2 = 's' 
ELSE 
Set 3Str2 = ' ' 

SELECT 3BRAN_NAME = BRAN NAME FROM BRAND WHERE BRAN ID=30ffr Bran 

SELECT 3C0NT_LABL = CONTJ.ABL FROM CONTRACT WHERE CONT_ID=aO?f r Cont 

SELECT 3L0CL_FR0M = LOCLJUTY+', 1 +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=30f f r From LocL 



SELECT 3SELR_MAIL = PERSJ1AIL FROM PERSON WHERE PERS_ID=30f f r_Selr 

— ATTENTION : FormatCurrency ( RecOC "OFFR PRCE" ) ,3,0,-2,-2) 

Set astrTernpl = 30ffr_Id 

Set 3StrTemp2 = 3i 

Set 3StrTemp3 = 3Cont_Labl 

Set 3StrTemp4 = 30ffr_Prce 

Set astrTempS = aoffr™Prce *ai*3j*3l 

PRINT 1 IMPORTANT' 

SELECT 3StrTerap5 

PRINT '/ IMPORTANT* 

Set astr3 = '#'+ 3StrTemp1 + 1 You sold ' +aStrTemp2+' '+3Str1+astr2+' of ' + 3StrTemp3 + ' ('+ 
3Bran_Name +') for '+ SStrTempA +' per pound. Shipping from '+3Locl_From +'. Estimate Value net of 
exchange fees: '+ 3StrTemp5 

— PRINT 'que* 

PRINT 3off r_Selr_Comp 

SELECT BDate = GETDATEO 

Set astrMaill = '<font face=arial size=2 color=bLack> 1 + 3Date + ': ' 
Set 3StrMail2 = 3Str3 

Set 3StrMail3 = '<br><br><brXa href ="http: //www. ThePlasticsExchange. com">The Plastics 
Exchange</a>' 
— - WOUH Mail — 

EXEC master. .sp_OACreate 'TPEMai I .NewMai I ■ , 3objMail OUT 

EXEC master. .sp_OAMethod 3objMaiL, 'Init', NULL, 
1 i nf oathep Last i csexchange . com 1 , 3SELR_MAIL, 1 ' , ' Fi I led Order 1 
— EXEC master. .sp_OAMethod aobjMail, 'Init 1 , NULL, 

1 info3theplasticsexchange.com' , ' Gera IdSTheP last i csExchange. com 1 , ' ' , ' Fi lied Order' 
EXEC master. ,sp_OAMethod aobjMail, 1 AddContent ' , NULL, astrMaill 
EXEC master. .sp_OAMethod aobjMail, 'AddConte 



nt', NULL, 3StrMail2 

EXEC master. .sp_OAMethod aobjMail, 'AddContent', NULL, 3StrMail3 
EXEC master. . sp_OAMethod SobjMail, 'Send' 
EXEC master. .sp_OADestroy 3objMail 

INSERT INTO MESSAGE (MESS_COMP, MESS_TO, MESS FROM, MESS_TEXT, MESS TYPE) VALUES 
<3off r_Selr_Comp,aoff r_Selr,0,astr3, '1 ' ) 

Set aStrTernpl = 3Bid_Id 

Set 3StrTemp2 = ai 

Set 3StrTemp3 = 3Cont_Labl 

Set 3StrTemp4 = 3Expr~ 

Set astrTempS = 3Expr*3i*aj 

Set 3Str4 = '#'+ astrTernpl +' You bought '+astrTemp2 + ' '+ astrl + 3Str2 + 1 of '+ 3StrTemp3 +' for 
' + 3StrTemp4 +' per pound. Delivery to '+ 3DelPoint + '. Estimate Value of '+ 3StrTemp5 

EXEC master. .sp_OACreate ' TPEMai l.NewMai 1 ' , aobjMail OUT 

EXEC master. .sp_OAMethod aobjMail, 'Init', NULL, 
' info3theplasticsexchange.com' ,3Buyer_mai I, ' ', ' Fi lied Order' 
— EXEC master. .sp_OAMethod aobjMail, 'Init', NULL, 

1 info3thep last icsexchange. com' , 'Gerald3ThePlasticsExchange.com' , " , ' Fi lied Order' 
EXEC master. .sp^OAMethod aobjMail, ' AddContent 1 , NULL, 3StrMail1 
EXEC master. .sp_OAMethod aobjMail, 'AddContent', NULL, 3Str4 
EXEC master. .sp_OAMethod aobjMail, 'AddContent 1 , NULL, 3StrMail3 
EXEC master. .sp_OAMethod aobjMail, 'Send' 
EXEC master. . sp_OADest roy 



aobjHai L 

INSERT INTO MESSAGE (MESS COMP,MESS TO/MESS FROM, HESS_TEXT / MESS TYPE) VALUES 
CaComp Id / 3Pers_Id / 0,astr47 , 1 1 ) 
— FAIRE L 1 ENVOI DE MAIL 

INSERT INTO ORDERS 

(ORDR_CONT,ORDR_SIZE / ORDR - SHIP / ORDR - BID / ORDR_BUYR,ORDR_TO / ORDR_BRAN / ORDR_OFFR / ORDR SELR,0RDR FROM,OR 
DR_QTY / ORDR_PRCE / ORDR_SHIP_PRCE / ORDR_GENE / ORDR_SHIP — FULL_PRCE,ORDR_FOB) VALUES 

OCont^Id^Size, l 0' / aBid_Id / aPers_Id,aLocL1 / aoff r_Bran,aOf f r_Id,aOf f r_Selr,aOf f r_From,ai ,30f f r_Prce, 
aShipPrce,0 / ashipPrceFuLl / aof f r_Fob) 

SELECT 3MaxOrderId = 33IDENTITY 

Set am = 1 
WHILE 3m<=ai 
BEGIN 

INSERT INTO SHIP (SHIP_ORDR) VALUES QMaxOrderld) 
Set 3m = 3m + 1 
END 



Set 3Qty = 3Qty - ai 



FETCH NEXT FROM csShotMarket INTO 
aof f r_Id,30ff r_Selr,30ff r_Bran,30f f r_Cont,30ff r_f rom,30f f r^From^Locl/aof f r_Qty,30ff r_Prce,aoff resize 
,aof f r_Date,aof f r_Gene,ao7f r_SeLr_Comp,aof f r_Bran_Comp / aoffr_fob / aExpr / aShipPrce / aShipPrceFuU 

END 

CLOSE csShotMarket 
DEALLOCATE csShotMarket 

IF aaty=o 

BEGIN 

UPDATE CREDIT SET CRED_AVLB=3k WHERE CRED COMP=3Comp_Id 

DELETE FROM BID WHERE BID ID=aBid_Id 
END 
ELSE 
BEGIN 

UPDATE CREDIT SET CRED AVLB=3k-3Qty*(3Pr i ce/1 000>*3 j WHERE CRED COMP=3Corop Id 
UPDATE BID SET BID_QTY=3Qty WHERE BID_ID=3Bid Id 
END 

— Working Order Cancel 
IF NOT 30rder_Id IS NULL 
BEGIN 

SELECT 3Bid Prce=BID PRCE, 3Bid Qty=BID_QTY / 3Bid Size = BID_SIZE, 3Cont Labl=(SELECT CONT LABL 
FROM CONTRACT WHERE CONT_ID=BID_ CONT) ,3Loc I To=<ISNULL((SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID=BID_CONT), (SELECT LOCL_CITY+ , / 1 +LOCL STAT FROM LOCALITY WHERE L0CL_ID=BID_T0_L0CL) ) ) FROM 
BID CONTRACT WHERE BID_ID=30rder_Id 
IF 3Bid_Size=0 
BEGIN 
Set 3j =42000 
Set astr = 3Bid_Qty 
Set 3Str= astr + ' Truckload' 
END 
ELSE 
BEGIN 
Set 3j=190000 

Set astr = 3Bid Qty +' RaiL car' 
END 

IF CAST(aBid_Qty AS int) 



>1 

Set 3Str = astr+'s 1 



Set 3StrTemp1 = aOrder_Id 
Set astrTemp2 = 3Cont_LabL 
Set aStrTemp3 = aBid_Prce 
Set astrTemp4 = aLoclJTo 

Set astrTempS = (3Bid~Prce * 3Bid_Qty * aj) 



SELECT BMess = '#*+astrTemp1+' to BUY '+astr+' of 1 +3St rTemp2+ ' for l +astrTemp3+' per pound. To be 
delivered to 1 +astrTemp4+ 1 . Estimate value '+ astrTempS 

INSERT INTO MESSAGE (MESS_COMP / MESS TO,MESS FROM,MESS TEXT, MESS TYPE) VALUES 
CaComp_Id,3Pers_Id / 0 / aMess / '2' ) 

— FormatCurrency(Rec0C0) / 3,0 / -2 / -2) 

DELETE FROM BID WHERE BID ID=aOrder_Id 
END 

RETURN 1 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spPWO 

3BidId varchardO) = NULL 
AS 

/*************************************^^ 
** File: spPWO.sql 
** Name: spPWO 

** Desc: Purchaser Working Orders 
** 

************************************** 
** Change History 

******************************************************************************* 
** Date: Author: Description: 

** 12/04/2000 Gerald Colin Purchaser Working Orders 
** 

*******************************************************************************/ 
DECLARE 3BidPrce varchardO), 

3BidQty varchar(2>, 

SParaValu varchar(20), 

aContLabl varchar(60), 

aPrce varchar(20), 

3Locl varchar(200) / 

astr varchar(2), 

aPersId varchardO), 

acompld varchardO) 
DECLARE myCurs CURSOR FOR 
SELECT BIDJ>RCE, 

BIDJ3TY, 

(CASE BID SIZE WHEN 0 THEN 'Truckload* ELSE 'Rail Car* END), 

(SELECT CONT LABL FROM CONTRACT WHERE CONT_ID=BID_CONT), 

(CASE BID_SIZE WHEN 0 THEN 42000 ELSE 190000 END)*BID_PRCE*BID QTY, 

ISNULLUSELECT PLAC LABL FROM PLACE WHERE PLAC_ID=BID_TO) ,( SELECT LOCL_CITY+', *+L0CL_STAT FROM 
LOCALITY WHERE LOCL ID=BID_T0_L0CL) ), 
BID_BUYR, 
BID_BUYR_COMP 

FROM BID WHERE BID_ID=3BidId 
OPEN myCurs 

FETCH NEXT FROM myCurs INTO aBidPrce, aBidQty, aParaValu, aContLabl, 3Prce, 3Locl, 3PersId, acompld 

IF 33R0WC0UNTM) 

BEGIN 



uPDATE CREDIT SET CRED AVLB=CRED_AVLB+3Prce WHERE CRED_COMP-aCompId 
SET 3Prce=C0NVERT(VARCHAR, CONVERT ( MONEY, 3Prce, 1 ) ,101 ) 
SET aPrce=LEFT(aPrce,LEN(aPrce)-3) 
IF 3BidQty>1 

SET astr='s' 
ELSE 

SET astr=« ' 

INSERT INTO MESSAGE (MESS_COMP, MESS_TO, MESS_FROM, MESSJTEXT, MESS_DATE,MESS TYPE) 
VALUES(aCompId,aPersId,0, ' # ' +aBidId+ 1 to BUY '+3BidQty+* ' +3ParaValu+3Str+' ' +3ContLabl+* for 

$ , +RIGHT(3BidPrce / LEN(aBidPrce)-1)+' per pound. Delivery to '+3Locl+ l . Estimate value of 

$ ' +3Prce,GETDATE() , 1 4' ) 
DELETE FROM BID WHERE BID_ID=8BidId 

END 

CLOSE myCurs 
DEALLOCATE myCurs 



RETURN 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJWLLS ON 
GO 



CREATE Procedure spSEFI 

aPersId numeric = NULL, 

acompld numeric - NULL, 

3Typ varchar(2> = NULL 

AS 

/**************************^ 
** File: spSEFl.sql 
** Name: spSEFI 

** Desc: Purchaser Exchange Filters 
** 

**************************^ 
** Change History 
*********************************^^ 
** Date: Author: Description: 

** 11/29/2000 Gerald Colin Purchaser Exchange Filters 
** 

*********************** 
IF aTyp='S' 

SELECT C0NT_ID,C0NT_LABL, (SELECT COUNTC*) FROM OFFER WHERE OFFR SELR=3PersId AND 

0FFR_C0NT=C0NT 1D)+ISNULL( (SELECT 0 FROM PERSON WHERE PERS ID=aPersId AND P0WER(2, C0NT_ID-1 )&(SELECT 
PERS_PREF FROM PERSON WHERE PERS_ID=SPersId)=0) , 1 1 ' ) FROM CONTRACT WHERE P0WER(2, C0NT_ID-1 )&(SELECT 
COMPJ>REF FROM COMPANY WHERE C0MP_ID=3CompId)<>0 AND ISNULL(P0WER(2, CONT ID-1 )&(SELECT DISTINCT 
TRST_C0NT FROM TRUST WHERE TRST COMP=aCompId) ,0)=0 AND CONT ID IN (SELECT DISTINCT BRAN CONT FROM 
BRAND WHERE BRAN_COMP=aCompId) ORDER BY CONT_0RDR 
ELSE — distributor 

SELECT C0NT_ID,C0NT LABL, (SELECT COUNTC*) FROM OFFER WHERE OFFR_SELR=aPersId AND 

OFFR_CONT=CONT_ID)+ISNULL((SELECT 0 FROM PERSON WHERE PERS_ID=3PersId AND P0WER(2,C0NT ID-1 )&(SELECT 
PERS_PREF FROM PERSON WHERE PERS_ID=aPersId)=0) , 1 V ) FROM CONTRACT WHERE P0WERC2, C0NT_ID-1 )&( SELECT 
COMP_PREF FROM COMPANY WHERE COMP ID=3CompId)<>0 AND ISNULL(P0WER(2, C0NT_ID-1 )&(SELECT DISTINCT 
TRST_CONT FROM TRUST WHERE TRST COMPOS 



Compld),0)=0 ORDER BY CONT_ORDR 



GO 

SET QUOTED_IDENTIFIER OFF 
GO 

SET QUOTED IDENTIFIER OFF 
GO 



CREATE Procedure spSFOBis 

SIPersId varchar(IO) = NULL, 

acompld varchardO) = '0 l , 

SDate smalldatetime = NULL, 

SNum varchardO) = '0', 

SSCoL varchardOO) = '', 

asearch varchar(200) = '0', 

aCoL varcharC200) = " , 

aorder varchar(4) = 'DESC 
AS 

/***************************^ 
** File: spSFO.sql 
** Name: spSFO 

** Desc: Supplier Field Orders 
** 

*****************************^^ 

** Change History 

**********************************^ 

** Date: Author: Description: 

** 11/29/2000 Gerald Colin Supplier Field Orders 

** 

***************************^ 
IF aOrder='ASC' 
IF aCol='VARSHIP' OR 3Col= 1 VARCONTRACT 1 OR 3Col= 1 VARPLACE 1 
SELECT (CASE 3Col WHEN 'VARSHIP' THEN ORDR SHIP 
WHEN 'VARCONTRACT' THEN VARCONTRACT 
WHEN * VARPLACE 1 THEN VARPLACE 
END), 
ORDR^ID 
VARSHIP 



SET ANSIJIULLS ON 
SET ANSI NULLS ON 



VAROATE 
VARID 

VARSIZE , 
VARCONTRACT , 
VARBRAND 

VARPRICE , 

VARTOTAL 

VARDUE 

VARPLACE , 
ORDR_GENE / 
VARWGHT , 
ORDR_FROM 
0RDR_F08 
ORDR_WGHT 
FROM ( 
SELECT 

VARTOTAL =VARWGHT*VARPRICE*(CASE ORDR_SIZE WHEN 0 THEN 0.97 WHEN 1 THEN 0.98 END) , 
VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR BUYR RATE,1 )*(CASE ORDR SIZE WHEN 0 THEN 0.97 WHEN 1 THEN 
0.98 END) , 
* 

FROM ( 

SELECT VARID =CAST(ORDR_ID AS VARCHAR), 

VARSHIP =(CASE ORDR_SHIP WHEN '0' THEN 'Inventory' WHEN 'V THEN 'Dispatched 1 WHEN »2' THEN 
'En route' WHEN '3' THEN 'Delivered' END), 

VARDATE =LE FT (CONVERT (VARCHAR, OR DR_DATE, 101 ) ,5) , 

VARSIZE =CAST(ORDR_QTY AS VARCHAR)+ ! '+CCASE ORDR SIZE WHEN 0 THEN 'TruckLoad' WHEN 1 THEN 
'Rail Car' END)+(CASE ORDRJJTY-1 WHEN 0 THEN 1 ' ELSE 's' END), 

VARCONTRACT=( SELECT CONTJ.ABL FROM CONTRACT WHERE CONT ID=ORDR CONT), 
VARBRAND =(SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) , 
VARPRICE =ORDR_PRCE+ORDR_SHIP_PRCE, 

VARWGHT =ISNULL(ORDR_WGHT,ORDR_QTY*(CASE ORDR_SIZE WHEN 0 THEN 42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL<(SELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=0RDR FROM) , (SELECT LOCL_CITY+', 
'+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=(SELECT PLACJ.OCL FROM PLACE WHERE PLAC_ID=ORDR_FROM) ) ) , 

FROM ORDERS 

WHERE (CASE SCompId WHEN '0* THEN ORDR_SELR ELSE (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=ORDR_SELR) END) = (CASE 3CotnpId WHEN '0' THEN 3PersId ELSE aCompId END) AND 
Month (aDate)=Month(ORDR_DATE) AND 
Year(aDate)=Year(ORDR_DATE) AND 

(CASE 3Num WHEN '0' THEN 3Num ELSE ORDR CONT END) LIKE 3Num 

)Q 
)Q0 
WHERE ( 



(CASE aSCol WHEN 1 VARDATE ' THEN VARDATE 
WHEN 'ORDR SELR 1 THEN CAST(ORDR_SELR AS VARCHAR) 
WHEN 'VARID' THEN VARIO 
WHEN 'VARSHIP' THEN VARSHIP 
WHEN 'VARCONTRACT' THEN VARCONTRACT 
WHEN 'VARBRAND' THEN VARBRANO 

WHEN 'VARTOTAL' THEN CAST(VARTOTAL AS VARCHAR) 
WHEN 1 VARDUE 1 THEN CASTCVARDUE AS VARCHAR) 
WHEN 'VARSIZE' THEN VARSIZE 

WHEN 'VARPRICE' THEN CAST(VARPRICE AS VARCHAR) 

WHEN 'VARPLACE' THEN VARPLACE 

WHEN 1 ALL 1 THEN 11 

ELSE aSearch 
END) LIKE , % , +aSearch+ , %' OR 
(VARDATE LIKE ' % ' +aSearch+ ' % * OR 
ORDR SELR LIKE ' % ' +3Search+ ' % ' OR 
VARID LIKE , % i +aSearch+ , % 1 OR 
VARSHIP LIKE ' % * +3Search+ ' % ' OR 
VARCONTRACT LIKE * % 1 +3Search+ 1 % 1 OR 
VARBRAND LIKE ' % ' +3Search+ ' % 1 OR 
VARSIZE LIKE ' % * +3Search+ ' % * OR 
VARPRICE LIKE 1 % ' +aSearch+ ' % ' OR 
VARTOTAL LIKE ' % ' +3Search+ ' % 1 OR 
VARDUE LIKE 1 % * +3Search+ 1 % ' OR 
VARPLACE LIKE 1 % ' +3Search+ ' % ' ) AND aScol^'ALL') 
ORDER BY 1 ASC 
ELSE 

SELECT (CASE 3CoL WHEN 1 ORDR DATE' THEN CAST(ORDR_DATE AS FLOAT) 
WHEN ' VARW6HT 1 THEN VARW6HT 



WHEN ' VARTOTAL 1 THEN VARTOTAL 
WHEN 'VARDUE' THEN VARDUE 
WHEN 'VARPRICE' THEN VARPRICE 
ELSE ORDR ID 
END), 

ORDR ID , 
VARSHIP , 
VARDATE 

VARID , 

VARSIZE 

VARCONTRACT 

VARBRAND 

VARPRICE 

VARTOTAL , 
VARDUE , 
VARPLACE 
ORDR_GENE 
VARW6HT 

ORDR_FROH , 
ORDR FOB , 
ORDRJJGHT 
FROM < 
SELECT 

VARTOTAL =VARWGHT*VARPRICE*(CASE ORDR_SIZE WHEN 0 THEN 0.97 WHEN 1 THEN 0.98 END) , 
VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR BUYR_RATE, 1 )*( CASE 0RDR_SIZE WHEN 0 THEN 0.97 WHEN 1 THEN 
0.98 END) , 
* 

FROM ( 

SELECT VARID =CAST(ORDR_ID AS VARCHAR), 

VARSHIP =(CASE ORDR_SHIP WHEN 'O 1 THEN 'Inventory' WHEN 'V THEN 'Dispatched 1 WHEN '2' THEN 
•En route* WHEN '3 1 THEN delivered' END), 

VARDATE -LEFT(C0NVERT(VARCHAR,ORDR_DATE,101 ),5), 

VARSIZE =CAST(ORDR_QTY AS VARCHAR)*** 1 1 + CCASE ORDR SIZE WHEN 0 THEN 'Truckload' WHEN 1 THEN 
'Rail Car' END) + CCASE 0RDR_QTY-1 WHEN 0 THEN 11 ELSE ' s T END), 

VARCONTRACT=( SELECT CONT LABL FROM CONTRACT WHERE C0NT_ID=0RDR_C0NT) , 
VARBRAND =(SELECT BRAN_NAME FROM BRAND WHERE BRAN ID=ORDR_BRAN) , 
VARPRICE =ORDR_PRCE+ORDR SHIP PRCE, 

VARWGHT =ISNULL(0RDR_WGHT,ORDR_QTY*(CASE 0RDR_SIZE WHEN 0 THEN 42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL(CSELECT PLAC LABL FROM PLACE WHERE PLAC_ID=ORDR_FROM) ,< SELECT L0CL_CITY+', 
*+LOCL_STAT FROM LOCALITY WHERE L0CL_ID=( SELECT PLAC_LOCL FROM PLACE WHERE PLAC_ID=ORDR FROM))), 
* 

FROM ORDERS 

WHERE (CASE SCompId WHEN '0' THEN ORDR SELR ELSE (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=ORDR_SELR) END)=(CASE SCompId WHEN '0* THEN SPersId ELSE SCompId END) AND 
Month(3Date)=Month(0RDR DATE) AND 



.ear(aDate)=Year(ORDR_DATE) AMD 

(CASE 3Num WHEN '0' THEN 3Num ELSE ORDR_CONT END) LIKE 3Num 

)Q 
)Q0 

WHERE ((CASE 3SCoL WHEN 1 VARDATE 1 THEN VARDATE 

WHEN ' 0RDR_SELR 1 THEN CAST(ORDR_SELR AS VARCHAR) 

WHEN 1 VARID 1 THEN VARID 

WHEN 'VARSHIP' THEN VARSHIP 

WHEN 'VARCONTRACT' THEN VARCONTRACT 

WHEN 'VARBRAND' THEN VARBRANO 

WHEN 'VARTOTAL' THEN CASTCVARTOTAL AS VARCHAR) 
WHEN 'VARDUE* THEN CAST(VARDUE AS VARCHAR) 
WHEN 'VARSIZE' THEN VARSIZE 

WHEN 'VARPRICE* THEN CASTCVARPRICE AS VARCHAR) 

WHEN 1 VARPLACE 1 THEN VARPLACE 

WHEN 'ALL' THEN " 

ELSE aSearch 
END) LIKE , % , +3Search+ , %' OR 
(VARDATE LIKE 1 % ' +3Search+ ' % ' OR 
ORDR SELR LIKE ' % * +3Search+ ' % 1 OR 
VARID LIKE , % , +aSea^ch+ , % , OR 
VARSHIP LIKE 1 % * +3Search+ 1 % * OR 
VARCONTRACT LIKE 1 % ' +3Search+ ' % ' OR 
VARBRAND LIKE ' % 1 +3Search+ ' % ' OR 
VARSIZE LIKE ' % ' +3Search+ 1 % ' OR 
VARPRICE LIKE f % ' +3Search+ ' % 1 OR 



VARTOTAL LIKE ' % ' +3Search+ 1 % ' OR 
VARDUE LIKE 1 % ' +3Search+ ' % * OR 
VARPLACE LIKE ' % ' +3Search+ ' % * ) AND S)Scol= ' ALL* ) 
ORDER BY 1 ASC 
ELSE 

IF 3CoL='VARSHIP' OR 3Col= ' VARCONTRACT' OR 3Col= ' VARPLACE 1 
SELECT (CASE 3CoL WHEN 'VARSHIP' THEN ORDR SHIP 
WHEN 1 VARCONTRACT' THEN VARCONTRACT 
WHEN 'VARPLACE' THEN VARPLACE 
END), 

ORDR ID , 
VARSHIP 

VARDATE , 
VARID 

VARSIZE , 

VARCONTRACT 

VARBRAND 

VARPRICE , 
VARTOTAL , 
VARDUE 
VARPLACE 
ORDR_GENE 
VARWGHT , 
ORDR_FROM , 
ORDR_FOB , 
ORDR_WGHT 
FROM ( 
SELECT 

VARTOTAL =VARWGHT*VARPRICE*(CASE ORDR_SI2E WHEN 0 THEN 0.97 WHEN 1 THEN 0.98 END) 
VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR_BUYR_RATE,t)*(CASE ORDR SIZE WHEN 0 THEN 0.97 WHEN 1 THEN 
0.98 END) , 
* 

FROM ( 

SELECT VARID =CAST(ORDR_ID AS VARCHAR), 

VARSHIP =(CASE ORDR_SHIP WHEN '0' THEN 'Inventory' WHEN 'V THEN 'Dispatched' WHEN '2' THEN 
*En route' WHEN '3* THEN 'Delivered' END), 

VARDATE =LEFT(CONVERT<VARCHAR,ORDR_DATE,101),5), 

VARSIZE =CAST(ORDR_QTY AS VARCHAR)+ 1 1 +CCASE ORDR SIZE WHEN 0 THEN 'Truckload' WHEN 1 THEN 
'Rail Car' END)+(CASE ORDR_QTY-1 WHEN 0 THEN 11 ELSE 's' END), 

VARCONTRACT=< SELECT CONT_LABL FROM CONTRACT WHERE CONT ID=ORDR_CONT) , 
VARBRAND = C SELECT BRAN NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) , 
VARPRICE =ORDR_PRCE+ORDR_SHIP PRCE, 

VARWGHT =ISNULL(ORDR_WGHT,ORDR_QTY*(CASE ORDR_SIZE WHEN 0 THEN 42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL(CSELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=ORDR_FROM), (SELECT LOCL_CITY+', 
'+LOCL STAT FROM LOCALITY WHERE LOCL ID=(SELECT PLAC LOCL FROM PLACE WHERE PLAC ID=ORDR FROM) ) ) , 



FROM ORDERS 

WHERE C CASE 3CompId WHEN '0 1 THEN ORDR_SELR ELSE (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=ORDR_SELR) END>=(CASE SCompId WHEN '0* THEN aPersId ELSE SCompId END) AND 
Month(3Date)=Month(0RDR DATE) AND 
Year(3Date)=Year(0RDR_DAT£) AND 

(CASE 3Num WHEN '0' THEN 3Num ELSE 0RDR_C0NT END) LIKE aNum 

)Q 
)Q0 

WHERE ((CASE 3SCoL WHEN 'VARDATE' THEN VARDATE 

WHEN 1 ORDR_SELR ' THEN CAST(ORDR_SELR AS VARCHAR) 

WHEN 1 VARID 1 THEN VARID 

WHEN WARSHIP' THEN VARSHIP 

WHEN 'VARCONTRACT' THEN VARCONTRACT 

WHEN 'VARBRAND 1 THEN VARBRAND 

WHEN 'VARTOTAL' THEN CAST(VARTOTAL AS VARCHAR) 
WHEN ' VARDUE 1 THEN CAST(VARDUE AS VARCHAR) 
WHEN 'VARSIZE* THEN VARSIZE 

WHEN 'VARPRICE' THEN CAST(VARPRICE AS VARCHAR) 

WHEN 1 VARPLACE 1 THEN VARPLACE 

WHEN 'ALL* THEN ' 1 

ELSE asearch 
END) LIKE , %'+aSearch+ , %' OR 
(VARDATE LIKE ' % 1 +aSearch+ ' % ' OR 
ORDR SELR LIKE ' % ' +3Search+ ' % 1 OR 
VARID LIKE , % , +aSearch+'%' OR 



VARSHIP LIKE 1 % • +3Search+ ' % ' OR 
VARCONTRACT LIKE ' % ' +aSearch+ 1 % ' OR 
VARBRAND LIKE ' % ' +3Search+ ' % 1 OR 
VARSIZE LIKE 1 % ' +3Search+ ' % ' OR 
VARPRICE LIKE ' % ' +aSearch+ ' % ' OR 
VARTOTAL LIKE ' % ' +3Search+ ' % ' OR 
VARDUE LIKE ' % ' +3Search+ 1 % ' OR 
VARPLACE LIKE ' % ' +aSearch+ 1 % ' ) AND aScol='ALL') 
ORDER BY 1 DESC 
ELSE 

SELECT (CASE SCol WHEN 1 ORDR_DATE ' THEN CAST(ORDR_DATE AS FLOAT) 
WHEN 1 VARWGHT' THEN VARWGHT 
WHEN 'VARTOTAL' THEN VARTOTAL 
WHEN 'VARDUE' THEN VARDUE 
WHEN 'VARPRICE' THEN VARPRICE 
ELSE ORDR_ID 
END), 

ORDR ID , 
VARSHIP , 
VARDATE 

VARID , 
VARSIZE , 
VARCONTRACT , 
VARBRAND , 
VARPRICE 
VARTOTAL 
VARDUE , 
VARPLACE 
ORDR_GENE 
VARWGHT , 
ORDR_FROM , 
ORDR_FOB 
ORDR_WGHT 
FROM C 
SELECT 

VARTOTAL =VARWGHT*VARPRICE*(CASE ORDR_SIZE WHEN 0 THEN 0.97 WHEN 1 THEN 0.98 END) , 
VARDUE =VARWGHT*VARPRICE*ISNULL(ORDR_BUYR RATE, 1 )*( CASE ORDR_SIZE WHEN 0 THEN 0.97 WHEN 1 THEN 
0.98 END) , 
* 

FROM ( 

SELECT VARID =CAST(ORDR ID AS VARCHAR), 

VARSHIP =<CASE ORDR ShTp WHEN '0' THEN 'Inventory' WHEN 'V THEN 'Dispatched' WHEN '2' THEN 
'En route' WHEN '3' THEN 'Delivered 1 END), 

VARDATE =LEFT( CONVERT< VARCHAR, ORDR_D ATE, 101 ) , 5) , 

VARSIZE =CAST(ORDR_QTY AS VARCHAR)+ 1 '+CCASE ORDR_SIZE WHEN 0 THEN 'Truckload' WHEN 1 THEN 
'Rait Car' END)+(CASE 0RDR_QTY-1 WHEN 0 THEN *' ELSE , s l END), 

VARCONTRACT=( SELECT CONTJJVBL FROM CONTRACT WHERE CONT_ID=ORDR_CONT) , 
VARBRAND =(SELECT BRAN_NAME FROM BRAND WHERE BRAN_ID=ORDR_BRAN) , 
VARPRICE =ORDR PRCE+ORDR SHIP PRCE, 

VARWGHT =ISNULL(ORDR_WGHT,ORDR_QTY*CCASE ORDR_SIZE WHEN 0 THEN 



42000 WHEN 1 THEN 190000 END)), 
VARPLACE =ISNULL((SELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=ORDR FROM) , (SELECT LOCL_CITY+', 
'+LOCL_STAT FROM LOCALITY WHERE L0CL_1D=(SELECT PLAC_LOCL FROM PLACE WHERE PLAC ID=ORDR FROM))), 
* 

FROM ORDERS 

WHERE (CASE aCornpId WHEN l 0' THEN ORDR_SELR ELSE (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=ORDR SELR) END)=(CASE BCompId WHEN ! 0' THEN 3PersId ELSE aCompId END) AND 
Month (3Date)=Month(0RDR_D ATE) AND 
Year(aDate)=Year(ORDRJ)ATE) AND 

(CASE 3Nun) WHEN '0' THEN 3Num ELSE ORDR_CONT END) LIKE 3Num 

)Q 
)Q0 

WHERE ((CASE 3SCoL WHEN 'VARDATE 1 THEN VARDATE 

WHEN ' 0RDR_SELR 1 THEN CAST(ORDR_SELR AS VARCHAR) 

WHEN 1 VARID 1 THEN VARID 

WHEN 'VARSHIP' THEN VARSHIP 

WHEN 'VARCONTRACT' THEN VARCONTRACT 

WHEN ' VARBRAND 1 THEN VARBRAND 

WHEN 1 VARTOTAL 1 THEN CAST(VARTOTAL AS VARCHAR) 
WHEN ' VARDUE 1 THEN CAST(VARDUE AS VARCHAR) 
WHEN 'VARSIZE' THEN VARSIZE 

WHEN 'VARPRICE 1 THEN CAST(VARPRICE AS VARCHAR) 



WHEN ' VARPLACE 1 THEN VARPLACE 

WHEN 1 ALL 1 THEN ' 1 

ELSE aSearch 
END) LIKE 'X'+aSearch+'y,' OR 
(VARDATE LIKE ' % ' +3Search+ ' % ' OR 
ORDR_SELR LIKE ' % ' +3Search+ ' % 1 OR 
VARID LIKE , % , +aSearch+'%' OR 
VARSHIP LIKE +3Search+ , %' OR 
VARCONTRACT LIKE ' % ' +3Search+ ' % 1 OR 
VARBRAND LIKE 1 % ' +3Search+ ' % * OR 
VARSIZE LIKE 1 % ' +3Search+ 1 % ' OR 
VARPRICE LIKE ' % ' +3Search+ ' % ' OR 
VARTOTAL LIKE ' % 1 +3Search+ ' % ' OR 
VARDUE LIKE ' % ' +3Search+ ' % ' OR 
VARPLACE LIKE '% ' +3Search+ ' % ' ) AND aScol^'ALL 1 ) 
ORDER BY 1 DESC 
RETURN 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE PROCEDURE spShortNews AS 

SELECT TOP 5 NEWS_ID,NEWS_DATE,NEWS LABL FROM NEWS ORDER BY NEWS_DATE DESC / NEWS_ID DESC 
RETURN 1 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE PROCEDURE spSSOJSffrT 



SType varchar(2) = NULL, 

aCompTyp varchar(2) = NULL, 

30 numeric - NULL, 

31 numeric = NULL, 
3j numeric = NULL, 
aComp numeric = NULL 



AS 

IF 3Type= , T* 
BEGIN 

IF 3CompTyp=' S' 

SELECT BIDJTO_LOCL,BID_PRCE-(SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIPJTO_LOCL=BID_TO_LOCL AND SHIP FROM LOCL=aj ) AS EXPR,BID QTY,BID BUYR COMP FROM BID WHERE 
BID_SIZE=0 AND BID_CONT=ai AND 3Comp NOT IN (SELECT TRST NOT~TRST FROM TRUST WHERE 
TRST COMP=BID BUYR_COMP AND TRST C0NT&P0WER(2,3i-1 ) 



<>0) AND BID_BUYR_COMP NOT IN (SELECT 
TRST_NOT TRST FROM TRUST WHERE TRST C0MP=3Comp AND TRST CONT&POWER(2,ai-1 )<>0) ORDER BY EXPR DESC 
ELSE IF 3o=0 

SELECT BID_TO_LOCL,BID_PRCE-(SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=BID_TO_LOCL AND SHIP FROM LOCL=aj) AS EXPR,BID_QTY,BID_BUYR_COMP FROM BID WHERE 
BID_SIZE=0 AND BID_CONT=3i AND BID_BUYR_COMP NOT IN (SELECT TRST NOT TRST FROM TRUST WHERE 
TRST COMP=3Comp AND TRST CONT&POWER(2,ai-1 ><>0) GROUP BY BID_TO LOClJbID PRCE,BID QTY,BID_BUYR_COMP 
ORDER BY EXPR DESC 
ELSE 

SELECT BID_TO_LOCL,BID_PRCE-(SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_TO_LOCL=BIDJTO_LOCL AND SHIP_FR0M_L0CL=3j ) AS EXPR7BID QTY,BID BUYR_COMP FROM BID WHERE 
BID_SIZE=0 AND BID_CONT=ai AND (SELECT BRAN_COMP FROM BRAND~WHERE BRAN_ID=3o) NOT IN (SELECT 



TRSTJJOTJTRST FROM TRUST WHERE TRST_COMP=BID BUYR COMP AND TRST_CONT&POWER(2,ai-1 )<>0) AND 

BID_BUYR_COMP NOT IN (SELECT TRST NOT_TRST FROM TRUST WHERE TRST C0MP=3Comp AND 

TRST CONT&POWER(2,ai-1)<>0) ORDER~BY EXPR DESC 

END 

ELSE 

BEGIN 

IF aCompTyp=' S' 

SELECT BID_TOJ_OCL,BID PRCE-CSELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROMJ_OCL=aj ) AS EXPR,BID QTY,BID_BUYR_COMP FROM BID WHERE 
BID_SIZE=1 AND BID_CONT=ai AND 3Comp NOT IN (SELECT TRST_NOT TRST FROM TRUST WHERE 
TRST_COMP=BID_BUYR_COMP AND TRST CONT&POWER(2,ai-1 )<>0) AND BID_BUYR COMP NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST COMP=3Comp AND TRST CONTSPOWER(27ai-1 ><>0) ORDER BY EXPR DESC 
ELSE IF So=0 

SELECT BID TO LOCL,BID PRCE-(SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_TO_LOCL=BID_TO_LOCL AND SHIP_FROHJ_OCL=a j ) AS EXPR7BID_QTY / BID BUYR_COMP FROM BID WHERE 
BID_SIZE=1 AND BID_CONT=ai AND BID BUYR COMP NOT IN (SELECT TRST_NOT_TRST FROM TRUST WHERE 
TRST_COMP=aComp AND TRST CONT&POWER(2,ai-1 ><>0) ORDER BY EXPR DESC 
ELSE 

SELECT BID_TO_LOCL,BIDJ>RCE-(SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE 
SHIP_JO_LOCL=BID_TOJ_OCL AND SHIP_FROM_LOCL=aj ) AS EXPR,BID_QTY,BID_8UYR_COMP FROM BID WHERE 
BID_SIZE=1 AND BID_CONT=ai AND (SELECT BRAN COMP FROM BRAND WHERE BRAN_ID=3o) NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=BID_BUYR COMP AND TRST CONUPOWER(2,ai-1 )<>0) AND 
BID BUYR COMP NOT IN (SELECT TRST NOT_TRST FROM TRUST WHERE TR$T_C0MP=3Cotnp AND 
TRST_CONT&POWER(2,ai-D<>0) ORDER~BY EXPR DESC 
END 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE PROCEDURE spSSOl 

3FLag numeric = NULL, 

3j numeric = NULL, 

3i numeric = NULL, 

3Bi 



dLocl numeric = NULL, 

aBidBuyrComp numeric = NULL 

AS 

IF 3Flag=0 
BEGIN 

SELECT EXPR=OFFR_PRCE-ISNULL((SELECT SHIP_PRCE JTRUC FROM SHIPPING WHERE SHIP T0_L0CL=3j AND 

SHIP_FROM_LOCL=SHIP_TO_LOCL) / 0)+OFFR_FOB*ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 

SHIP_TO_LOCL=aj AND SHIP_FROM L0CL=OFFR„FROM_LOCL) / 0) / OFFR_QTY,OFFR_SELR_COMP FROM OFFER WHERE 

OFFR_SIZE=0 AND OFFR CONT=Si ORDER BY EXPR ASC 

END ~ 

ELSE 

BEGIN 

SELECT EXPR=OFFRJ>RCE-ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=aBi dLocl AND 
SHIP_FROM_LOCL=aJ),0)+0FFR_FOB*ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 

SHIP_TO_LOCL=3BidLocl AND SHIP_FROM J.OCL=OFFR_FROM_LOCL) / 0) / OFFR_QTY,OFFR_SELR COMP FROM OFFER WHERE 
OFFR_SIZE=0 AND 0FFR_C0NT=3i AND 3BTdBuyrComp NOT IN (SELECT TRST NOT TRST FROM TRUST WHERE 
TRST_COMP=OFFR_SELR_COMP AND TRST_C0NT&P0WER(2,ai-1 )<>0) AND OFFR~BRAN__COMP NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST COMP=aBidBuyrComp AND TRST_CONT8POWER(2,3i-1 )<>0> ORDER BY EXPR 
ASC 

— SELECT EXPR=OFFR_PRCE-(SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP_TO LOCL=aBidLocL AND 
SHIP_FROM_LOCL=aj)+OFFR_FOB*(SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE SHIPJTO L0CL=3BidLoc I AND 
SHIP - FR0M_LOCL=OFFR_FR0M_LOCL),0FFR QTY,OFFR SELR_COMP FROM OFFER WHERE OFFR SIZE=0 AND 0FFR_C0NT=3i 
AND BBidBuyrComp NOT IN (SELECT TRST_NOT TRST FROM TRUST WHERE TRST COMP=OFFR SELR COMP AND 
(TRST_CONT=0 OR TRST_C0NT=3i ) ) AND OFFR BRAN_COMP NOT IN (SELECT TRST_NOT TRST FROM TRUST WHERE 
TRST_COMP=aBidBuyrComp AND (TRST_CONT=0 OR TRST C0NT=3i)) ORDER BY EXPR ASC 
END 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTED_IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE PROCEDURE spSS02 

SFLag numeric = NULL, 

Sj numeric = NULL, 

3i numeric = NULL, 

SBidLocl numeric = NULL, 

aBidBuyrComp numeric ~ NULL 

AS 



IF 3Flag=0 

SELECT EXPR=OFFRJ>RCE-(SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_T0_L0CL=3j AND 
SHIP_FROM_LOCL=SHIPJ*0_LOCL)+OFFRJ : OB*(SELECT SHIPJ>RCE_RAIL FROM SHIPPING WHERE SHIP TO LOCL=aj AND 
SHIP_FROM_LOCL=OFFR_FROM_LOCL),OFFR QTY,OFFR_SELR COMP FROM OFFER WHERE OFFR_SIZE=1 AND OFFR_CONT=ai 
ORDER BY EXPR ASC 
ELSE 

SELECT EXPR=OFFR_PRCE-ISNULL( (SELECT SHIP J>RCE_RAIL FROM SHIPPING WHERE 
SHIP_T0_L0CL=3BidLocl AND SHIP_FROM_LOCL=ai ) ,0)+OFFR FOB*ISNULL( (SELECT SHIP_PRCE RAIL FROM SHIPPING 
WHERE SHIP_T0_L0CL=3BidLocL AND SHIP_FROM_LOCL-OFFR_FROM_LOCL) ,0) ,OFFR QTY,OFFR_SELR COMP FROM OFFER 
WHERE OFFR_SIZE=1 AND 0FFR_C0NT=3i AND 3BidBuyrComp NOT IN (SELECT TRST_NOT_TRST FROM TRUST WHERE 
TRST_COMP=OFFR_SELR_COMP AND TRST_CONT&POWER(2,ai-1 )<>0) AND OFFR_BRAN_COMP NOT IN (SELECT 
TRST NOT_TRST FROM TRUST WHERE TRST_COMP=aBidBuyrComp AND TRST CONT&POWER(2,ai-1 )<>0) ORDER BY EXPR 
ASC 



GO 

SET QUOTED_IDENTIFIER OFF SET ANSIJJULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE Procedure spSTransactionEngine 
3Gene bit = NULL, 
aPersId numeric = NULL, 
aContld numeric = NULL, 
3Qty int = NULL, 
aPrice decimaU 



4,3) = NULL 
asize bit = NULL, 
SLoclO numeric = NULL, 
3Locl1 numeric = NULL, 
aCompId numeric = NULL, 
3 FOB bit = NULL, 
3Brand numeric = NULL, 
aMess varchar<4000) = NULL 
aidOrder numeric = NULL 

As 

DECLARE aotfrld numeric, 
SPLacLabt varchar(SO), 
aSelrHail varcharCSO), 
aBranName varchar(60), 
aeontLabl varchar(60), 
SBrandComp numeric, 
ai int, 
3j decimal, 
at decimal, 



Sim int, 

3Str1 varchar(200), 
3Str2 varchar(2000), 
3Str3 varchar(4000), 
astr4 varchar(4000), 
3Loc iTo varcharOOO), 
aBuyrMaiL varchar(50) / 
aobjMaiL int, 
SStrHai LI varchar (200) , 
astrMai 12 varchar(200), 
astrHai 13 varchar(200) , 
aMaxOrderld numeric, 

— columns of offer table — use with the cursor 

aBidld numeric, 

aBidBuyr numeric, 

aBidCont numeric, 

3BidTo numeric, 

3BidToLocl numeric, 

3BidDate smalldatetime, 

aBidQty int, 

aBidPrce decimal(4,3), 

aBidSize bit, 

aBidBuyrComp numeric, 

aShipPrce decimal(4,3), 

ashipPrceFull deciinal(19,3), 

3Expr decimal(4,3), 

aOffrPrce decimal(4,3) , 

aoffrQty int, 

aoffrSize bit, 

aLoclFrom varchar(60) 



INSERT INTO OFFER 

(OFFR_SELR,OFFR_CONT,OFFR_QTY,OFFR_PRCE,OFFR - SIZE / OFFR_FROM_LOCL,OFFR - FROM,OFFR_SELR_COMP,OFFR_FOB,0 
F F R_B R AN , 0 F F R_G EN E ) 

VALUES CaPersId^Contld^Qty^Price/aSize/aLoclO/aLocll^CompId/aFOB/aBrand^Gene) 

— Offer Creation 

SELECT aOffrld = 33IDENTITY, 

aPlacLabl = ISNULLCCSELECT PLAC_LABL FROM PLACE WHERE PLAC_ID=3Locl1 ), (SELECT LOCL_CITY+', 
■+LOCL_STAT FROM LOCALITY WHERE L0CL_ID=3Loc 10) ) , 

aSelrMail - (SELECT PERS_MAIL FROM PERSON WHERE PERS_ID=3PersId) , 

aBranName = (SELECT BRAN~NAHE FROM BRAND WHERE BRAN_lD=3Brand) , 

aContLabl = (SELECT CONT LABL FROM CONTRACT WHERE CONT__ID=aCont Id) , 

aBrandComp = (SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=3Brand) 



INSERT INTO MESSAGE (MESS^COMP/M 



ESS_TO,MESS_FROM,MESS_TEXT,MESS_TYPE) 
VALUESOCompId^PersId/O, , #'+CONVERT(varchar(8),aoffrId)+aMess / CASE aidOrder WHEN NULL THEN '5' ELSE 
'3' END) 

— IF Request. FormC'IdOrder" )<> ,IU THEN Str="5" ELSE Str= ,, 3" 

UPDATE OFFER SET OF FR_BRAN_COMP=( SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=3Brand) WHERE 
OFFR_ID=aOf f rid 

— Picture of the Market 
IF asize = 0 

BEGIN 
IF 3FOB=0 
BEGIN 

DECLARE csShotHarket CURSOR FOR 
SELECT *,EXPR=BID_PRCE FROM (SELECT *, SHIP_PRCE=0, SHIP PRCE FULL=0 FROM BID WHERE BID SIZE=0 AND 
BID_CONT=aContId AND (SELECT BRAN_COMP FROM BRAN WHERE BRAN ID=SBrand) NOT IN (SELECT TRST_N0T TRST 
FROM TRUST WHERE TRST_COMP=BID_BUYR_COMP AND TRST CONTSPOWER(2 / BID_CONT-1 )<>0) AND BID BUYR_COMP NOT 
IN (SELECT TRST_NOT_TRST FROM TRUST WHERE TRST COMP 



=aCompId AND TRST CONT8POWERC2 / BI0 CONT-1 )<>0) )Q0 
WHERE (BID_PRCE>(3Price-0.001+SHIP PRCE)) ORDER BY EXPR DESC,BID ID ASC 
END 
ELSE 
BEGIN 

DECLARE csShotMarket CURSOR FOR 
SELECT *,EXPR=BIDJ>RCE-SHIP PRCE FROM (SELECT *, SHIP_PRCE=(SELECT SHIP_PRCEJTRUC FROM SHIPPING 
WHERE SHIP_FR0M_LOCL=3Locl0 AND SHIP_TOJ_OCL=BID_TO LOCO, SHIP PRCE_FULL=< SELECT SHIP_PRCE FULLJTRUC 
FROM SHIPPING WHERE SHIP _FR0M_L0CL=aLocl0 AND SHIPjrO_LOCL=BID~TO LOCO FROM BID WHERE BID~SI2E=0 
AND BID_C0NT=3ContId AND (SELECT BRAN COMP FROM BRAND~WHERE BRAN ID=aBrand) NOT IN (SELECT* 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=BID_BUYR_COMP AND TRST_C0NT&P0WER(2, BID CONT-1 )<>0) AND 



BID_BUYR_COMP NOT IN (SELECT TRST NOT TRST FROM TRUST WHERE TRST_COMP=aCompId AND 
TRST CONT&P0WER(2,BID_CONT-1><>0))Q0 WHERE BID_PRCE>QPr i ce-0. 001 + SHIP_PRCE) ORDER BY EXPR 
DESC,BID_ID ASC 
END 

OPEN csShotMarket 

Set 3j « 42000.0 

Set ai = 0.97 

Set 3Str1 = 'Truckload' 
END 
ELSE 
BEGIN 

IF 3F0B=0 
DECLARE csShotMarket CURSOR FOR 
SELECT *,EXPR=BIDJ>RCE FROM (SELECT *, SHIP_PRCE=0 / SHIP PRCE FULL=0 FROM BID WHERE BID_SIZE=1 AND 
BID - CONT=aContId AND (SELECT BRAN_C0MP FROM BRAND WHERE BRAN ID=3Brand) NOT IN (SELECT TRST_N0T_TRST 
FROM TRUST WHERE TRST_COMP=BID_BUYR_COMP AND TRST C0NT&P0WER(2 / BID_C0NT-1 )<>0) AND BID BUYR_COMP NOT 
IN (SELECT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=acompId AND TRST C0NT&P0WER(2,BID_C0NT-1 )<>0) )Q0 
WHERE BID PRCEX3Price-0.001+SHIP PRCE) ORDER BY EXPR DESC,BID_ID ASC 

ELSE 

DECLARE csShotMarket CURSOR FOR 
SELECT *,EXPR=BIDJ>RCE-SHIP_PRCE FROM (SELECT *,SHIP PRCE=(SELECT SHIPJ>RCE_RAIL FROM SHIPPING 
WHERE SHIP_FR0M_L0CL=3Locl0 AND SHIP_TO_LOCL=BID TO_LOCL) , SHIP PRCE_FULL=( SELECT SHIP_PRCE_FULL TRUC 
FROM SHIPPING WHERE SHIP_FROM J_0CL=3Loc LO AND SHIP_TO_L0CL=BID_TO_L0CL) FROM BID WHERE BID_SIZE=1 
AND BID_C0NT=3ContId AND (SELECT BRAN_COMP FROM BRAND WHERE BRAN_ID=aBrand) NOT IN (SELECT 
TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=BID_BUYR COMP AND TRST C0NT&P0WER(2, BID CONT-DOO) AND 
BID_BUYR_COMP NOT IN (SELECT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=aCompId AND 
TRST CONT&P0WER(2,BID CONT-DOO) )Q0 WHERE BID_PRCE>(aPri ce-O. 001+ SHI P_PRCE) ORDER BY EXPR 
DESC,BID_ID ASC 

OPEN csShotMarket 

Set aj = 190000.0 

Set at = 0.98 

Set astrl = "Rail Car' 



END 

FETCH NEXT FROM csShotMarket INTO 

aBidId / aBidBuyr / aBidCont / aBidTo / SBidToLocl / aBidDate / aBidQty / aBidPrce / aBidSize / aBidBuyrCom 
/aShipPrceFuL L/BExpr 
WHILE OaFETCH_STATUS=0 AND 3Qty!=0) 
BEGIN 
IF 3BidQty>aQty 
BEGIN 

SELECT 3Qty 

SELECT aBidQty 

SELECT aoffrld 

SET ai=3Qty 

UPDATE BID SET BID_QTY=BID QTY-3i WHERE BID_ID=aBidId 

DELETE FROM OFFER WHERE 0FFR_ID=30f f rid 
END 
ELSE 
BEGIN 

SELECT 3Qty 

SELECT aBidQty 

SET ai=3BidQty 

DELETE FROM BID WHERE BID_ID=aBidId 
END 

— Filled order and message inserts 
IF ai>1 

Set 3Str2 = *s' 
ELSE 

Set 3Str2 = ' ' 

SELECT aLoclTo=ISNULL((SELECT PLAC_LABL FROM PLACE WHERE PLAC ID=3Bi dTo) , (SELECT LOCL_CITY+', 
1 +LOCL_STAT FROM LOCALITY WHERE LOCL ID=aBidToLocl)), 
aBuyrMai l=(SELECT PERSJ1AIL FROM PERSON WHERE PERS ID=aBidBuyr) 



Set 3Str3 = '#'+CONVERT( 



varcharC10) / aBidId)+ 1 You bought r +CONVERT(varchar(10),ai )+' 
, +3Str1+astr2+' of ' +3ContLabl+ 1 C 1 +aBranName+' ) for ' +CONVERT(varchar<10) / aBidPrce)+ 1 per pound. 
Delivery to '+3^01X0+'. Estimate Value net of exchange fees: ' +C0NVERT(varchar(10),aBidPrce*ai*aj ) 

Set astrMaill = »<font face=arial size=2 color=black>' + C0NVERT(varcharC10) / GETDATEO) + ': ' 

—Set astrMail2 = 3Str3 



Set astrMail3 = l <br><br><br><a href= M http: //www.ThePlasticsExchange. com">The Plastics 
Exchange</a>' 

EXEC master. .sp_OACreate 1 TPEMai l.NewMai L 1 , aobjMail OUT 

EXEC master..sp_OAMethod aobjMail, 'Init', NULL, 
'infoatheplasticsexchange.com' ,aBuyrMai I, ' 1 , 1 F i L Led Order 1 
—EXEC master. .sp_OAMethod aobjMail, 'Init>, NULL, 

' inf oathep last i csexchange. com' , 1 GeraldaThePlasticsExchange. com' , 1 ' , 1 Fi lied Order ' 
EXEC master. .sp_OAMethod aobjMail, * AddContent 1 , NULL, 3StrMail1 
EXEC master. ,sp_OAMethod aobjMail, 'AddContent', NULL, 3Str3 
EXEC master. .sp~OAMet hod aobjMail, 'AddContent 1 , NULL, astrMail3 
EXEC master.. spJ)AMethod aobjMail, 'Send' 

Set 3Str4 = '#'+CONVERT(varchar(10),aOff rld)+* You sold '+C0NVERT(varchar(10),ai)+ r , +3Str1+astr2+ l 
of , +aContLabl+* for , +C0NVERT(varchar(10),aExpr)+' per pound. Picked up at ' +3PlacLabl+ ' . Estimate 
Value of , +CONVERT(varchar(10),aExpr*ai*aj*al> 

EXEC master. .sp_OAMethod aobjMail, 'Init', NULL, 
1 inf oathep last i csexchange. com* ,3SelrMai I, ' 1 , 1 Fi lied Order' 
— EXEC master. ,sp_OAMethod aobjMail, 'Init 1 , NULL, 

' infoatheplasticsexchange.com 1 , 'GeraldaThePlasticsExchange.com' , ' 1 , ' Fi lied Order' 
EXEC master. .sp_OAMethod aobjMail, 'AddContent 1 , NULL, astrMaiU 
EXEC master. .sp_OAMethod aobjMail, 'AddContent', NULL, 3Str4 
EXEC master. .spJ)AMethod aobjMail, 'AddContent', NULL, 3StrMail3 
EXEC master. .sp~OAMethod aobjMail, 'Send' 

EXEC master. .sp_OADestroy aobjMail 

INSERT INTO MESSAGE (MESS_COMP,MESS _T0, MESS_FROM,MESS_TEXT,MESS_TYPE) 
VALUESOCompId/aPersId/O/SistrA, '1 ' )" 



INSERT INTO ORDERS 

<ORDR_CONT,ORDR_SIZE / ORDR_SHIP / ORDR OFFR,ORDR SELR,ORDR_FROM,ORDR_BRAN,ORDR BID,ORDR BUYR,ORDR — TO,OR 
DR QTY / ORDR_PRCE,ORDR_SHIP_PRCE / ORDR_GENE / ORDR_SHIP_FULL_PRCE / ORDR_FOB) 
VALUES 

(aContId,asize, ' 0' ,30f f rId / aPersId / aLocL1 / aBrand / SBidId / aBidBuyr,aBidTo / ai ^Exp^SM pPrce^ashipPr 
ceFull,aFOB) 

SELECT SMaxOrderld = aaiDENTITY 

Set 3rn = 1 
WHILE am<=ai 
BEGIN 

INSERT INTO SHIP (SHIP^ORDR) VALUES QMaxOrder Id) 

Set am = am + 1 

END 

Set 3Qty = 3Qty - 3i 

FETCH NEXT FROM csShotMarket INTO 
aBidId / 3BidBuyr / aBidCont / aBidTo / aBidToLocL / aBidDate,aBidQty / aBidPrce / aBidSi 2e / aBidBuyrComp / aShipPrce 
,aShipPrceFuU,aExpr 
END 

CLOSE csShotMarket 
DEALLOCATE csShotMarket 
IF NOT aidOrder IS NULL 
BEGIN 

SELECT aof frPrce=0F FR_PRCE,aOff rQty=OFFR_QTY,aOf frSi ze=OFFR_S I ZE / 3Cont Lab l=( SELECT C0NTJ.ABL FROM 
CONTRACT WHERE CONT ID=OFFR CONT) / aLoclFrom=ISNULL((SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID=OFFR_FROM) ,7sELECT L0CL_CITY+' / '+L0CL_STAT FROM LOCALITY WHERE LOCL_ID=OFFR_FROM_LOCL) ) 
FROM OFFER WHERE 0FFR_ID=3Id0rder 
IF aOffrSize=0 
BEGIN 
SET 3j =42000.0 
Set 31 = 0. 
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Set 3Str1 - CONVERT(varchar(10),aOff rQty)+ r Truckload' 
END 
ELSE 
BEGIN 

SET Sj=190000.0 

Set 3L = 0.98 

Set astrl - CONVERT(varchar(10),aoffrQty)+' Rail car* 
END 



IF 30ffrQty>1 

SET 3Str1 = astrl+'s' 
— INSERT INTO MESSAGE (MESS^COMP^ESSJ^MESS^FROM/MESSJ-EXT/MESSJTYPE) 

— VALUESOCompId^PersId/O, ' # 1 +CONVERT(varchar(8),aidOrder)+ ' to SELL l +astr1+' of ' +3ContLabl+ ■ 
for '+C0NVERT(varchar(4>,a0f f rPrce)+' per pound. To be picked up at 1 +3LoclFrom+ ' . Estimate value 
' + (30ffrPrc e*30f f r Qt y*a j *a L ) , ' 2 * ) 

DELETE FROM OFFER WHERE 0FFR_ID=3Id0rder 
END 

/* 'Offer Creation: 

"Working Order Cancel 

IF Request. Form("IdOrder")<> ,,H THEN 
SET RecO=Connection.Execute("SELECT OFFR_PRCE / OFFR_QTY / OFFR_SIZE / (SELECT CONT_LABL FROM CONTRACT 
WHERE CONT ID=OFFR CONT) , LOCL_FROM=ISNULL( (SELECT PLAC_LABL FROM PLACE WHERE 

PLAC I D=OF?R_F ROM >7( SELECT LOCL_CITY+', 1 +LOCL STAT FROM LOCALITY WHERE LOCL ID=OFFR_FROM_LOCL) ) 
FROM'OFFER WHERE OFFR_ID= ,, &Request.Form("IdOrder M )) 

IF Rec0(2)=False THEN j=42000: 1=0.97: St r=Rec0(1 )&" Truckload" ELSE j=1 90000: 1=0. 98: Str=Rec0(1)&" 
Rail car" 

IF CDbl(RecO(1))>1 THEN Str=Str+ ,, s" 

Connect i on. Execute(StrO&Session( ,l Comp")&" / ,, &Session( u Id" )&" ,0, , # M &Request.Form("IdOrder ,, )&' 1 to 
SELL "&Str&" of ,l &RecO(3)S' 1 for "&FormatCurrency(RecO(0) ^O,^,^)^' per pound. To be picked up at 
,1 SRec0(4)&". Estimate valu 



e "SFormatCurrency (CSt r<CDbl( Rec0(0) )*CDbl<Rec0<1 ) I) ,0,-2,-2, - 
2)& ,,I / , 2');DELETE FROM OFFER WHERE OFFR_ID-"&Request . FormC" IdOrder" ) ) 
RecO. Close 
SET RecO=NOTHING 
END IF 

*/ 

return 
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SET QUOTED_IDENTIFIER OFF SET ANSIJIULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



CREATE Procedure spSWO 

aoffrld varchardO) = NULL 
AS 

/*****************************^^ 
** File: spSWO.sql 
** Name: spSWO 

** Desc: Supplier Working Orders 
** 

****************************^ 
** Change History 
*********^^ 

** Date: Author: Description: 

** 12/04/2000 Gerald Colin Supplier Working Orders 

** 

**********^^ 

DECLARE aoffrPrce varchar(IO), 



aoffrQty varchar(2), 

aParaValu varchar(20), 

acontLabl varchar(60), 

aPrce varchar(20), 

3LocL varchar(200), 

astr varchar(2) / 

aPersId varchar(IO), 

acompld varcharOO) 
DECLARE myCurs CURSOR FOR 
SELECT CAST(OFFRJ>RCE AS DECIMAL(4,3) ) , 

OFFR_QTY, 

(CASE OFFR SIZE WHEN 0 THEN 'Truckload' ELSE 'Rail Car' END) , 
(SELECT CONTJ_ABL FROM CONTRACT WHERE CONT_ID=OFFR_CONT) , 

CONVERT(VARCHAR, CONVERT (HONEY, (CASE OFFR_SIZE WHEN 0 THEN 42000 ELSE 190000 
END)*OFFR_PRCE*OFFR QTY,1) / 101), 

ISNULL((SELECT PLACJ.ABL FROM PLACE WHERE PLAC_ID=OFFR_FROM) , (SELECT LOCLj:iTY+ , / '+L0CL_STAT FROM 
LOCALITY WHERE LOCL_ID=OFFR_FROMJ.OCL> ) , 

OFFR_SELR, 

OFFR_SELR_COMP 

FROM OFFER WHERE OFFR_ID=30f f rid 
OPEN myCurs 

FETCH NEXT FROM myCurs INTO aOffrPrce, aoffrQty, aParaValu, acontLabl, aPrce, aLocl, aPersId, 
acompld 

IF 33ROWCOUNT>0 
BEGIN 

SET aPrce=LEFT(aPrce,LEN(aPrce)-3) 
IF 30ffrQty>1 

SET astr='s' 
ELSE 

SET astr=* ' 

INSERT INTO MESSAGE (MESS_C0MP / MESS TO,MESS FROM,MESS_TEXT, MESS J)ATE,MESS JTYPE) 
VALUES(3CompId / aPersId,0 / '# , +a0ffrId+' to SELL '+30ffrQty+' l +aParaValu+astr+' '+aContLabL+' for 

$*+RIGHT(aof f rPrce,LEN(90f f rPrce)-1) + ' per pound. Picked up at '+aLocl+'. Estimate value of 

S'+aPrce/GETDATEO, '4' ) 
DELETE FROM OFFER WHERE OFFR_ID=30f f rid 

END 

CLOSE myCurs 
DEALLOCATE myCurs 

RETURN 



GO 

SET QUOTED_ IDENTIFIER 0 



FF SET ANSI NULLS ON 
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SET QUOTED_IDENTIFIER OFF SET ANSIJIULLS ON 
GO 



CREATE Procedure spTradi ngF loor 
aCont_typ varchardO) = NULL, 
3Locl_Id numeric = NULL, 
SComp_Id numeric = NULL, 
aUser^Id numeric = NULL, 
aUser Type chard) = ' P* 

AS 



sproc only used for the live prices 



IF aUser_Type= l P' 
BEGIN 

IF aCont_typ=' Cust ' 

BEGIN 

IF aUser_Id IS NOT NULL 

BEGIN 

SELECT 

cont_id, 

cont_labl, 

cont'bid truc=CASE ISNULL(cont_of f r_truc, '-1 ' ) 
WHEN '-V THEN 



CASE 1 aUser ID NOT NULL 



(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; 1 + 

CASTC (SELECT SUM(BID QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT ID AND 
(BID PRCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FR0MJ_0CL=3Locl_Id AND 
SHIPJTO_LOCL=SHIP_FROM LOCL),0)-ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=3LocL_Id AND SHIP TO_LOCL=BID_TO_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; 1 + 

CAST(BID BUYR COMP AS VARCHAR) 

FROM (SELECT BID CONT,BID_PRCE+ISNULL( ( SELECT SHIP PRCE TRUC FROM SHIPPING WHERE 
SHIP_FR0M_L0CL=3Locl Id AND SHIP_TO_L0CL=SHIP_FROMJLOCL>,0)-ISNULL( (SELECT SHIPJ>RCE_TRUC FROM 
SHIPPING WHERE SHIP_FR0M_L0CL=3Loc L_Id AND SHIP JTO~LOCL=BID_TOJ_OCL) ,0) AS 
EXPR1,BID_BUYR_C0MP=(SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE 
BID_SIZE=0)Q WHERE BID CONT=C0NT~ID ORDER BY EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CAST((BIDJ>RCE+ISNULL( (SELECT SHIP J>RCE_TRUC FROM SHIPPING WHERE 
SHIP FROM LOCL IN (SUBSTRING(cont offr true, 1 ,PATINDEX( '%;%", cont_off r_truc)-1) ) AND 

SHIPlTO_LOCL-aLocl_Id) / 05-ISNULL(7sELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP jr0J_0CL=8ID_T0_L0CL 
AND SHIP_FROM_LOCL IN ( SUBSTRING(cont_of f r_truc,1 ,PATINDEX( *%;%' ,cont_of f r_truc)-1 ))),Q) ) AS 
VARCHAR)+'; 
CAST( 

(SELECT SUM(BID_QTY) FROM BID WHERE BID_SI2E=0 AND BID_C0NT=C0NT_ID AND 
( REVERSE ( SUBSTRING ( REVERSE (cont_offr true) ,1 , PATINDEX( 1 %;% 1 , REVERSE (cont_offr_t rue) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND~TRST_C0NT&P0WER(2, C0NT_ID-1 ><>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID BUYR) NOT IN (SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont offr true, PATINDEX( '%;% 1 , cont_of f r_truc)+1 , PATINDEX( '%;%', rig 



ht(cont_of f r_t rue, LenCc 

ont offr truc)-PATINDEX('%;% , ,cont_offrJ:ruc)))-1)) AND TRST_C0NT&P0WER(2,C0NT_ID-1 )<>0) AND 
CAST((BID_PRCE+1SNULL((SELECT SHIPJ»RCE_TRUC FROM SHIPPING WHERE SHIP_FROH_LOCL IN 
(SUBSTRINGCcont of f r_t ruc,1 ,PATINDEX( ' %; % 1 , cont offr truc)-D) AND SHIP_TOJ.OCL=aLocL_Id) ,0)- 
ISNULLCCSELECT SHIP PRCE TRUC FROM SHIPPING WHERE ShTp_TO_LOCL=BID_TOJ-OCL AND SHIP_.FR0MJ.OCL IN 
( SUBSTRING ( cont_off r_t rue, 1 , PATINDEX( '%;/$', cont_of f r truc)-1 ) ) ) ,0) ) AS 

VARCHAR ) =CAST ( (Q.BID_PRC E+ISNU LLC (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FR0M_L0CL IN 
(SUBSTRINGCcont of fr_truc,1 , PATINDEX( '%;%', cont offr truc)-D) AND SHIP TO LOCL=3Loc l_Id) ,0)- 
ISNULL((SELECT SHIP J>RCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL=G.BID TO_LOCL AND SHIP_FROMJ_OCL IN 
(SUBSTRINGCcont of fr_truc,1 t PATINDEX( '%;%', cont_offr_t ruc)-1 ))) ,0) ) AS VARCHAR)) 
AS VARCHART+'; '+ 

CAST( (SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
( REVERSE( SUBSTRING ( REVERSE (cont_offr true) ,1,PATINDEX ('%;%', REVERSE (cont_of f r_t rue) ) ) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST_COMP=CSELECT PERS_COMP FROM PERSON WHERE 
PERS ID=BID BUYR) AND~TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS~ID=BID~BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST.COMP IN 
(SUBSTRING(cont_offr - truc,PATINDEX('%;% l / cont_off r_truc)+1 ,PATINDEX( ' %;%' , right (cont_off r truc,len(c 
ont_offr_truc)-PATINDEX( , %;%' / cont - off r_t rue) ) )-1 ) ) AND TRST_CONTSPOWER(2 / C0NT - ID-1X>0) ORDER BY 
EXPR1 DESC) 
END, 

cont_of f r_truc, 

cont bid rait=CASE ISNULL(cont ~ 



w ffr_rail, '-1') 

WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ * ; ' + 

CASTC (SELECT SUM(BID_QTY> FROM BID WHERE BID_SIZE=1 AND BID _CONT=CONT_ID AND 
(BID PRCE+ISNULL((SELECT SHIP_PRCEJ*AIL FROM SHIPPING WHERE SHIP FR0M_L0CL=3Loc l_Id AND 
SHIP~TO_LOCL=SHIP_FROM__LOCL) ,0)-ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP~FROM L0CL=3Locl_Id AND SHIP TO LOCL=BID TO LOCL) ,0) )=EXPR1) AS VARCHARH ' ; 1 + 

~CAST(BID BUYR CONP AS VARCHAR)" 
FROM (SELECT BID_CONT, BID_PRCE+ I SNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP_FR0M_L0CL=3LocL_Id AND SHIP_TO_LOCL=SHIP_FROM_L0CL) / 0)-ISNULL( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP FROM L0CL=3Loc l~Id AND SHIP_TO_LOCL=BID_TO_LOCL) , 0> AS 
EXPR1,BID_BUYR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE 
BID_SIZE=1)Q WHERE BID _C0NT=C0NT~ID ORDER BY EXPR1 DESC) 

ELSE 

(SELECT TOP 1 expr1=CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL IN (SUBSTRING(cont_of f r rai 1,1 , PATINDEX( '%;%' ,cont_of f r_rai L)-1)) AND 
SHIP_TO L0CL=3Locl Id), 0)-ISNULL( (SELECT SHIPJ>RCE_RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL 
AND SHIP_FROM_LOCL~IN (SUBSTRING(cont_of f r_rai 1,1 ,PATINDEX( 1 ,cont_of f r_rai ))),0) ) AS 
VARCHARH 1 ; *+ 

CASK 

(SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT ID AND 
( REVERSE (SUBSTRING( REVERSE ( con t_offr rai I) ,1 , PATINDEX( *%;%', REVERSE (cont_of fr_rail) ) ) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID__BUYR) AND TRST C rt 



vNT&POWER^CONT^ID-DOO) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont_offr_rai L,PATINDEX( '%;%*, cont_of f r^rai ,PATINDEX( '%;%', right (cont_of f r_rai I, Len(c 



ont_offp_raiL)-PATINDEX('%;% , / cont_offr rail)))-!)) AND TRST_C0NT&P0WER(2,C0NT ID-DOO) AND 
CASTCCBID PRCE+ISNULL((SELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP FROH LOCL IN 
(SUBSTRINGCcont offr rai 1,1 ,PATINDEX( 1 , cont offr rail)-D) AND SHIP T0~L0CL=3Locl ld),0)- 
ISNULLC (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL=BID_TO_LOCL~AND SHIP_FROM_LOCL IN 
(SUBSTRING(cont_offr_raU,1, PATINDEXC %;%' ,cont_off r_rai l)-D) ),0)) AS 

VARCHAR)=CAST((Q.BID~PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP FROM_LOCL IN 
(SUBSTRINGCcont offr rai 1,1 ,PATINDEX( *%;%' , cont offr raiL)-D) AND SHIP TO_LOCL=S)Locl ld),0)- 
ISNULLC (SELECT SH1P_PRCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL=Q. BID_T0~LOCL AND SHIP FROM_LOCL IN 
(SUBSTRINGCcont of f r_rail,1 ,PATINDEX( * %;%' ,cont_of f r rai L)-1 )) ),0)) AS VARCHAR)) 
AS VARCHAR)+'; 1 + 

CAST( (SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=1 AND BID CONT=CONT ID AND 
(REVERSE ( SUBSTRING (REVERSETcont of f r_rai l7, 1 , PATINDEXC '%;%', REVERSE (cont offr raU))-1))) NOT IN 
(SELECT DISTINCT TRST NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND~TRST_CONTSPOWERC2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS~ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
( SUBSTRING (cont_offr_rai L, PATINDEXC '%;%', cont_of f r~rai l)+1 , PATINDEXC '%;%', right (cont_offr_rai I, len(c 
ont offr^raiD-PATINDEXC^^'/Cont of f r_rai I)) )-1 ) ) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
END, 
cont_of f r_rai I 
FROM 
(SELECT 
cont_id, 
cont_labl, 
cont_ordr, 

cont_off r_truc=(SELECT TOP 1 



val=CAST<off r_FROM_locl AS VARCHAR)+ ' ; 1 + 
CASTCoff r_selr comp AS VARCHAR)+' ; ' + 
CASTCexpr AS VARCHAR)+ 1 ; 1 + 
CASK 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE (OF FR_PRCE+ISNULL( (SELECT SHIPJ>RCE_TRUC FROM SHIPPING 
WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHIP_TO_LOCL=SLocl Id),0))=EXPR AND OFFR_SIZE=0 AND 
OFFR CONT=CONT ID AND (SELECT BRAN COMP FROM BRAND WHERE BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT 
TRST~NOT_TRST FROM TRUST WHERE TRST_C0NT&POWER(2,CONT_ID-1 )<>0) ) 
~ AS~VARCHAR)+'; '+ 

CAST(offr bran comp AS VARCHAR) 

FROM (SELECT OFFR_FROM_LOCL / EXPR=OFFR_PRCE+ISNULL( (SELECT SHIP_PRCEJTRUC FROM SHIPPING WHERE 
SHIP FROMJ_OCL=OFFR FROM LOCL AND SHIP TO_LOCL=aLocL_Id),0),OFFR_QTY,OFFR SELR_COMP=(SELECT 
PERS"C0MP FROM PERSON WHERE PERS_ID=OFFR SELR) / OFFR_BRAN_COMP=(SELECT BRAN_COMP FROM BRAND WHERE 
BRAN~ID=OFFR BRAN) FROM OFFER WHERE OFFR~SIZE=0 AND OFFR_CONT=CONT_ID AND (SELECT BRAN_COMP FROM 
BRAND WHERE BRAN_ID=OFFR BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE 
TRST_CONT&POWER(2,CONT_ID-1)<>0))Q ORDER BY expr ASC), 

cont_offr rai L=(SELECT TOP 1 vat=CAST(of f r_FROM_loc I AS VARCHAR)+ 1 ; ' + 

CASKoff r_selr_comp AS VARCHAR)+ ' ; *+ 

CAST(expr AS VARCHAR)* ' ; 1 + 

CASK 

(SELECT SUM(OFFR_QTY) FROM OFFER WHERE (OFFRJ>RCE+ISNULL( (SELECT SHIPJ>RCE_RAIL FROM SHIPPING 
WHERE SHIP FROM_LOCL=OFFR_FROM LOCL AND SHIP T0_L0CL=3Loc l_Id) ,0) )=EXPR AND 0FFR_SIZE=1 AND 
OFFR_CONT=C0NT_ID AND (SELECT BRAN COMP FROM~BRAND WHERE BRAN_I D=0 F FR_BRAN ) NOT IN (SELECT DISTINCT 
TRST_N0T_TRST FROM TRUST WHERE TRST_C0NT&P0WER(2, C0NT_ID-1 )<>0) > 
~ AS~VARCHAR)+*; '+ 
CAST(offr bran_comp AS VARCHAR) 

FROM (SELECT OFFR FROM LOCL, EXPR=OFFR PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FRO 



H SHIPPING WHERE 

SHIP_FROM LOCL=OFFR FROM LOCL AND SHIP TO_LOCL=3Loc I Id) ,0) ,OFFR_QTY,OFFR_SELR_COMP=(SELECT 
PERS_COMP~FROM PERSON WHERE PERS_ID=OF?R_SELR) / OFFR_jiRAN_COMP=(SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR_BRAN) FROM OFFER WHERE OFFR SIZE=1 AND OFFR CONT=CONT_ID AND (SELECT BRAN_COMP FROM 
BRAND WHERE BRAN_ID=OFFR_BRAN) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE 
TRST_C0NT&P0WER(2 / C0NT_ID-1)O0))Q ORDER BY expr ASC) 

FROM CONTRACT WHERE CONT ID IN (SELECT DISTINCT CONT_ID FROM CONTRACT WHERE P0WER(2,C0NT_ID- 
1)&(SELECT PERS_PREF FROM Demo. . PERSON WHERE PERS_ID=aUser_Id)<>0) )Q0 ORDER BY C0NT_0RDR 
END 

ELSE CASE 2 3User_Id NULL 

BEGIN 

SELECT 

cont_id, 

cont_labl, 

cont_bid_truc=CASE ISNULL(cont_of f r_t rue, 1 -1 ' ) 
WHEN '-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHARH ' ; ' + 

CAST( (SELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=0 AND BID CONT=CONT_ID AND 
(BID PRCE+ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP FROM LOCL=aLocL Id AND 



SHIP TO_LOCL=SHIP FR0MJ.OCL) ,0)-ISNULL( (SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP FROM LOCL=aLocl_Id AND SHIP TO LOCL=BID_TO_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; 1 + 
CAST(BID_BUYR_COMP AS VARCHAR)" 

FROM (SELECT BID CONT, BID PRCE+ 1 SNULLC (SELECT SHIP_PRCE TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Td AND SHIP JTO J.OCL==SHIP_FROM_LOCL) ,0)-ISNULL( (SELECT SHIP_PRCE_TRUC FROM 
SHIPPING WHERE SHIP_jROMJ_OCL=aLocL~Id AND SHIP_TOJ_OCL=BID_TO_LOCL) ,0) AS 

expr1,bid_buyr_c0mp=(select persjtomp from person where pers_id=bid buyr) from bid where 
bid size=0)q where bid cont=cont id order by expr1 desc) 
"else 

(select top 1 expr1=cast((bid_prce+isnull((select ship_prce_truc from shipping where 

SHIP_FROM_LOCL IN (SUBSTRING(cont_of f r_truc / 1 / PATINDEX( 7 cont_off r truc)-D) AND 
SHIP~TO LOCL=aLocl Id) ,0)-ISNULL( (SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP TO_LOCL=BID TO LOCL 
AND SHIP_FROM_LOCL~IN ( SUBSTRING (cont_offr_t rue, 1 ,PATINDEX( '%;%', cont offr truc) z 1) ) ) ,0) ) As" 
VARCHARH' ; ' + 
CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT ID AND 
( REVERSE (SUBSTRING( REVERSE (cont off r_truc),1,PATINDEX( '%;%' , REVERSE (cont_offr_t rue) )-1 ))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS ID=BID BUYR) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
( SUBSTRING (cont_off r_truc, PATINDEX( ' %;% 1 ,cont_off rj: ruc)+1 ,PATINDEX( ' %;% fright (cont_off r_truc,len(c 
ont_offr truc)-PATINDEX( '%;%' 7 cont_of f r_truc)))-D) AND TRST CONT&POWER(2, CONT_ID-1 )<>0) AND 
CASH (BID PRCE+ISNULL( (SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE SHIP FROM LOCL IN 
(SUBSTRING(cont_off r_t rue, 1,PATINDEX( '%;%', cont_of f r_truc)-1 ) ) AND SHIP_TO_LOCL=aLocl_Id),0)- 
ISNULLUSELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP TO_LOCL=BID_TO LOCL AND SHIP_FROM_LOCL IN 
(SUBSTRING(co 



nt offr_truc,1,PATINDEX('%;%',cont of f r_truc)-1 ))),0) ) AS 
VARCHAR)=CAST( (Q.BID_PRCE+ I SNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRINGCcont of f r_truc,1,PATINDEX( '%;% 1 ,cont_off r truc)-D) AND SHIP_TO L0CL=3Locl ld),0)- 
ISNULLCCSELECT SHIP PRCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL=Q.BID TO_LOCL AND SHIP_FROH_LOCL IN 
( SUBSTRING (cont_off r_truc,1 ,PATINDEX( '%;%', cont_off r_t ruc7-1 ) ) ) ,0) ) AS VARCHAR) ) 
AS VARCHAR)+';~+ 

CAST(<SELECT PERS_C0MP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE™BID SIZE=0 AND BID_C0NT=C0NT ID AND 
(REVERSE(SUBSTRING(REVERSE7cont_of f r_truc),1 / PATINDEX( '%;%' , REVERSE (cont_offr_t rue) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST_N0T_TRST FROM TRUST WHERE TRST C0MP=(SELECT PERS_C0MP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND TRST C0NT&P0WER(2, C0NT_ID-1)O0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_C0MP IN 
(SUBSTRING(cont off r_t rue, PATINDEX ('%;%' ,cont off r truc)+1 , PATINDEX( 1 %;% ' , right (cont_of f r_truc, Len(c 
ont offr truc)-PATINDEX( l %;% , / cont_offr_truc)7)-D) AND TRST_CONT&POWER(2, CONTJD-1 )<>0) ORDER BY 
EXPR1 DESC) 
END, 

cont_of f r_truc, 

cont bid_rail=CASE ISNULL(cont_of f r rail / , -V) 
WHEN '-1' THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ 1 ; 1 + 
CAST( (SELECT SUMCBID.Gt 



TY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
(BID PRCE+ISNULL(CSELECT SHIP_PRCE RAIL FROM SHIPPING WHERE SHIP _FR0MJ_0CL=3Loc l_Id AND 
SHIP~TO_LOCL=SHIP FROMJ.OCL) ,0)-ISNULL( ( SELECT SHIP J>RCE_RAIL FROM SHIPPING WHERE 
SHIP FROM LOCL=3Locl Id AND SHIP TO LOCL=BID_TOJ_OCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; ' + 

"CASHBID BUYR COMP AS VARCHAR)" 
FROM (SELECT BID CONT, BID_PRCE+ISNULL( ( SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP FROM LOCL=aLocl_Td AND SHIP_TOJ.OCL=SHIP_FROM_LOCL) ,0)-ISNULL( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP FROM L0CL=3Loc L~Id AND SHIP_TO~LOCL=BID_TO_LOCL) ,0) AS 
EXPR1,BID BUYR_COMP=( SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE 
BID_SIZE=T)Q WHERE BID_CONT=CONT_ID ORDER BY EXPR1 DESC) 

ELSE 

(SELECT TOP 1 expr1=CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP FROM LOCL IN ( SUBSTRING (cont_of f r_rai L / 1 / PATINDEX( '%;%' ,cont of f r_rai L)-1 ) ) AND 
SHIPJTO_LOCL=aLocl Id),0)-ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_TOJ.OCL=BID_TO_LOCL 
AND SHIP_FROM_LOCL"lN ( SUBSTRING (cont_of f r_rai l^PATINDEXCX;'^' ,cont_off r_rai ) )),0)) AS 
VARCHAR)+ l ; ' + 

CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE BID SIZE=1 AND BID_CONT=CONT_ID AND 
( REVERSE (SUBSTRING (REV ERSE (cont offr rai l) / 1 / PATINDEX( '%;% ' , REVERSE (cont_offr_rai I) )-1 ) )) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS ID^BID BUYR) AND~TRST_C0NT&P0WER(2, C0NT_ID-1)<>0> AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS~ID=BID~BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont offr rai I, PATINDEX( '%;%' , cont_of f r_rai L)+1 ,PATINDEX( '%;%', right ( cont_of f r_rai L, Len(c 
ont offr rail)-PATINDEX('%;% , / cont of f r_rai I) ) )-1 ) ) AND TRST CONT8POWER(2, CONT_ID-1 )<>0) AND 
CAST((BID_PRCE+ISNULL((SELECT SHIP~PRCE_RAIL FROM SHIPPING WHERE SHIP_FROMJ_OCL IN 
(SUBSTRING(cont off r_rai 1,1 ,PATINDEX( '%;%' ,cont_pf f r_rai I) 




-1)) AND SHIP_TOJ.OCL=aLocl_Id),0)- 



ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL=BID_TO_LOCL AND SHIP_FROK_LOCL IN 
CSUBSTRINGCcont of f r_raU,1,PATINDEX( '%;%' ,cont_off r_rai L)-1))),0)) AS 

VARCHAR)=CAST((Q.BID PRCE+ ISNULLC (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
CSUBSTRINGCcont of f r'rail, 1 , PATINDEXC '%;%' ,cont_off r_rai L)-D) AND SHIP T0J_0CL=3Locl_Id),0)- 
ISNULLCCSELECT SHIP PRCE RAIL FROM SHIPPING WHERE SHIP_TO_LOCL=Q. BID_TO~LOCL AND SHIP_FROM_LOCL IN 
CSUBSTRINGCcont of f r_rail / 1 , PATINDEXC '%;%' ,cont_off r_rai lT-1 ))>,0)) AS VARCHAR)) 
AS VARCHAR)+';~+ 

CASTC (SELECT PERS_COMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SI2E=1 AND BID_CONT=CONT_ID AND 
(REVERSE(SUBSTRING(REVERSE(cont_off r rai l),1 r PATINDEXC '%;%' , REV ERSE (con t_offr_rai I) )-1 )) ) NOT IN 
(SELECT DISTINCT TRST NOTJRST FROM TRUST WHERE TRST COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS ID=BID_BUYR) AND~TRST CONT&POWERC2, CONT ID-DOO) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS~ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
CSUBSTRINGCcont of f r_rai I, PATINDEXC *%;% ' ,cont offr rai I )+1 , PATINDEXC '%;%', right (cont_offr_rai I, LenCc 
ont offr raU)-PATINDEXC , %;%' / cont_offr_rail)))-1)7 AND TRST_C0NT&P0WERC2,C0NT_ID-1 )<>0) ORDER BY 
EXPR1 DESC) 
END, 
cont offr rait 

from" 

(SELECT 
cont_id, 
cont_labl, 
cont_ordr, 

cont~off r_truc=(SELECT TOP 1 val=CAST(of f r_FROM_locL AS VARCHAR)+ ' ; 1 + 
CAST(offr selr com 



p AS VARCHAR)+ ' ; ' + 
CASTCexpr AS VARCHAR)* ' ; 1 + 

CAST( (SELECT SUM(OFFR QTY) FROM OFFER WHERE (OFFR_PRCE+ISNULL((SELECT SHIPJ>RCE_TRUC FROM 
SHIPPING WHERE SHIP _FROMJ_OCL=OF FR_FROM_LOCL AND SHIP_TO_LOCL=aLocL_Id) ,0) )=EXPR AND OFFR_SIZE=0 AND 
OFFR_CONT=CONT_ID) AS VARCHAR) +'; 1 + 

CAST(offr_bran comp AS VARCHAR) 

FROM (SELECT 0?FR_FROM LOCL, EXPR=OFFR__PRCE+ISNULL( (SELECT SHIP PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR FROM LOCL AND SHIP TO LOCL=SLocl_Id) / 0) / OFFR_QTY / OFFR„SELR_COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=OFFR SELR) , OFF R_8RAN_COMP=( SELECT BRAN COMP FROM BRAND WHERE 
BRAN ID=OFFR_BRAN) FROM OFFER WHERE OFFR2siZE=0 AND OFFR_CONT=CONT_ID)Q ORDER BY expr ASC), 
cont offr_rail=(SELECT TOP 1 val=CAST(of f r_FR0M_locl AS VARCHAR)* ' ; 1 + 

CAST(off r_selr comp AS VARCHAR)* 1 ; ' + 

CASTCexpr AS VARCHAR)* 1 ; 1 + 

CAST( (SELECT SUM(OFFRJJTY) FROM OFFER WHERE (OFFR_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP_FROM_LOCL=OF FR_FROM_LOCL AND SHIP JrO_LOCL=aLoc l_Id) ,0) )=EXPR AND 0FFR_SIZE=1 AND 
OFFR_CONT-CONT_ID) AS VARCHAR)+ 1 ; 1 + 

CASKoff r_bran comp AS VARCHAR) 

FROM (SELECT OFFR_FROM_LOCL, EXPR=OFFR_PRCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=OFFR FROM_LOCL AND SHIP TO_LOCL=aLocl_Id),0),OFFR_QTY,OFFR_SELR_COMP=(SELECT 
PERS_COMP FROM PERSON WHERE PERS_ID=OF?R_SELR) , OFF R_BRAN_COMP=( SELECT BRAN_COMP FROM BRAND WHERE 
BRAN_ID=OFFR BRAN) FROM OFFER WHERE 0FFR_SIZE=1 AND OFFR_CONT=CONT_ID)Q ORDER BY expr ASC) 
FROM CONTRACT)QO ORDER BY CONT_ORDR 
END 
END 

ELSE — aCont_typ< 



> ( Cust' 

BEGIN 

IF aUser Id IS NOT NULL 

BEGIN " CASE 1 aUser_ID NOT NULL 

SELECT 

cont_id, 

cont_labl, 

cont bid_truc=CASE ISNULL(cont_of f r_truc, '-V ) 
WHEN '-V THEN 
(SELECT TOP 1 vaL=CAST(expr1 AS VARCHARH ' ; ' + 

CASTCCSELECT SUM(BID_QTY) FROM BID WHERE BID_SIZE=0 AND BID CONT=CONT ID AND 
(BID PRC E+ I SNULL( (SELECT SHIP PRCEJTRUC FROM SHIPPING WHERE SHIP FROM_LOCL=aLoc l_Id AND 
SHIP~TO_LOCL=SHIP_FROM_LOCL) / 0)-ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP_FROMJ_OCL=aLocl_Id AND SHIP_TO_LOCL=BID_TO_LOCL) ,0) )=EXPR1 ) AS VARCHAR)+ ' ; 1 + 

"castTbid BUYR COMP AS VARCHAR) 
FROM (SELECT BID CONT / BID_PRCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP FROM_LOCL=aLocl_Td AND SHIP_TO LOCL=SHIP_FROM LOCL) ,0)-ISNULL( (SELECT SHIP J>RCE_TRUC FROM 
SHIPPING WHERE SHIP_FROM L0CL=3Loc t~Id AND SHIP TO~LOCL=BID TO LOCL),0) AS 
EXPR1,B1D_BUYR_C0MP=(SELECT PERS COMP FROM PERSON WHERE PERS_ID=BID_BUYR) FROM BID WHERE 
BID_SIZE=0)Q WHERE BID CONT=CONT ID ORDER BY EXPR1 DESC) 

ELSE 

(SELECT TOP 1 expr1=CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE 
SHIP FROM LOCL IN (SUBSTRINGUont offr true, 1 , PATINDEX( '%;%', cont offr truc)-1)> AND 



SHIP_T0_L0Ct=3LocL Id),0)-ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=BID _TO LOCL 
AND SHIP_FROM LOCL IN (SUBSTRIN6(cont_of f r truc,1 ,PATINDEX( '%;%' ,cont_of f r_truc)-1 )) ),0)) AS 
VARCHAR)+';*+ 
CASK 

(SELECT SUM(BIDJ3TY) FROM BID WHERE BID_SIZE=0 AND BID_CONT=CONT_ID AND 
( REVERS E(SUBSTR I NG( REVERSE ( con t offr t rue) , 1 , PATINDEX( 1 %;% ' 7REVERSE(cont offr truc)>-1))> NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 
PERS ID=BID BUYR) AND~TRST_CONT&POWER(2, CONT ID-DOO) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS~ID=BID~BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont offr truc,PATINDEX( '%;%' ,cont offr truc)+1 ,PATINDEX( 1 %;%' , right(cont offr truc,len(c 
ont offr_truc)-PATINDEX('%;% l / cont_offr_truc)T)-1)) AND TRST_CONT&POWER(2,CONT_ID-1)<>0) AND 
CAST ( (BID_PRCE+ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM LOCL IN 
(SUBSTRING(cont of f r_truc,1 ,PATINDEX( '%;%' ,cont_of f r_truc)~1 )) AND SHIPJTO~LOCL=aLocl_Id),0)- 
ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP TO LOCL=BID TO LOCL AND SHIP_FROMJ-OCL IN 
(SUBSTRING(cont offr truc,1 , PATINDEX( '%;%', cont of f r_t rucT-1 ) ) ),0)T AS 

VARCHAR)=CAST((Q.BIDJ>RCE+ISNULL((SELECT SHIP PRCE TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL IN 
(SUBSTRIN6(cont offr truc,1 ,PATINDEX( '%;%' , cont_offr_truc)-1 )) AND SHIP TO LOCL=SLocl_Id),0)- 
ISNULL( (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=Q. BIDJxTlOCL AND SHIP FROMJ.OCL IN 
(SUBSTRING(cont offr truc,1 ,PATINDEX( '%;%\cont_of f r_truc)-1 )) ),0) ) AS VARCHAR)) 
AS VARCHAR )+*;' + 

CAST( (SELECT PERSJTOMP FROM PERSON WHERE PERS_ID=BID_BUYR) AS VARCHAR) 
FROM BID Q WHERE BID SIZE=0 AND BID_CONT=CONT ID AND 
(REVERSE(SUBSTRING(REVERSETcont offr truc),1 , PAT INDEX ( '%;%', REVERSE ( cont_off r_t rue)) -1 ) ) ) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERSJTOMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) AND~TRST_CONT&POWER(2, CONT_ID-1 )<>0) AND (SELECT PERS_COMP FROM PERSON WHERE 
PERS_ID=BID_BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
(SUBSTRING(cont offr true, PATINDEX( '%;%' ,cont_of f r"truc)+1,PATINDEX( , %;%' , right' 



xCont_of f r_truc, Len<c 

ont_off r_truc)-PATINOEX( l %;% , ,cont of f r_truc>) ) AND TRST CONT&POWERC2, CONT_I0-1 )<>0) ORDER BY 
EXPR1 DESC) 
END, 

cont offr true, 

cont~b^_rail=CASE ISNULLCcont of f r_rai L, '-1 1 ) 
WHEN *-V THEN 
(SELECT TOP 1 val=CAST(expr1 AS VARCHAR)+ ' ; 1 + 

CAST((SELECT SU«(BID_QTY) FROM BID WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
(BIDJ>RCE+ISNULL( (SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP_FR0M_L0CL=3Loc l_Id AND 
SHIP_TO_LOCL=SHIP_FROM_LOCL),0)-ISNULL( (SELECT SHIP PRCE RAIL FROM SHIPPING WHERE 
SHIP FROM LOCL=aLocl Id AND SHIP TO LOCL=BID_TO_LOCL) ,0) )=EXPR1) AS VARCHAR)+ ' ; ' + 
~CAST(BID_BUYR_COMP AS VARCHAR)" 

FROM (SELECT BID CONT,BID PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROM_LOCL=aLocl_Id AND SHIP_T0_LOCL=SHIP_FR0M_J_OCL) / 0)-ISNULL( (SELECT SHIP_PRCE_RAIL FROM 
SHIPPING WHERE SHIP FROM L0CL=3Locl Id AND SHIP TO_LOCL=BID_TO_LOCL) ,0) AS 
EXPR1 7 BID_BUYR_C0MP=(SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID_BUYR) FROM BID WHERE 
BID SIZE=1)Q WHERE BID_CONT=CONT_ID ORDER BY EXPR1 DESC) 
ELSE 

(SELECT TOP 1 expr1=CAST((BID_PRCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE 
SHIP_FROMJ_OCL IN (SUBSTRING(cont_of f r_rai 1,1 , PATINDEX( '%;%' ,cont of f r_rai ) ) AND 

SHIP T0_L0CL=3LocL Id) / 0)-ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE SHIP_TO LOCL=BID TO LOCL 
AND SHIP_FROM_LOCL~IN (SUBSTRING(cont_of f r_raU,1 ,PATINDEX( »%;% ' ,cont offr rai L)-1 ) ) ) ,0) ) AS~ 
VARCHAR)+';'+ 
CAST( 

(SELECT SUM(BID QTY) FROM BID WHERE BID_SIZE=1 AND BID CONT=CONT_ID AND 
( REVERSE (SUBSTRING (REV ERSE ( con t_offr_rai 15,1, PATINDEX( ' %;% 1 , REVERSE (cont_offr rail))-1))) NOT IN 
(SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=(SELECT PERS_COMP FROM PERSON WHERE 
PERS ID=BID BUYR) AND TRST C0NT&P0WER(2, CONT ID-DOO) AND (SELECT PERS COMP FROM PERSON WHERE 
PERS_ID=BID BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST 



COMP IN 

(SUBSTRIN6(cont_off r_raiL / PATINDEX( , %;%' / cont - off r rai L)+1 ,PATINDEX( 1 %;%*, right (cont_of f r_rai I, LenCc 
ont_offr_raiL)-PATINDEX( , %;% , / cont_offr_rail)))-D) AND TRST_C0NT&P0WER(2,C0NT 10-1)00) AND 
CAST((BIDJ>RCE+ISNULL((SELECT SHIP_PRCE_RAIL FROM SHIPPING WHERE SHIP FROMJ.OCL IN 
(SUBSTRINGUont^offr^raU^PATINDEXTS^'^ont of f r_rait)-1 ) ) AND SHIP TO LOCL=aLocl ld),0)- 
ISNULL( (SELECT SHIPJ>RCE_RAIL FROM SHIPPING WHERE SHIP TO LOCL=BID TO LOCL~AND SHIP FROM LOCL IN 
(SUBSTRINGUont^offr^rail^PATINDEXTS^^cont of f r_rail)-1 ) ) ) ,0)7 AS 

VARCHAR)=CAST((Q.BIDJ>RCE+ISNULL( (SELECT SHIPJ>RCE RAIL FROM SHIPPING WHERE SHIP FROM LOCL IN 
(SUBSTRING(cont_offr_raU / 1 / PATINDEX( l %;%' / cont offr raiL)-D) AND SHIP TO LOCL^aLocTld)^)- 
ISNULL( (SELECT SHIP PRCE_RAIL FROM SHIPPING WHERE SHIP TO_LOCL=G. BID_TO~LOCL AND SHIP~FROM_LOCL IN 
(SUBSTRING(cont - offr_raiL / 1,PATINDEX( , %;% , / cont of f r_rai L)-1 ) ) ) ,0) ) AS VARCHAR)) 
AS VARCHAR)+' ; '+ 

CAST( (SELECT PERS_COMP FROM PERSON WHERE PERS ID=BID BUYR) AS VARCHAR) 
FROM BID Q WHERE BID_SIZE=1 AND BID_CONT=CONT_ID AND 
( REVERSE ( SUBSTRING ( REVERSE (cont offr rai L ) ,1 y PATINDEX( 1 %;% 1 , REVERSE (cont of f r_rail) )-1 ) ) ) NOT IN 
(SELECT DISTINCT TRST NOT TRST FROM TRUST WHERE TRST COMP=(SELECT PERS COMP FROM PERSON WHERE 



PERS ID=BID_BUYR) AND TRST C0NT&P0WERC2, C0NT_ID-1 )<>0) AND (SELECT PERS_COHP FROM PERSON WHERE 
PERS"lD=BID BUYR) NOT IN (SELECT DISTINCT TRST_NOT_TRST FROM TRUST WHERE TRST_COMP IN 
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!— #inc ude inc ude Head, inc"— 

! — #inc ude inc ude xchangeHead. inc" — 

1 — #inc ude =".. inc ude Hai .inc" — 

% ession " p" "A" AND ession " p" " " H N Response. Redi rec M ndex. peO" 

DM 

i, ,n,m, x^ecO/Rec ,Rec , r, rO,De au r ,Heigh , rVa ueHq a e, rVa ueBnk a e, rVa ue oin 
a e, r x Hq a e, r x Bnk a e, r x oin a e, rVa ue r , r x r ,B _ N,B BKR ,Mai 
,Mai Bis 
Heigh = 0 

Reques . orm " N UGH" H N 

1 age 

onnec ion. xecu e "U DA M R N 
H - & _ R _NAH ='"&Reques . orm " ~R R _NAM 11 
H _ R _ A _NAM = M, &Reques . orm " R _ A _NAM " 

M _ R _ ='"&Reques . orm " R _ " M R _HA = "'&Reques . orm " R HA " 

M _ R _ H N=*"&Reques . orm " R _ H N" , 

M _ R _ AX='"&Reques . orm " R _ AX" WH R M R D="S ession "Regis er" 
'Page 2 " 
Connection, xecu e "U DA M _ M AN 
M _ M „ = "»&Reques . orm " M _ " M _ H JIAM =*"&Reques . orm " M NAM " , M 

M JJR ='"&Reques . orm " M _UR " &" 1 , M _ M _ D_ AX= ' "fcReques . orm " M D ~AX" M M 

_ A _ AX='"&Reques . orm " M A AX" &"', M M J)UN ="'&Reques . orm " M~ DUN " M 
M _ ='"&Reques . orm " M _ " &" 1 , M M 



. _STRC= ,,, &Request.Form( , 'COMP_STRC ,, )&" , / TEMP COMP STAT 
_INC= "SRequest . ForraC " COMP^STAT^INC" )&" 1 , TEMP_COMP_PUB= 1 "^Request . FormC "COMP PUB" )&" 1 , TEMP~COMP~OWN= 
, "&Request.FormC ,, COMP_OWN")&' ,, WHERE TEMP COMP PERS= ,, &SessionC ,, Register ,t )) " " 

Connection. Execute ("DELETE FROM TEMP_PLACE WHERE 
TEMP^PLACJ'ERS^&SessionrRegister")^ 1 ; INSERT INTO TEMP_PLACE 

(TEMP_PLAC_PERS,TEMP_PLAC_CONT,TEMP_PLAC ADDR_ONE, TEMP PLAC ADDR TWO, TEMP PLAC CITY, TEMP PLAC ZIP TE 
MP_PLAC_STAT / TEMP_PLAC_CTRY / TEMP_PLAC_TYPE) ~ --/-_/ 

VALUES("&Session("Register")&VV' ^Request. FormrPLACJVDDRJWE")^' V "^Request . FormC "PLAC ADDR TWO 
'•)&" ' , ' "SRequest . FormC" PLAC_CITY")&" ' , ' "SRequest . FormC'PLAC ZIP" )&" ' , • "SRequest . FormC "CompState" )&" * 
, 1 "&Request . FormC " CompCount ry" )&» 1 , ' H 1 ) " ) " 
'Page 3 

Connection. ExecuteC"DELETE FROM TEMP_ASSOCIATE WHERE TEMP ASSO PERS="&SessionC"Reqi ster") ) 
FOR i=1 TO 3 " 
IF 

Request. FormC "ASSO_CONT"&i )&Request. FormC 1 ' ASSO NAME"&i )&Request . FormC "ASSO PHON"&i >&Request FormC'AS 
SO_ACNT_NB"&i)<>"» THEN Connect ion. Execute C" I " q 



NSERT INTO TEMP_ASSOCIATE 
(TEMP_ASSO - _PERS / TEMP_ASSO_NAME / TEMP_ASSO_ACNT_NB / TEMP_ASSO_CONT,TEHP_ASSO_PHON) 

VALUESC'&SessionC'Regi sterna", 1 "SRequest . Form("ASSO_NAME l, &i )&" ' , ' "SRequest . FormO'ASSO ACNT NB"&i)&" 
V'&Request.FormrASSO CONT"&i )&" ' , 1 "^Request . FormC'ASSO PHON"&i )&" 1 ) " ) 

NEXT 

•Page 4 

Connect ion. ExecuteC "DELETE FROM TEMP BANK WHERE TEMP BANK PERS= ,, &Session( ,, Register") ) 

Connection. ExecuteC" INSERT INTO TEMP_BANK 
CTEMP_BANK_PERS / TEMP_BANK_NAME / TEMP - BANK_CONT,TEMP_BANK_ACNT_NB / TEMP_BANK - ADDR ONE, TEMP BANK ADDR TW 
°/TEMP_BANK_CITY,TEMP_BANK_ZIP / TEMP_BANK_STAT / TEMP BANK_CTRY,TEMP_BANK PHON, TEMP_BANK FAX) " 
VALUESC'SSessionC'Register^a", ' "&Request . Form( "BANK NAME")&" ' , 1 "SRequest . FormC'BANK CONT^S" ' , ' "&Re 
quest . FormC "BANK_ACNT_NB" )&" 1 , ' "&Request . Form( "BANK ADDR_ONE" )&" 1 , 1 "SRequest . FormC "BANK ADDR TWO" )&" 
' , 1 "SRequest . FormC'SAN^Cm' 1 )^' ' , 1 "SRequest. FormC'BANK ZIP")&" ' , ' "SRequest . FormC'BANK STAT")&" 1 ' "& 
Request . FormC'BANK_CTRY")&" ' , ' "SRequest . Form("BANKJ>HON")&" 1 , 1 "SRequest . FormC "BANK FAX")&" 1 )") 

Connection. Execute ("UPDATE TEMP COMPANY SET TEMP COMP FELN=(SELECT CASE 
1 "SRequest. FormC'COMP^FELN")^" WHEN 'True' THEN 1 ELSE 0 END), TEMP COMP_BKRP=(SELECT CASE 
" , &Request.FormC , COMP_BKRP ll )& ,, ' WHEN 'True 1 THEN 1 ELSE 0 END) WHER*=~ 



TEMP_C0MP_PERS="8Session < "Regi ster" ) ) 

Connection . Execute ("UP DATE TEMP PERSON SET TEMP_PERS_ASKD=( SELECT CASE 
" , 8Request.Form("PERS_ASKD ,, )&"' WHEN " THEN '0' ELSE ' "8Request . FormC'PERS ASKD ,, )& ,, « END) WHERE 
TEMP_PERS ID="&Session("Register")) 

'Page 5 

Str=SpUtCRequest.Form("Loc H ) / Chr(34)) 
IF UBOUNDCStr)<>1 THEN 

FOR i=0 TO UBOUND(Str)/10 

StrO="INSERT INTO TEHP_PLACE 
(TEMPJ>LACJ>ERS / TEMPJ>LAC_CONT / TEMPJ>LAC_ADDR_ONE,T£MP PLAC ADDR^TWO, TEMP PLAC_CITY / TEHP PLAC ZIP,TE 
MP.PLAC.STA^TEMP.PLAC.INS^TEMP.PLAC LABL, TEMP_PLAC_CTRY / TEMP PLAC_PHON,TEMP_PLAC_TYPE)~ 
VALUES( , '&Sess1on< ,, Register ,, )8 1 ', ' "&Str(1+1*10)S" 1 , 1 "SSt r (3+1*10)8" ' , ' "8Str<4+i*10)&" 1 , 1 "&Str(5+i*10)8 
" ' , ' "8Str(6+i*10)& n ' , ' l, SStr(7+i*10)&" ' , * "SStrmi^OU" ' , • "8Str 0*10)8" ' , ■ "8Str (8+1*10)8" * ' "8Str(2+ 
1*10)8'" ," 7 

IF Request. FormC'COMP TYPE H )="D" THEN 
StrOsStrW'B' )" 



ELSEIF Request. Form( ,, COHP_TYPE") = "S 11 THEN 



StrO=StrO& ,,, S l ) M 

ELSE 

StrO=StrO& ,M D' )*' 

END IF 

Connection. Execute(StrO) 

NEXT 

END IF 

IF Request. Form( "NEXTJ>AGE" )="0" THEN 
Application. LockC) 
Application( H Flag")=1 

SET RecO=Connection . Execute ("SELECT 
TEHP_COMP_TYPE / TENP_COMP_NAME / TEHP_COHP_URL / TEMP COMP_FED TAX, TEMP COHP STAT_TAX,TEMP COMP DUNS, TEMP 
_COHP_SIC,TEMP_COMP_STRC / TEMP.COMP_STAT_INC / TEMP„COMP PUB, TEMP COMP OWnTtEMP COMP FELN,TEMP COMP BKR 
P FROM TEMP_COMPANY WHERE TEMP COMP PERS^'&SessionC'Register")) " ~ 

j=RecOCO) 

n=0 

m=RecO(0) 

SET Red = Connection.Execute("SELECT COMP ID FROM COMPANY WHERE 
COMPJTPE= ,,, &RecO(0)&"' AND COMP NAME= ' "SRecOO )&" 1 AND~COMP REG=1 ") 
IF NOT Red. EOF THEN 
Red . CLoseC) 
SET Red=NOTHING 

Response. Redirect ("Administrator Registration. tpeO") 

END IF 

Red .CLoseO 
SET Red=NOTHING 



'Is the company in the database as a unregistered company? 
SET Red=Connection.Execute("SELECT C0MP_ID FROM COMPANY WHERE 
COMP_JYPE='"&RecO(0)&" , AND COMP NAME= ' "SRecOd )&" 1 AND COMP REG=0 AND COMP ENBL=0 H ) 
IF Red. EOF THEN Ex="0" ELSE Ex=Red(0) 
Red .CLoseO 
SET Red=NOTHING 



"In Case of a Distributor company, Creation of the brother company (Purchaser) 
IF RecO(0)="D" THEN 

SET Red=Connection.Execute("SELECT COMP_ID FROM COMPANY WHERE 
C0MP_NAME=' ,, &Rec0(1)& M ' AND COMP TYPE='P' AND COMP_REG=1 ") 
IF NOT Red . EOF THEN 
Red. CLoseO 
SET Red=NOTHING 
'If the ne 



w company is a distributor company and if a purchaser 
company with the same name is already existing: abort 

Response. Redi rect ("Administrator Registration. tpeO") 

END IF 

Str=" INSERT INTO COMPANY 

(COMP_TYPE / COMP_NAME / COMP_URL / COMP_REG / COMP_DATE / COMP_FED TAX,COMP STAT_TAX, COMP_DUNS, C0MP_SIC, C0MP_ 
STRC,COMP_STAT_INC,COMP PUB, COMP OWN, COMP_FELN, COMP BKRP, COMP_ENBL> 

VALUESC ' P 1 , ' "&RecO<1 >&" ' , « "&RecO(2)& H 1 ,1 ,GETDATE< ) /"SRecOCSW 1 , ' "&Rec0(4)&" ' , 1 1, &RecO(5)&" ' , ' "SRecO 
C6)&" 1 , 1 "SRecOa)^ 1 1 , ' ,, &RecO(8)&" * , ' "&RecO<9)&" ' , ' "&Rec0<10)&" 1 , 11 

IF RecO<11)= n true H THEN Str=Str8"1 , " ELSE St r=Str&"0, " 

IF RecCda^'true" THEN St r=Str&"1 ,1 ) " ELSE Str=St r&"0,1) " 

Connection. Execute ( St r) 

Red . CLoseO 

SET Rec1=N0THING 

SET Rec1=Connection.ExecuteC"SELECT COMP ID FROM COMPANY ORDER BY COMP ID 

DESC") 

n=CInt(Red(0)) 
Red .Closet) 
SET Rec1=N0THING 

END IF 

'Creation of the mother company 
Str="INSERT INTO COMPANY 

(COMP_TYPE,COMP_NAME,COMP URL, C0MP_REG, COMP_DATE, COMP FED TAX, COMP_STAT TAX, COMP DUNS, COMP SIC, COMP 
STRC,COMP_STAT_INC,COMP PUB, COMP OWN, COM P_FELN, COMP BKRP, COM P_EN8L) ~ " 
VALUESC "SRecOCOU" ' , 1 "&Rec0<1 )&" ' , 1 "&Rec0(2)&" 1 ,1 ,GETDATEO , ' "aRecOC3)&" ' , ' "&Rec0(4)&" ' , ' "&RecOC5)& 
" ' , 1 "fiRecO^^" ■ , ' ,, &RecO<7)&" ' , ' "aRecOWS" ' , ' M &RecO<9)&" 1 , ' "&Rec0d0)&" 1 , " 
IF Rec0(11) = "true ,, THEN Str=Str&"1, 



" ELSE Str=Str&"0, n 
IF Rec0(12)="true" THEN $tr=Str&"1 ,1 )" ELSE Str=Str&"0 / 1 )" 



Connection. Execute C St r) 

RecO.CloseO 

SET RecO=NOTHING 

SET RecO=Connection.ExecuteC ,f SELECT COHP ID FROM COMPANY ORDER BY COMP_ID DESC") 
i=RecO(0) 

'Update of the database in case of the registration of a supplier or distributor 
company that was already in the database as unregistered 
IF Ex<>"0" THEN 

Connection. Execute ("UPDATE BRAND SET B R AN_COM P= " & i & " WHERE BRAN _COMP="&Ex) 
' Connection. ExecuteC'UPDATE TRUST SET TRST NOT_TRST="&i&" WHERE 
TRST_NOT_TRST="&Ex& n AND TRST_COHP IN (SELECT COMP_ID FROM COMPANY WHERE C0MP_REG=1) u ) 
END IF 

RecO.CloseO 
SET RecO=NOTHING 



'Officer 

SET RecO=Connection.Execute("SELECT 
TEMP_PERS_FRST_NAME,TEMP_PERS_LAST_NAME,TEMP_PERS TITL, TEMP_PERS_MAIL, TEMP_PERS J>HON, TEMP_PERS_FAX,T 
EMP_PERSJ.OGN,TEMPJ>ERSJ>SWD FROM TEMP_PERSON WHERE TEMP PERS_ID="&Session( "Register" ) ) 

Connect ion. Execute ("INSERT INTO PERSON 
(PERS_FRST_NAME,PERS_LAST_NAME,PERS_TITL,PERS_MAIL / PERS_PHON,PERS_FAX / PERS COMPTERS TYPE, PERS DATE, 
PERS_ENBL, PERS LOGN,PERS PSWD) " 

VALUES( ' "SRecOToS" ' , ' "&RecO<1 )&" 1 , ■ "&RecO(2)&" 1 , ' ,, &RecO(3)& 11 ' , 1 ,, &RecO(4)&" ' , ' ,, &RecO(5)&" ' , "&i&", 'O 1 
/ GETDATE(>,1, 1 "&RecO(6)&" 1 , ' ,, &RecO(7)&" ' )"> 

RecO.CloseO 

SET RecO=NOTHING 



T 



'Company Informations for the mother and eventually the brother companies 
SET RecO=Connect ion. ExecuteC SELECT 



EMP_ASSO_NAME,TEMP_ASSO ACNT NB,TEMP ASSO CONT,TEMP ASSO PHON FROM TEMP_ASSOCIATE WHERE 
TEMP_ASSO_PERS= ,l &SessionC"Register' I )> 
DO UNTIL RecO.EOF 

Connection. ExecuteC" INSERT INTO ASSOCIATE 
CASSO_COMP,ASSO_NAME,ASSO ACNTJIB, ASSO_PERS, ASSO_PHON) 

VALUESC "SiS", 1 "&RecO(0)&" 7 / 1 "&RecO(1 >&" * , 1 "&RecO(2>&" ' , 1 n &RecOC3)&" ' ) ") 

IF n<>0 THEN Connection. ExecuteC" INSERT INTO ASSOCIATE 

CASSO_COMP,ASSO NAME, ASSO ACNT_NB, ASSO_PERS, ASSO_PHON> 

VALUES< H &n&", ' "&RecO(0)&" T , 1 "&RecO(1 )&" 1 , ' ,, &RecOC2)&" 1 , ' ,, &RecO(3)&" ' ) ") 
RecO.MoveNextO 

LOOP 

RecO.CloseC) 
SET RecO=NOTHING 

'Bank Informations for the mother and eventually the brother companies 

SET RecO=Connection.Execute("SELECT 
TEMP_BANKJJAME,TEMP_BANKj:ONT / TEMP BANKJ>HON, TEHP BANK ADDR_ONE, TEMP BANK_ADDR TW0,TEMP BANK CITY,TE 
MP_BANK_ACNT_NB, TEMP_BANK_F AX, TEMP BANK_ZIP,TEMP BANK_CTRY, TEMP BANK~STAT, (SELECT TEMP_PERS_ASKD 
FROM TEMP_PERSON WHERE TEMP_PERS ID="&Session( "Regi ster")&" ) FROM TEMP_BANK WHERE 
TEMP_BANK_PERS="&Session("Regi ster" ) ) 

Connection. ExecuteC 11 INSERT INTO BANK 
(BANK_COMP,BANK_NAME / BANKJ»ERS / BANK PHON,BANK ADDR ONE^ANK.ADDR^TWO/BAN^CITY^AN^ACNT NB,BANK_FAX 
,BANK_ZIP,BANK_CTRY,BANK STAT) 
VALUESC'SiS" , ' "&RecOCO)&" ' , ' "SRecOCDfi" 1 , 1 "&R 



ec0(2)&" * , ■ n &RecO(3)&" 1 , 1 ,, &RecO<4)&" 1 , ' ,, &RecO(5)&" ' , ' "& 
Rec0(6)&" ' , ' "&Rec0<7)&" ' , ' "&Rec0(8)&" 1 / ' "&RecO(9)&" * , 1 "&RecO(10)& M ' V) 
IF m="S ,, THEN 

Connection. ExecuteC'INSERT INTO CREDIT 
( CRED_COMP, CRED_AMNT, CRED_AVLB, CRED RATE, CRED_RATE_1 , CRED_RATE 2, CRED_RATE_3 / CRED RATE 4,CRED DATE) 
VALUES( ,, &i&\0,0 / 0. 9700,1. 0/1500. 0,0,0,0,GETDATE( ) ) ") " " 

ELSEIF m^'D" THEN 

Connection. ExecuteC'INSERT INTO CREDIT 
( CRED_COMP,CRED_AMNT, CRED_AVLB / CRED_RATE, CRED RATE 1 , CRED_RATE 2, CRED_RATE 3,CRED RATE 4,CRED DATE) 
VALUES ("Si &", 0,0, 0.9700,1 .0/1500.0,0 / 0,0,GETDATE()T H ) ~ ~ 

ELSE 

Connection. ExecuteC'INSERT INTO CREDIT 
(CRED_COMP,CRED_AMNT,CREDJWLB,CRED_RATE,CRED_RATE 1,CRED RATE_2, CRED RATE 3, CRED RATE_4, CRED DATE) 
VALUES C "&i& H , "&RecO(11 )&'*, "&RecO(1 1 )&", 0.9925,1 .0/4000.0,1 .0/1 500.0, lT0/1 500.0,1 .0/1000. 0,GETDATE< ) ) 

END IF 

IF n<>0 THEN 



Connection. ExecuteC "INSERT INTO BANK 
(BANK COMP,BANK NAME, BANK PERS,BANK_PHON, BANK ADDR_ONE,BANK ADDR TWO,BANK_CITY,BANK ACNT NB,BANK FAX 
,BANK ZIP,BANK CTRY,BANK STAT) 

VALUESC "&n&" , ' "SRecOCOU"' , ' "&RecO(1 )&" ' , ' "&RecO(2)&" ' , ' n &RecO(3)&" 1 , ' "&RecO(4)&" ' , ' "&RecOC5)&" 1 , ' "& 
RecOWa" ' , ' "&RecO(7)&" ' , ' ,, &RecO(8)8" ' , ' "SRecOWa" ' , ' "&RecOC10)& H ' ) H ) 

Connection. ExecuteC INSERT INTO CREDIT 
CCRED„COMP,CRED_AMNT,CRED AVLB, CRED_RATE, CRED_RATE_1 , CRED RATE_2, CRED RATE_3, CRED RATE_4,CRED DATE) 
VALUES("&n& ,, , ,, &RecO(11)& n / "SRecO(11)& ,, / 0. 9925,1. 0/4000.0 ,1. 0/1 500. 0,l7o/1 500. 0,1. 0/1000. 0,GETDATEO) 

END IF 

RecO.CloseC) 
SET RecO=NOTHING 

'Place 

SET RecO=Connection. ExecuteC "SELECT 
TEMP_PLAC_ADDR ONE,TEMP PLAC_ADDR JTWO, TEMP_PLAC_CITY, TEMP PLAC_ZIP, TEMP PLAC STAT, TEMP_PLAC_CTRY, TEM 
P PLAC TYPE,TEMP_PLAC PHON,TEMP PLAC_CONT, TEMP PLAC INST FROM TEMP PLACE WHERE 
TEMP PLAC PERS= ,,, &SessionC ,, Register' , )&" ,H ) 
DO UNTIL RecO.EOF 

Connection . ExecuteC " INSERT INTO TMP_PLACE 
(TMP_PLAC_COMP,TMP_PLAC_ADDR_ONE,TMP_PLAC_ADDR TWO,TMPJ>LAC CITY,TMP_PLAC ZIP,TMP PLAC_STAT, TMP_PLAC 

CTRY, TMP PLAC TYPE,TMP PLAC PHON,TMP PLAC PERS,TMP PLAC INST) 
VALUES("&i&", ' ,, &RecO(0)&' 1 ' , 1 "&RecOC1 )&" ' , 1 "&RecOC2)&" ' , ' "&RecOC3)&" 1 , 1 "&RecOC4)&" ' , ' "&RecOC5)&" ' , ' "& 
RecOC6)&" ' , ' "&RecO(7)&" ' , ' "&RecOC8)&" ' , ' "&RecOC9)& u ' ) " ) 
RecO.MoveNextC) 

LOOP 

RecO.CloseC) 
SET RecO=NOTHING 



'Our Correspon 



dant Emai I 

SET RecO=Connection.Execute("SELECT TEMP_PERS_FRST NAME, TEMP PERS_LAST NAME, (SELECT 
TEMP_COMP_NAME FROM TEMP_COMPANY WHERE 

TEHP_COMP_PERS=TEMP_PERS_ID) / TEMP_PERS_TITL / TEMP PERS_PHON, TEMP PERS MAIL, (SELECT TEMP_COMP_TYPE 
FROM TEMP_COMPANY WHERE TEMP_COMP_PERS=TEMP PERS~ID) , TEMP PERS_LOGN, TEMP_PERS PSWD,TEMP PERS ASKD 
FROM TEMP_PERSON WHERE TEMP_PERS_ID="&Session("Register' 1 ) ) 

Str = "Dear "&RecO(0)&",<br><brXbr>We are pleased to approve "&RecO(2)&" as a new 
member of The Plastics Exchange. " 

IF mC'S" THEN Str=St r&"You have been approved for $"&RecO(9)&" in credit. " 

Str=Str&" <a href= , http://www.ThePlasticsExchange.com , >Click here</a> and login to 

register your " 

SELECT CASE m 

CASE "S" Str=Str&" sellers" 

CASE " D" Str=Str&" buyers (sellers)' 1 

CASE "P" Str=Str& M buyers" 

END SELECT 

Str=Str&". If you would like assistance or training please call Member Services at 1- 

800-8 



50-2380. <br><br> <br><br>User ID: "&Rec0(7> 

Str = Str & u <br>"&Chr(13> 

Str = Str & ,l SincereLy / <br>"&Chr(13) 

Str s Str & "<br> n &Chrn3> 

Str = Str & ^brV'&ChrCIS) 

Str = Str & "Michael A. Greenberg, CEO<br>"&Chr (13) 

Str = Str & "<a href= ' http://wwv.ThePlasticsExchange. com'VThe Plastics 
Exchange</aXbr>"&Chr<13) 
' CALL 

SendMai I ( H Inf o3TheP last i c sex change. com", Request . FormO'RecOCS) ") , "Inf oSlTheP last i csExchange. com", "", "T 
hePlasticsExchange Registration", Str) 

'Registration Destruction 

Connection. Execute<"DELETE FROM TEMP_PLACE WHERE 
TEMP_PLAC - PERS="&Session( ,, Register ,, )& ,, ;DELETE FROM TEHP_BANK WHERE 
TE«P_BANK_PERS= ,, &Session("Register ll )& l, ;DELETE FROM TEHP ASSOCIATE WHERE 
TEMP_ASSO_PERS="&Sess i on (" Reg i ster" )&"; DELETE FROM TEMP~COMPANY WHERE 
TEMP_COMPJ>ERS= ,, &Session( ,, Register")& ,, ;DELETE FROM TEMP~PERSON WHERE 
TEMPJ>ERS_ID="&Session( l, Register")) 

RecO. Close 

Connection. Close 

SET RecO=NOTHING 

SET Connection=NOTHIN 



' Logout 



Session("Reg^ster , ')=" , * 

Application("Flag n )=0 

App Li cation. UnLockC) 

Response . Redi rect ( " . . /My Index . tpeO" ) 

END IF 

END IF 

%> 

<%= ,, <scr ,, %>ipt language="JavaScript"> 

function updt(Obj) 

{ 

if (Obj . typei=* select-one *&&Obj . typei=' checkbox' ) 
i 

if (Obj . value. searchC " 1 )!=-1 1 [Obj . value. search( ' \* ')I=-D 
{ 

fMessageCWe don't accept the characters ' and \", please correct your 

data.", Obj) 

Obj .focusO 
return 

> 

evaLC 1 wi ndow. document . Form. '+Obj . name.substrCI ) ) . value=Obj .value 

> 

else if (Obj .type==' select-one' ) 

eva I ( 1 wi ndow . document . Form . 1 +0b j . name . subst r ( 1 ) ) . va lue=Ob j [Ob j . se lectedlndex] . va Lu 

else 
{ 

eval( 1 window. document. Form. '+Obj .name.substrCI ) ) . value=0bj . checked? ' True 1 : 1 False' 

> 

> 

CS8='<td CLASS=S8>* 

CS9='<td CLASS=S9>* 

C2S8='<td CLASS=S8 colspan=2>* 

C2S9='<td CLASS=S9 colspan=2>* 

C3S8='<td CLASS=S8 colspan=3>' 

Img =, <img src=/images/1x1 .gif border=0 width=' 

function Txt(A,B,C) 

{return '<input type=text name=f'+A+' '+((typeof (C) !=' undefined' )?' si ze='+C: ' ' )+' 
maxlength= 1 +B+ t onChange=wi ndow. updt (this) value=" '+eval( 'window. document . Form. '+A+' .value' )+' ">' 



Tunction show(who) -C 

var msg='<table border=0 ceLlspacing=0 cellpadding=OXtrXtd valign=top>' 

msg +='<table border=0 celLspacing=0 cellpadding=0 bgcoLor=bLack><tr><td colspan=5> , +Img+ 
height=lX/tdX/tr>' 

msg +='<trXtd> , + Img+ , 1 height=6X/tdXtd bgcoLor=#E8E8E8>'+Img+ , 3X/tdXtd 
bgcolor=:#E8E8E8> , +Img+ l 1 height=3XbrXtable border=0 eel lspacing=0 eel Lpadding=OX%IF NOT NM6 
THEN%XformX%END IF%Xtr>' 

switch(whoK 

case 1 : 

msg += CS8+'First Name<br>'+Txt< 1 PERS_FRST NAME ' ,20)+Img+ 1 5X/td>' ; 
msg += CS8+*Last Name<br> ' +Txt C ' PERS LAST NAME 1 ,20)+Img+ ' 5></td>* ; 
msg += CS8+ ' Ti t le<br> ' +Txt ( 1 PERS_TITL 1 ,3()7l 5 ) + Img+ ' 5></tdX/t rXt r> ' ; 
msg += CS8+ , Phone<br> , +Txt( , PERS_PHON' / 15) + Img+ , 5X/td>'; 



msg += CS8+* Emai KbrXinput type=text maxlength=5Q 
value=" ' +eval( 'window. document .Form. PERS_HAIL. value' )+ ' " 

onChange=" if (this. value!=&#39;&#39;&&(this. value. lastlndexOf (&#39;a&#39; )==- 

1 | | this.value.substringC this. value. lastlndexOf (&#39;3&#39;)+1 / this. value. length) . lastlndexOf (&#39; .& 
#39;)==-1)Halert(&#39;Wrong email 

fo^mat&#39;);th^s.value=&#39;&#39;;this.focus()>else-Cwindow.updt(this)> , '> l + I^^g+ , 5></td> , ; 
msg += CS9+ , Fax<b^>'+Txt('PERS_FAX l / 15 / 15)+Img+'5></td></t^> , ; 

break; 
case 2: 

msg += CS8+'Type of Busi ness<br><select name=f COMPJTYPE 
onChange=window.updt(this);window.show(2)> , +Path.SOStrg(new Array! ' D' , ' P' , ' S' ),new 
Array C 1 Buyer/Seller' , 'Buyer' , ' Seller' ), window. document . Form. 



COMP_TYPE.vaLue)+ , </td> 1 
msg += C2S8+' Organized as<br><select name=f COMP_STRC 
onChange=window.updt(this)>'+Path.SOStrg(new Array C'C , ' L' , ' S ' , ' 0 ' ),new Array ( 1 Corporation 1 , ' LLC 
Partnership '/Sole-Proprietorship '/Other' ), window, document. Fo™. COMP STRC. value)+'</tdXtd 
CLASS-S9>State of Incorporat ion<br><select name=f COMP_STAT_INC 

onChange=window. updt (thi s)> 1 +Path . SOSt rgCStrValueHqState, St r TxtHqS tat e, window. document . Form. COMP STA 
T_INC.vaLue)+'</td>' 

msg += *</trXtrXtd colspan=4Xselect name=HelpName 
onChange= Javascript: window. document . Form. COMP_NAME. value=th is. opt ionsCt his. opt ions. select edlndex].te 
xt; window. show(2)>' 



if (window. document . Form. COMP_TYPE. vaLue==' S ' ) 
<% 

SET RecO=Connection.Execute("SELECT COMP_NAME FROM COMPANY WHERE 
COMP„TYPE= , S l AND COMP_REG=0 AND COMP NAME NOT IN (SELECT COMP NAME FROM COMPANY WHERE COMP REG=1 ) 
ORDER BY COMP_NAME") 

Str="' V 

StrO= ,M '," 

DO UNTIL RecO.Eof 

StrO=StrO&" 1 "&RecO(0>&" ' , " 

St^St^ 1 " V 

RecO.MoveNextO 

LOOP 

RecO. Close 

SET RecO=NOTHING 

%>msg += Path.SOStrg(new Array(<%=Lef t(Str / Len(Str)-1)%>),new 
Array«%=Left(StrO,Len(StrO)-1)%», ' ') 

else if (window. document. Form. COMP TYPE. value™ ' P 1 ) 

<% 

SET RecO=Connection.Execute("SELECT COMP_NAME FROM COMPANY WHERE 
COMP_TYPE= , P' AND COMP REG=0 AND COMP_NAME NOT IN (SELECT COMP_NAME FROM COMPANY WHERE COMP RE6=1) 
ORDER BY COMP NAME" > 

Str= ,,,, / " 
StrO="' 

DO UNTIL RecO.Eof 

StrO=StrOS" ' ,l &RecO(0)S ,t 1 
Str=Str&"' ' 
RecO.MoveNextO 

LOOP 

RecO. Close 

SET RecO=NOTHING 

%>msg += Path.SOStrg(new Array(<%=Lef t(Str,Len(Str)-1 )%»,new 
Array^^eftCStrOAenCStrO-im),' *) 
else 

<% 

SET RecO=Connection.Execute("SELECT COMP_NAME FROM COMPANY WHERE 
COMP_TYPE= , D I AND COMP_REG=0 AND COMP NAME NOT IN (SELECT COMP_NAME FROM COMPANY WHERE COMP REG=1 ) 
ORDER BY COMP_NAME") 

Str="" / " 
StrO= ,M 

DO UNTIL RecO.Eof 

St rO=StrO&" ' "iRecCKOW 1 , » 
Str=Str&" 1 
RecO.MoveNextO 

LOOP 

RecO. Close 

SET RecO=NOTHING 

%>msg += Path.SOStrg(new Array(<%=Lef t(Str,Len(Str)-1 )%»,new 
Array(<%=LeftCStrO,Len(StrO>-1)%>), ") 
msg += '< 



/tdXtrV+CSS+'Full Legal Business Name<br> ' +Txt C 1 COMP_NAME 1 , 40, <% I F MSIE OR 
NN6 THEN%>3<%ELSE%>2<%END IF%>0)+Img+' 5></td>' 

msg += C3S8+ ' Corporate 
URL<br> 1 +Txt C 1 COMP URL ' , 50 / 30)+lmg+ ' 5></tdX/t rXt r> ' +C2S8+ 1 Address 
1<br>'+Txt< ' PLAC_ADDR_ONE ' / 50 / 30)+Img+ 1 5></td>' 

msg += C2S9+'Address 2<br>'+Txt C ' PLAC_ADDR_TWO 1 ,50,<%IF MSIE OR NN6 
THEN%>30<%ELSE%>20<%END IF%» + Img+' 5></td> 1 

msg += 

, </tr><tr> l +CS8+ , City<br> , +Txt( , PLAC_CITY , / 20)+Img+ , 5></td></td> , +C2S8+ , State<br><select 
name=f CompState 

onChange=window.updt(this)>'+Path.SOStrg(StrVaLueHqState / St rTxtHqState, window. document. Form. CompStat 
e.value)+'</td> 1 

msg +- CS8+' Zip/Postal Code<br> I +Txt ( 1 PLAC ZIP ' / 10 / <%IF MSIE OR NN6 
THEN%>10<%ELSE%>5<%END IF%» + Img+ 1 5X/tdX/tdX/trXtr>' 

msg += CS8+* Count ry<brXselect name=f CompCountry 
onChange= Javascript: window. document. Form. SHOW. value= M 2";window. updt (this); window. valid(&#39;&#39; )>' 
+Path.SOStrg<StrValueCtry / StrTxtCtry,window.documen* 



i . Form. CompCount ry . va lue)+Img+ ' 5></td> ' +CS9+ ' Owne 
d by PubUc<br> l +Txt('COMP PUB ',3,10)+'%' +Irag+ ' 5></td> 1 +CS9+ ' Your 
Ownersh i p<br> ' +Txt ( 1 COMP_OWN 1 ,3, 1 0) + 1 % 1 +Img+ 1 5></td> » +CS9+ ' Federa I Tax 

#<br>*+Txt( , C0MP_FED_TAX , / 15 / <%IF MSIE OR NN6 THEN%>1 5<%ELSE%>5<%END IF%» + Img+ ' 5></td></tr>' 

msg , <tr> , +CS9+ , State Tax #<br>'+Txt< 'COMP STAT_TAX* ,15) + Ifflg+' 5></td>'+CS9+ 1 DUNS 
U<br> ' +Txt ( ' COMP DUNS ' , 1 5, 1 0)+Img+ 1 5></td> ' +C2S9+ ' SIC 
Code<b^> , +Txt( , COMP - SIC , / 15)+Itng+ , 5></td></tr> , 



break; 
case 3: 

msg += CS8+' Company 
Name</td> * +CS8+ ' Contact</td> 1 +CS8+ ' Phone</td>' +CS9+ ' Account#</tdX/t r> 1 
<%F0R 1=1 TO 3%> 

msg += '<tr>'+CS<%IF i=1 THEN%>8+ ' 1<%ELSE%>9+ , <%=i+1%X%END 
IF%> , +Txt( , ASSO_NAME<%=i%>^40J5) + Img+'5></td><td> , +Txt( , ASSO_CONT<%=i%>^20 / 15> + Img+ , 5></td><^ 
Txt('ASSO_PH0N<%=i%> l / 20 / 15)+Img+ , 5X/td><td> , +TxtC l ASSO_ACNT NB<%=i%> ' ,1 5,<%IF MSIE OR NN6 
THEN%>1 5<%ELSE%>8<%END I F%» + Img+ ' 5></tdX/t r> ' 
<%NEXT%> 

break; 
case 4: 

msg += C2S8+'Bank 

Name<br> , +Txt( , BANK_NAME , / 50)+ , </td>'+C2S8+ , Contact<br> , +Txt( , BANK_CONT , / 20)+ , </td> l +CS8+ , Phone<br>' 
+Txt ( ' BANK_PHON ' ,20)+ 1 </tdX/t r> ' 

msg += , <tr>'+C3S8+' Address 1<br> ' +Txt C 1 BANK ADDR_0NE 1 ,50/30) + 1 </td> 1 +C2S9+ 1 Address 
2<br>'+Txt( 1 BANK_ADDR_TWO' ,50,30) + ' </tdX/tr>' 

msg += ' <t r> ' +C2S8+ ' Ci ty<br> 1 +Txt C ' BANK_CITY ' ,20)+ 1 </td> ' +C2S8+ ' State<brXse lect 

name=f BANK_STAT 

onChange=window.updt (this )>' +Path. SOStrgC St rValueBnkState, St rTxtBnkState, window. document . Form. BANK S 
TAT.value)+'</td> , +CS8+ l Zip/Postal Code<br>'+Txt ( 'BANK^ZIP 1 ,10)+' </tdX/tr>' 
msg += 

, <tr> , +C2S8+ , Account#<br> , +Txt( , BANK_ACNT_NB , ,15)+'</td> , +C2S9+ , Fax<br>'+Txt( , BANK FAX ' ,20)+ ' </td>' + 
CS8+'Country<brXselect name-f BANK_CTRY 
onChange=Javascript ".window. document . Form. SH 



OW. value="4"; window. updt (this); window. valid(&#39;&#39; )> 
+Path.SOStrg( St rValueCtry, St rTxtCtry, window. document . Form. BANK_CTRY. value) + ' </tdX/t r> ' 
if (window. document. Form. COttP TYPE. value!= ' S 1 ) 

msg += '<tr><td CLASS=S8 colspan=5>Check alt 
apppopriate</tdX/tr><tr><td> , +Img+ , 10 height=1X/tdXtd>' + Img+'110 height=1X/tdXtd> 1 +Img+ 1 90 
height=1X/tdXtd>'+Img+'40 height=1X/tdXtd> ' +Img+ 1 140 height=1X/tdX/tr>' 

msg += '<trXtdXinput type=checkbox <%IF NOT NN6 
THEN%>STYLE=" BORDER : 0; BACKGROUND-COLOR : #E8E8E8; "<%END IF%> 

name=fCOMP_FELN , +((window.docuraent.Fo^IIl.COMP_FELN.vaLue== 1 T^ue , )? , checked 1 :' ')+' <%IF MSIE OR NN6 
THEN%>onChange<%ELSE%>onCli ck<%END IF%>=window. updt(this)X/tdXtd CLASS=S2 colspan=3>Any owner or 
officer of my company<br>ha 



s ever been convicted of a felony . </td><td CLASS=S9 valign=middle 
rowspan=3>Credit amount requested<br>' +Txt ( ' PERS_ASKD ' ,10,15) + ,  US$</tdX/tr>' 

msg += '<tr><td colspan=4Xhr width="90%"X/tdX/trXtrXtdXinput 
type=checkbox <%IF NOT NN6 THEN%>STYLE="BORDER:0; BACKGROUND- COLOR :#E8E8E8; "<%END IF%> 
name=fCOMP_BKRP , +((window.document.Form.COMP_BKRP.value== , True' )?' checked':' ')+' <%IF HSIE OR NN6 
TH£N%>onChange<%ELSE%>onC li ck<%EN0 IF%>=window.updtCthis)X/tdXtd CLASS=S2 coLspan=3>Any owner or 
officer of my company<br>has ever been involved in a Bankruptcy . </tdX/tr>' ; 
> 

break 
case 5: 

msg += 

CS8+' Label<br>' +Txt( 1 TEMP_PLAC_LABL' ,20)+Img+ ' 5X/td> * + CS8+ ' Contact<br>' +Txt( * TEMP PLAC_CONT' ,20)+I« 
g+ , 5X/td> I +CS8+'Phone<br> , +Txt('TEHP_PLAC_PHON , / 15 / 15)+Img+ l 5></tdX/tr> , 
msg += , <tr>'+CS8+' Address 



.<br> , +Txt<'TEHP_PLAC - ADDR_ONE' , 50) + Img+ * 5X/td> ' +CS9+ ' Address 

2<br>'+Txt( , TEHP_PLAC - ADDR~TWO l / 50)+Img+ , 5X/td> , +CS8+ , City<br> 1 +Txt( , TEHP PLAC CITY' / 20 / 15)+Img+ 1 5> 
</td></tr>' " a 

msg += , <tr>' + CS8+ , State<brXselect name=f TEMP_PLAC_STAT 
onChange=window. updt(this)> '+Path. SOStrgC St rValuePoi ntState, St rTxt Point State,wi ndow .document . Form. TE 
MP_PLAC_STAT.vaLue) + Img+'5X/td> , +CS8+ 1 Zip/Postal 

Code<br> ' +Txt ( • TEMPJ>LAC_ZIP * ,10)+Img+ 1 5X/td> 1 +CS8+ 1 Count ry<brXselect name=f TEMP_PLAC_CTRY 
onChange=Javascript: window. document. Form. SHOW. va Lue="5 l, ;window.updt( this); window. valid (&#39;&#39; )>' 
+Path. SOStrgCStrValueCtry, St rTxtCtry, window, document. Form. TEHP_PLAC_CTRY. value) + , </tdX/tr>' 

msg += '<trXtd colspan=3 class=S9Xcenter>Addi t ionnal 
Instructions<br>'+Txt(*TEHP PLAC INST' ,250,<%IF MSIE OR NN6 THEN%> 



70<%ELSE%>50<%END IF%>)+'<brXa 

h ref = j avas c r i pt : wi ndow . Add ( ) 

OnMouseOut=Javascr ipt : document . i magesC&#39; bt_ADD&#39; ] . src=&#39; /images/buttons/bgADD . gi f&#39; 
OnMouseOver= Javascript: document, i mages C"bt_ADD" 3. src^TempO. srcXi mg src=/images/buttons/bgADD.gif 
name=bt_AOD border=OX/a></tdX/tr><tr><td colspan=3Xtable cellpadding=0 cellspacing=0 border=0 
bgcolor=#E8E8E8XtrXtd background=/i mages/mi sc/sep3.gif>' + Irng+'1 height=20X/tdXtd 
background=/i mages/mi sc/sep2.gif > , + Img+' 200 height=20X/tdXtd class=S9 

valign=top> Your  Locations : </td><td background=/images/misc/sep2.gif>' +Img+'200 
height=20X/tdXtd background=/iraages/raisc/sep3.gif> , + Img+ , 1 height=20X/tdX/tr>' 

msg += '<trXtd bgcolor=#000000>'+lmg+' 1X/tdXtd colspan=3> 1 

Tmp=wi ndow. document. Form. Loc. value. split ( "" ) 

for(a=0;a<Tmp. Length/10&&Tmp. length !=1;a++) 



msg += '<a href=Javascript : DeU '+a+' )Ximg src=/images/i cons/cross. gif 
border=0X/a>'+Img+'10Xa href = Javascript: Edit ( '+a+' )>' +TmpCa*1 03+' ( '+Tmp[5+a*103+ 1 
1 +Tmp[7+a*1 0]+ 1 , ' +Tmp[8+a*1 03+ ' ) </a><br> 1 

msg += '</tdXtd bgcolor=black>' +Img+ 1 1X/tdX/trXtrXtd bgcoLor=black>' + Img+ , 1 
height=1X/tdXtd bgcolor=black>'+Img+ , 200 height=1X/tdXtd bgcoLor=bLack> , + Img+ , 1 
height=1X/td><td bgcolor=black> , +Img+ '200 height=1X/tdXtd bgcolor=bLack> ' +Img+ ' 1 
height=1X/tdX/tr>' 

msg += , </tabLeX/tdX/tr> 1 ; 

break 
> 

msg += '<%IF NOT NN6 THEN%X/f ormX%EN0 IF%X/tabLe>' + Img+'1 height=3X/tdXtd 
bgco lor=#E8E8E8> 1 +Img+ 1 3X/tdXtd> ' + Img+ 1 1 hei ght=6X /t r> ' 

msg '<trXtd bgcolor=black colspan=5>*+Img+ 1 1 height=1X/tdX/trX/table>' 
msg += , </tdXtd> , +Img+'10X/tdXtd valign=top>' 

msg += '<tabte border="0 M cellspacing="0" eel Ipadding^'O" bgcolor="Black' , XtrXtd 
bgcolor=white rowspan=5Ximg src=/i mages/1x1 .gi f width=10 border=OX/tdXtdXi mg src=/images/1x1 . 
width=1 border=OX/tdXtdXimg src=/images/1x1 .gif width=3 border=0X/tdXtd class=S5Ximg 
src=/images/1x1.gif width=4 border=0>Message</tdXtdXimg src=/images/1x1 .gif width=3 
border=OX/tdXtd><img src=/images/1x1 .gif width=1 border=OX/tdX/trXtrXtdXimg 
src=/images/1x1.gif width=1 heights border=0X/tdXtd bgcotor=#E8E8E8Ximg src=/images/1x1 .gi f 
width=3 heights border=0X/tdXtd bgcolor=#E8E8E8 nowrapXimg src=/images/lx1 .gif width=100 
height=6 border=0X/tdXtd bgcolor=#E8E8E8Ximg src=/images/1x1 .gif width=3 height=6 
border=0X/tdXtdXimg src=/images/1x1 .gif width=l heights border=OX/tdX/trXtrXtdXimg 
src=/images/1x1 .gif width=1 border=0X/tdXtd bgcolor=#E8E8E8Ximg src=/images/1x1 .gif width=3 
border=OX/tdXtd bgcolor=#E8E8E8 now 



rap><Li>ALl fields in red are required. </li><Li>The save button 
updates your<br> information into the database. </LiXLi>The finish button closes the<br> 
registration and sends the<br> application for acceptance. </UX/tdXtd bgcolor=#E8E8E8Ximg 
s rc=/i mages/1 x1 .gif width=3 border=OX/tdXtdXiing src=/images/1x1 .gif width=1 
border=OX/tdX/tr><trXtdXimg src=7images/1x1 .gif " width="1" height= M 6" border= ,, 0" 
alt=' M, X/tdXtd bgcolor=#E8E8E8Ximg src="/">mages/1x1 .gif " width="3" height="6" border^'O" 
ait=""X/tdXtd bgcolor=#E8E8E8Ximg src="/i mages/1 x1 .gif " width= M 100" height="6" border^'O" 
alt=" u X/tdXtd bgcolor=#E8E8E8Ximg src=/images/1x1 .gif width=3 height-6 border=OX/tdXtdXimg 
src^'Vimages/lxl.gif" width^'V height="6" border= ,, 0 ,, alt^'X/tdX/trXt rXtd bgcolor=#000000Ximg 
src=/images/1x1 .gif width=1 height=1 border=OX/tdXtd bgcolor=#000000Ximg src=/images/1x1 .gif 
width=3 height=1 border=OX/tdXtd bgcolor=#000000Ximg src=/images/1x1 .gif width=100 height=1 
border=OX/tdXtd bgcolor=#000000Ximg src=/i mages/1 x1 .gif width=3 height=1 border=OX/tdXtd 
bgcolor=#000000Ximg src=/images/1x1 .gif width=1 height=1 border=OX/tdX/trXtrXtd colspan=6 
bgcolor=white>' +Img+' 1 height=16X/tdX/t rXt rXtd colspan=6 bgcolor=white align=center><di v 
align=center><a href= javascript: window. valid(&#39;1&#39; ) 

OnMouseOut=Javascript : document . images [&#39;bt_SAVE&#39; J . src=&#39; /i mages/but tons/bgSAVE. gi f&#39; 
OnMouseOver=Javascript : document . imagesC&#39;bt_SAVE&#39; ] .src=Temp1 . srcXimg 
src=/images/buttons/bgSAVE.gif name=bt 



_ AV 

border=0 a Snbsp Snbsp Snbsp Snbsp &nbsp &nbsp Snbsp Snbsp a 
hre = avascrip :window.va id 8# 0S# 
nHouse u = avascn'p :documen .images S# b _ N HS# .src=S# images bu ons bg N H.gi &# 
nMouse ver= avascrip :documen .images &# *~b _ N H&# .src= emp .src img 
src= images bu ons bg N H.gi name=b _ N H border=0 a div d r ab e 1 
msg += 1 d r ab e 1 

eva zz+'Main'+xx 
eva zz+ ' Mai n 1 +cc+msg+vv 
eva zz+'Main'+bb 
op. up rame.show who 

unc ion Add 

wi h % H R NN 

,H~N%. window. documen.. .orms. X eva . .zz+ 1 Mai n x 1 „ 1 , .documen . .orms 0 % ND % 

i M A _ AB .va ue!=""8& M _ A N . va ue! = ,n, &8 M A H N.va ueI=""SS M _ 
A _ .va uei^'SS M _ A _ADDR_ N .va uei = ,,,r &8 M A _ .va ue~! = "" ~" 

re= ' g 



window. documen . orm. oc. 



value+=((window. document . Form. Loc. value. length==0)? ,t " : ' " ' )+f TEMP PL 
AC_LABL.value+ ,,M +fTEMP_PLAC_CONT.vaLue+' *" +f TEMP_PUC_PHON. vaLue+ "' 1 +f TEMP_PLAC ADDR_ONE. value+ + 
f TEMP J>LAC_ADDR_TWO . va lue+ 1 " ' +f TEMP_PLAC_CITY. va lue+ * " 1 +f TEMP_PLAC_ZIP . va Lue+ ' " ' +f TEMP_PLAC_STATCf TE 
HP PLAC STAT. selected Index] . va lue. rep Lace (re, 1 ' )+ ' " ' +f TEMP_PLAC CTRYCf TEMP PLAC_CTRY. selectedlndex] . 
value . replaceC re, 1 ' ) + +f TEMP J>UC_INST. va lue 
InitCnew 

Array (' 1 , 1 VV ' ,"/"/"/ " , window. document. Form. TEMP_PLAC_CTRY. value, ' ' )) 



showCS) 

> 

function EditCId) { 

Temp=window. document . Form. Loc. value.spLi tC 1 " 1 ) 
DelUd^) 

VaL= (window. document . Form. TEH P_PLAC_CTRY.va lue!=Temp[8+Id*103)?1 :0 
wi ndow. document .Form. TEMP_PLAC_CTRY.value=TempC8+Id*1 03 
Ini t(new 

Array(Temp[0+Id*10] / TempC1+Id*10],TempC2+Id*10] / TempC3+Id*10] / TempC4+Id*10],TempC5+Id*10] / TempC6+Id* 
10] / TempC7+Id*10] / TempC8+Id*10] / TempC9+Id*10]),VaL) 
show(5) 

> 

function Init(Tmp, Value) -C 

with (window. document . Form) 

TEMP PLAC_LABL.value=Tmpt03 
TEMP_PLAC_CONT . va Lue=TmpC1 3 
TEMP PLAC_PHON.value=Tmp[23 
TEMP_PLAC_ADDR_ONE.value=TmpC33 
TEMP PLAC_ADDR_TWO.value=Tmp[4] 
TEMP PLAC_CITY.value=TmpC5] 
TEMP_PLAC_STAT . va lue=TmpC73 
TEMP_PLAC_ZIP.value=TmpE63 
TEMP_PLAC_INST.vaLue=TmpC9] 
if(Value==1) 

a 

SH0W.value=5 
submit () 

> 

> 

> 

function DeUIndex, Flag) 
C 

Temp=wi ndow. document . Form. Loc. value. split ( ' " 1 ) 
TempBis= 11 

for(i=0;i<Temp. length 



/10&&Temp. Length!=1;i++) 

if (i!=Index) 

TempBis+=TempC0+i*103+ 1 " ' +TempC1+i*103+ ' " 1 +TempC2+i*10]+ ' " ' +TempE3+i*10D+ ' " ' +TempE4+i*10]+ ' " 
' +TempC5+i*1 0]+ ' " ' +Temp[6+i*1 0]+ Ml * +Tem^ 

window. document . Form.Loc. value=TempBis 
if(Flag!=0) show(S) 

> 

function Linked3(object1 ,object2 / object3,text) 
{ 

total = objectl .value + object2. value + object3. value 

if (! ((total! = ,n, )&&( (objectl. value== H ") | | <object2. value== ,ni ) | ] (object3. value=="")) )) 
return true 

else 

return false 

> 

function valid(page) 

wi th (window. document . Form) 

{. 

if(page! = "> 

ENOUGH . va lue=(PERS_FRST_NAME. va Lue! = 1 ' &&PERS_LAST_NAME. value ! = ' ' &&PERS_TITL. value! = 1 1 &&PERS_PHON. val 
ue!=' , &SPERS_MAIL.valuei=' "SSCOMP NAME.value!= ' '&&PLAC ADDR 0NE.value!=' ' &&PLAC_CITY. value!=' 1 &&PLAC 
_ZIP.value!=' ' &&ASS0_NAME1 . value !=' 'S&ASSOjrONTI . value7=' ' &&ASS0J>H0N1 . value! = ' , &&linked3(ASS0_NA«E2 
/ ASSO_CONT2,ASSO_PHON2 / "2nd line")&&linked3(ASS0 NAME3,ASS0 C0NT3, ASS0_PH0N3, "3rd 

line ,, )&&BANK_NAHE.value!= , ' &&BANK_C0NT. value! =' ' &&BANK PH0N7value!=' '&&BANK_ADDR_ONE. value! =' 1 &&BANK 
CITY. value!= 1 '&&BANK ACNT NB. value!= ' 1 &&BANK ZIP. value! =l 1 ) 



?'V :'O l 



if(page== , 0') 
£ 

eva L ( 2z+ ' Ma i n ' +nn+ ' = " ' + 1 L+ 1 " ' ) 
if (ENOUGH. value== , V) 

Path. MessCwindow, 'Are you sure to want to proceed your 

registration? ' ,1) 



else 

Path. MessCwindow, ' Sorry your registration is incomplete 1 ,0) 

> 

else 

-C 

NEXT_PAGE . va lue=page 
submit () 

> 

> 

> 

</script> 

<Body LeftMargin=8 TopHargin=0 marginheight=0 <%IF HSIE THEN Response. wri te 

"document. onmousedown=noclick onselectstart=' return false' oncontextmenu= ' return false' u %> <%IF NOT 

NN6 THEN%>onLoad="window.show(<%IF Request . FormrSHOWXy" THEN Response. Wri te Request . FormC'SHOW") 

ELSE Response. Write "1" END IF%»"<%END IF%» 

<!--#INCLU0E FILE=" . ./include/Loading. inc" — > 

<!— #INCLUDE FILE=" . . /inc lude/ Popup, i nc" — > 

<form method=post name=Form> 

<input type=hidden name=" ENOUGH" value=' '> 

<input type=hidden name= "NEXT — PAGE" value=''> 

<input type=hidden name="SH0W" value =l 1'> 

<% 

IF Request. Form< l 'ENOUGH"X> , " , OR Request . FormC'COMP TYPE'^O"" THEN 

RecO=Ar ray (Request . FormC "PERS_FRST_NAME") , Request . FormC "PERS_LAST_NAM E 11 ) , Request . FormC ,, PERS_ 
TITL"), Request . Form("PERS_MAIL" ) , Request . FormC"PERS_PHON" ) /Request . Form("PERS_FAX" ), Request . FormC "PE 
RS_ASKD" ) ) 
ELSE 

SET RecO=Connection.Execute("SELECT 
TEMP_PERS_FRST_NAME,TEHP_PERS_LAST_NAME,TEMP_PERS TITL, TEMP PERS_MAIL, TEMP PERS PHON, TEMP PERS_FAX,T 
EMP PERS ASKD FROM " 



iEMP_PERSON WHERE TEHP_PERS_ID= ,, &Session("Regi ster") ) 

END IF%> 

<input type=hidden name=PERS_FRST_NAME vaLue=' <%=RecOCO)%> 1 > 
<input type=hidden name=PERS_LAST_NAME value=' <%=RecO<1 )%> 1 > 
<input type=hidden name=PERS_TITL value=' <%=RecO(2)%>' > 
<input type=hidden name=PERS~PHON value=' <%=RecO(4)%>'> 
<input type=hidden name=PERS_MAIL valuer' <%=RecO(3)%>'> 
<input type=hidden name=PERS_FAX value=' <%=RecO(5)%>'> 
<input type=hidden name=PERS_ASKD value=' <%=RecO(6)%>' > 
<% 

IF NOT isArray(RecO) THEN 
RecO.CLoseO 
SET RecO=NOTHING 

END IF 

IF Request. FormC "ENOUGH" )<>"" OR Request . FormCCOMPJTYPE" ><>*"' THEN 

RecO=Array< Request. ForroCCOMP TYPE"), Request". FormC COMP NAME" ) , Request . FormC COUP URL"),Requ 
est . FormC COMP _FED _TAX" ) , Request . FormC " COMP_STA 



T TAX") / Request.Form( ,, COMP_DUNS ,, ) / Request.Form("COMP_ 
SIC ll ) / Request.FormC ,, COHP_STRC ,, ) / Request.FormC l, COMP - STAT INC" ) , Request . FormC "COMP PUB") , Request . FormC 
"COMPJWN"), Request. Form("COMP_FELN" ) = "True ,, / Request. Form("COHP_BKRP M )= n True") 

Rec1=Ar ray C Request . FormC "PLAC_ADDR_ONE" ) , Request . FormC "PLAC^ADDR^TWO" ) , Request . FormC "PLAC_CI 
TY" ) , Request . FormC "PLAC_Z IP" ) , Request . FormC "CompSt ate" ) f Rep lace C Request .~Form( "CompCount ry" ) , " 1 "/*">) 
ELSE 

SET RecO=Connection.ExecuteC"SELECT 
TEMP_COMP_TYPE / TEMP_COMP_NA«E,TEHP_COMP_URL / TEMP_COHP_FE0_TAX / TEMP_COMP_STAT_TAX / TEHP_COHP_DUNS / TEH 
_COMP SIC,TEMP COMP STRc7tEMP_C0MP_STAT_INC / TEMP~C0MP_PUB / TEMP COHP OWN,TEMP COMP FELN,TEMP COMP BKR 
P FROM TEMP 



_COMPANY WHERE TEMP_COMP_PERS="&$essi on< "Register" ) ) 
SET Reel Connection. ExecuteT'SEUECT 
TEMP_PLAC_ADDR_ONE / TEMP PLAC_ADDR_TWO / TEMP_PLAC_CITY / TEMP PLAC ZIP / TE«P_PLAC_STAT, TEMP_PLAC_CTRY 
FROM TEMP_PLACE WHERE TEMP_PLAC_PERS= ' "&Session( "Regi ster" )&" ' ~AND TEMP_PLAC TYPE= , H I ") 
IF RecO.EOF THEN 

RecO.CloseO 
SET RecO=NOTHING 

IF Request. Form("COMP_TYPE ,, )<> ,in THEN 

RecO==Array (Request. Form( ,, COMP_TYPE 11 ) , Request. Form( ,, COMP_NAME t, ) / Request. FormC'COMP.URL'^/Requ 
est. Form( ,, COMP_FED_TAX") / Request. FormC 11 COMP_STAT_TAX") , Request. FormC ,, COMP_DUNS" ), Request. FormC'COMP 
SIC'^Request.FormC'COMP STRC"), Request . Form("COMP_STAT_INC" ), Request . FormC'COMP PUB"),Requ 



. est . FormC 

COMP_OWN" ) , Request . FormC 11 COMP_FELN" ) , Request . FormC" COMP^BKRP" ) ) 
ELSE 

RecO=ArrayC ,, P ,, / Request.FormC"COMP_NAME ,, ) / Request.FormC ,, COMP_URL"> / Request.Form( ,, COHP FED TAX 
), Request. FormC "COMP_STAT_TAX" ), Request. FormC "COMPJ)UNS" ), Request . FormC n COMP_SIC" ) , Request. FormC" CO 



MP STRC" ) , Request . FormC "COMP_STAT INC"), Request . FormC " COMP_PUB" ) , Request . FormC " COMP_OWN" ) , Request . Fo 
rm("COMP FELN" ), Request. FormC "COMP BKRP" ) ) 
END IF 

END IF 

IF Red. EOF THEN 

Red . CloseO 
SET Red=NOTHING 

Red =Ar ray C " " , " " , " " , " n , "-" , " US" ) 

END IF 

END IF 

DefaultCtry=Red(5) 

SET Rec2=Connection.ExecuteC"Exec spGState 3Ctry= 1 "&Red (5>& H 1 ") 
StrValueHqState="" 
StrTxtHqState=" 11 
DO UNTIL Rec2.E0F 

StrValueHqState=StrValueHqState+" ' , '+Rec2C0) + " 1 

StrTxtHqState=StrTxtHqState+" ' "+Rec2C1 )+" ' 

Rec2.MoveNextC> 

LOOP 

IF StrValueHqState= ,Ml THEN StrValueHqState=\ " 
IF StrTxtHqState="" THEN St rTxtHqState=", " 
Rec2. Close 
SET Rec2=NOTHING 

SET Rec2=Connection.Execute("Exec spGCountry") 

StrVatueCtry="" 

StrTxtCtry= ,Ml 

DO UNTIL Rec2.E0F 

St rValueCtry=StrVa lueCtry+" ' "+Rec2C0)+ H 1 , " 

StrTxtCtry=StrTxtCtry+" 1 "+Rec2C1 )+" 1 , " 

Rec2.MoveNext() 

LOOP 

IF StrValueCtry= n " THEN St rValueCtry= N , " 

IF St^tCt^"" THEN StrTxtCtry=", n 

Rec2. Close 

SET Rec2=N0THING 

%> 

<input type=hidden name=COMPJTYPE value= l <%=RecO(0)%>' > 
<input type=hidden name=COMP_STRC value=' <%=RecOC7)%> * > 
<input type=hidden name=COMP_STAT_INC value= , <%=RecO(8)%>'> 
<input type^hidden name=COMP_NAME value= l <%=RecO(1 )%>'> 
<input type=hidden name=COMP_URL va lue= ' <%=RecOC2>%> ' > 
<input type=hidden name=PLAC_ADDR_ONE value=' <%=Red (0>%>'> 
<input type=hidden name=PLAC_ADDR_TWO value='<%=Red C1)%>'> 
<input type=hidden name=PLAC_CITY value= I <%=Rec1(2)%>*> 
<input type=hidden name - 



-CompState value=' <%=Rec1 C4)%>' > 
<input type=hidden name=PLAC_ZIP vaLue='<%=Rec1(3)%>'> 
<input type=hidden name=CompCountry vatue=' <%=Rec1 (5)%>'> 
<input type=hidden name=COMP_PUB vaLue=' <%=RecO(9)%> l > 
<input type=hidden name=COMP_OWN value=' <%=RecO(10)%>' > 
<input type=hidden name=COMP_FED_TAX value= * <%=RecO(3>%> 1 > 
<input type=hidden name=COMP_STAT_TAX va Lue= 1 <%=RecO(A)%> '> 
<input type=hidden name=COMPJ>UNS value=' <%=RecO(5)%>'> 
<input type=hidden name=COHP_SIC value='<%=RecOC6)%>'> 
<input type=hidden name=COMP_FELN value=' <%=RecO(11 )%>'> 
<input type=hidden name=COMP BKRP va lue= ' <%=RecOC12)%> 1 > 
<% 

BOOL FELN=(RecO(11)=True OR RecOCI 1)="True" ) 
BOOL_BKRP=(RecO(12)=True OR RecO(12) = ,, True n ) 
IF NOT isArray(RecO) THEN 

RecO.CLoseC) 

SET RecO=NOTHING 

END IF 

IF NOT isArray(Red) THEN 
Red . CloseO 
SET Rec1=N0THING 

END IF 

IF Request. Form( n ENOUGH")<>"" OR Request . Form( 1, C0MP_TYPE ,, )<> H,, THEN 
RecO=Ar ray (Request . FormC 1 



ASSO JIAME1 " ) , Request . FormC " ASSO PH0N1 " ) , Request . FormC H ASS0_C0NT1 " ) , 

Request. FormCASSO ACNT NB1 11 )) 
ELSE 



SET RecO=Connection.Execute( H SELECT 
TEMP ASSO_NAME,TEMP ASSO PHON,TEMP ASSO_CONT,TEMP ASSO_ACNT NB FROM TEMP_ASSOCIATE WHERE 
TEMP_ASSO PERS= ,, &Session("Register")) 
IF" RecO. EOF THEN 
RecO. Close 
SET RecO=NOTHING 
RecO=Array("V' ,, / ,l,, / ,M ') 

END IF 

END IF 

FOR i=1 TO 3%> 

<input type=hidden name=ASSO_NAME<%=i%> value= 1 <%=RecO(0>%>' > 
<input type=hidden name=ASSO_CONT<%=i%> value='<%=RecO(2)%>'> 
<input type=hidden name=ASSO PHON<%=i%> value='<%=RecO(1)%>'> 
<input type=hidden name=ASSO~ACNT NB<%=i%> value=* <%=RecO(3)%>'> 
<% 

IF Request. FormC'ENOUGH" )<> ,nt OR Request . Form("COMP_TYPE")<>"" THEN 

RecO=Array (Request. Form( "ASSO NAME"Si+1 ), Request . Form ("ASSO PHON"&i+1) , Request . Form("ASSO_CO 
NT"&i +1 ) , Request . Form( ** ASSO_ACNT_NB"&i+1 ) ) 
ELSE 

IF NOT IsArray(RecO) THEN 
RecO.MoveNextO 
IF RecO. EOF THEN 

RecO. Close 

SET RecO=NOTHING 

RecO=Array( ,,,, / ,, V , V ,n ) 

END IF 

ELSE 

RecO=Array( ,,,, / ""/"V ,,, > 

END IF 

END IF 
NEXT 

IF NOT isArray(RecO) THEN 
RecO.CloseO 
SET RecO=NOTHING 

END IF 

IF Request. Form( "ENOUGH" )<>"" OR Request . Form("COMP_TYPE")<>"" THEN 

RecO=Array (Request . Fortn( "BANK_NAME" ) , Request . Form( "BANK_CONT") , Request . Form( "BANK_PHON" ) , Req 
uest.FormC'BANKJVDDR.ONE"), Request. Form( "BANK ADDR_TWO" ) , Request . Form( "BANK_CITY" ) , Request . For m( "BAN 
K_ACNT_NB" ) , Request . Form("BANK_FAX") , Request .Form( n BANK_ZIP") , Rep Lace( Request . Form( "BANK^TRY" ), 11 1 n , 
" " ) , Request . Form ( "BANK_STAT" ) ) 
ELSE 

SET RecO=Connection.Execute("SELECT 
TEMP_BANK_NAME, TEMP_J3ANK_CONT y TEMP_BANK_PHON / TEMP BANK_ADDR ONE,TEMP_BANK_ADDR TWO,TEMP BANK_CITY,TE 
MP_BANK ACNT_NB,TE 



MP_BANK_FAX,TEMP BANK_ZIP, TEMP_BANK_CTRY,TEMP BANK STAT FROM TEMP BANK WHERE 
TEf^BANK^PERS^'&SessionC 'Register")) 
IF RecO.EOF THEN 
RecO. Close 
SET RecO=NOTHING 

RecO=A r ray ( " M , » 11 , " , « n , " " , " " , "" , " " , " " , « U S" , *'- " , " " ) 

END IF 

END IF 

SET Rec1 = Connection.Execute("Exec spGState act ry= 1 "&RecO<9)&" ' 11 ) 
StrVatueBnkState=" 11 
StrTxtBnkState= ,ni 
DO UNTIL Red . EOF 

St rVa lueBnkState=St rVa LueBnkState+" ' "+Rec1 (0) + "' , " 

StrTxtBnkState=StrTxtBnkState+" ' "+Rec1 (1 )+" 1 , " 

Reel .HoveNextC) 

LOOP 

Red . Close 

SET Rec1=NOTHING 

IF StrValueBnkState^'" THEN St rValueBnkState= 
IF StrTxtBnkState=" H THEN StrTxtBnkState=" / " 

%> 

<input type=hidden name=BANK_NAME value=' <%=RecO(0)%>'> 
<input type=hidden name=BANK_CONT value=' <%=RecOC1 )%>' > 
<input type=hidden name=BANK_PHON value='<%=RecO(2)%> l > 
<input type=hidden name=BANK~ADDR_ONE value='<a=RecO(3)%>' > 
<input type=hidden name=BANK_ADDRJTUO value= ' <%=RecO(4)%>' > 
<input type=hidden name=BANK_CITY"value= t <%=RecO(5)%>'> 
<input type=hidden name=BANK_STAT value=* <%=RecO(10 




)%>*> 



<input type=hidden name=BANK ZIP value=' <%=RecO<8)%>'> 
<input type=hidden name=BANK~ACNT_NB value='<%=RecO(6)%>'> 
<input type=hidden name=BANK_FAX value=' <%=RecO(7)%>'> 
<input type=hidden name=BANK~CTRY value= 1 <%=RecO(9)%>' > 
<% 

IF NOT isArrayCRecO) THEN 
RecO.CloseO 
SET RecO=NOTHING 

END IF 

IF Request. FormC , ENOU6H ,, )<>' ,,, OR Request . FormC , COMP_TYPE")<> ,,, ' THEN 

RecO=Ar ray (Request . FormC "TEMP_PLAC_LABL" ) , Request . FormC "TEMP J»LAC CONT" ) , Request . FormC "TEMP 
PLACJ>HON"), 

Request. FormC'TEMP_PLAC_CITY") / Request. FormC'TEMP PLAC_ADDR ONE"),Request. FormC'TEMP PLAC AD 
DR TWO" ) , Request . Form( "TEMP_PLAC_ZIP" ) , Request . FormC "TEMP* PLAC STAT" ) , RepLace( Request . FormC'TEMP ~PLA 
C_CTRY" ) , " 1 11 " ) , Request . FormC'TEMP PLAC INST") ) 
ELSE 

RecO=A r ray , " " , " " , " " , " " , " " , " , ' / "- ,, / Default Ctry, " " ) 

END IF 

SET Rec1=Connection.Execute("Exec spGState act ry= 1 "&RecOC8)&" 1 11 ) 
StrValuePointState=" " 
StrTxtPointState=" " 
DO UNTIL Red. EOF 

StrValuePotntState=StrValuePointState+" ' "+Red (OH" ■ , " 

StrTxtPointState=StrTxtPointState+" ' " + Rec1 C1 ) + "' , 11 

Reel .MoveNextO 

LOOP 

Red . Close 

SET Red=NOTHING 

IF StrValuePointState="" THEN St rValuePointState= M , " 
IF StrTxtPoint 



State^ 1 " 1 THEN St rTxtPointState=", " 

%> 

<input type=hidden name=TEMP_PLAC_LABL value=' <%=RecO(0)%>'> 
<input type=hidden name=TEMP PLAC_CONT value= , <%=RecO<1>%> , > 
<input type=hidden name=TEMPJ>LAC_PHON vatue=' <%=RecO(2)%>*> 
<input type=hidden name=TEMP~PLAC ADDR_ONE value= , <%=RecOC4)%>'> 
<input type=hidden name=TEMP PLAC~ADDR — TWO value= , <%=RecOC5)%>' > 
<input type=hidden name=TEMP~PLAC_CITY vaLue='<%=RecO(3)%> , > 
<input type=hidden name=TEMP PLAC_STAT value=' <%=RecO(7)%>'> 
<input type=hidden name=TEMP_PLAC_ZIP value= ' <%=RecO(6)%>' > 
<input type=hidden name=TEMP_PLAC_CTRY value=' <%=RecO(8)%>'> 
<input type=hidden name=TEMPJ>LAC_INST value=' <%=RecO<9)%> ' > 
<% 

IF Request. FormC'ENOUGH" )<>"" OR Request . FormC ,, C0MP_TYPE ,, )O nn THEN 

%><input type=hidden name=Loc value=' <%=Request. Form( ,, Loc" )%>'><% 

ELSE 

str= ..., 

SET RecO=Connection.Execute("SELECT 
TEMP PLAC J.ABL+ ' " " 1 +TEMP_PLAC CONT+ 1 "" 1 +TEMP_PLAC J»HON+ 1 +TEMP_PLAC_ADDR_ONE+ 1 " " ' +ISNULL(TEMPJ>LAC 
_ADDR_TWO / ' , ) + " ,, "+TEMP_PLAC_CITY+' "" ' 



1 +TEMP_PLAC_ZIP+ 1 ,,M ' +TEMP PLAC_STAT+ ' " " 1 +TEHP_PLAC CTRY+ 1 
HP PLAC_INST FROM TEMP PLACE WHERE TEMP_PLAC TYPEO'H 1 AND TEMP PLA^PERS^'&SessionrRegister") ) 
DO UNTIL RecO.EOF 

Str=Str+RecO(0)+Chr(34) 
RecO.MoveNextO 

LOOP 

RecO. Close 

SET RecO=NOTHING 

IF Str="" OR isnuLUStr) THEN Str=Chr<34) 

%><input type=hidden name=Loc value=' <%=Lef t<Str,Len(Str)-1 )%>' X% 

END IF 

%> 

</form> 

<%IF NN6 THEN%XformX%END IF%> 

<div id="Main" style="posit ion: absolute; top: 14; left:14;visibi li ty: visible; "></div> 
<%IF NN6 THEN%X/f ormX%END IF%> 

<! — <SPAN ID=Main name=Main sty le=' position:absolute; x:0px; y:0px; visibility: hidden'> — > 
<script> 

function Answer(Flag) 



withCwindow. document . Form) 
if(Flag) 



NEXT_PAGE.value= , 0' 
submitO 

> 

else 

with(window) 
{ 

e va I ( z z+ 1 Ma i n ' +nn+ ' = " 1 +mm+ ' "' ) 
showd ) 

> 

> 

> 

StrValueHqState=new Array (<%=Lef t (St rVa LueHqState, LenCStrVa LueHqState)-1)%>); 
StrTxtHqState=new Array(<%=Lef t(StrTxtHqState,Len(StrTxtHqState)-1 )%>); 
StrValueCtry=new Ar ray (<%-Lei t C St rValueCtry, LenCStrVa LueCtry)-1)%>) ; 
StrTxtCtry=new Array«%=Lef t(StrTxtCtry,Len(StrTxtCtry)-1)%»; 
<% 

IF StrValueBnkState=StrValueHqState THEN 

Response. write "StrVa LueBnkState=StrVa LueHqState; " 
Response. write ,, StrTxtBnkState=StrTxtHqState; ,, 

ELSE 

%>StrValueBnkState=new Array (<%=Left (St rVa LueBnkState, Len<St rValueBnkState)-1 )%>);<% 
%>StrTxtBnkState=new Array (<%=Lef t (St rTxtBnkState,Len( st rTxtBnkState)-1 )%>);<% 

END IF 

IF StrValuePointState=StrValueHqState THEN 

Response. write "StrVa LuePointState=StrVa LueHqState;" 

Response. write "StrTxtPoint$tate=St rTxtHqState; " 
ELSEIF StrValuePointState=StrValueBnkState THEN 

Response. write "StrVa LuePointState=StrVaLueBnkState; " 

Response. write ,, StrTxtPointState=StrTxtBnkState;" 

ELSE 

%>StrValuePointState=new Array (<%=Left (St rVaLuePoi nt State, LenCStrVa LuePointState)-1 )%>);<% 
%>StrTxtPointState=new Array (<%=Lef t (St rTxtPointState, Len (St rTxtPointState)-1 )%>);<% 

END IF 

%> 

TempO=new Image () 
Temp1=new ImageO 
Temp 



2=new ImageO 
Tempo. src=' /images/buttons/bgADDo.gif ' 
Tempi .src=' /images/buttons/bgSAVEo.gif 1 
Temp2 . src= 1 /i mages/buttons/bgFINISHo . gi f ' 
</script> 
<i— </SPAN>— > 

<%' by Djay for the onCli ck<! — # INCLUDE FILE=" . ./include/Bottom. inc" — >%> 
<script> 

<%IF NN6 THEN%>window.showC<%IF Request . FormC" SHOW") <>" " THEN Response. Write Request . FormC" SHOW") 
ELSE Response. Write "1" END IF%»<%END IF%> 
Path. Start (window)</scr i pt> 
</body></htniL> 
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<!— ^INCLUDE FILE="../include/Head.inc"--> 

<!— #INCLUDE FILE="../include/ExchangeHead.inc ,, --> 

<%IF Session("Typ")<> M A" THEN Response. RedirectC". . /Mylndex. tpeO" ) 

DIM RecO,Rec1 , i, j,k, I, St r, St rBis, city, state, country, Flag, Loc, Height, Chnge 
Height=260 

IF Request. Form( ,, DecLine 1, )<> , " , THEN 
Application. Lock 
AppLication("Ftag ,, )=1 

Connection. ExecuteC'DELETE FROM TMP_PLACE WHERE TMP_PLAC ID="SRequest. FormC'Decline")) 

AppLication("Flag' ! )=0 

Application. UnLock 

Response. RedirectC'Administrator Add Location . tpeO" ) 

END IF 

IF Request. Form( "Submit ")="Submit" THEN 
Application. Lock 
ApplicationC"Flag ,, )=1 

SET Rec1=Connection.Execute<"SELECT LOCL_ID, (SELECT COHP TYPE FROM COMPANY WHERE 
COMP_ID= M &Request.Form( ,, Company ,, )&") FROM LOCALITY WHERE LOCL cfTY= l "SRequest . FormC"City")S" ' AND 
LOCL_STAT= , "SRequest.FormC ,l State ,, >& ,,, AND LOCL CTRY= 1 "SRequest . FormC "Count ry " )S" 1 11 ) 
IF NOT Red . Eof THEN 

IF Request. Fortn( , 'Type I, )= t, B" THEN 
Loc=Rec1 (0) 
IF Rec1(1) = ,, D ,, THEN 

Connection. Execute ("INSERT INTO PLACE 
CPLAC_COMP,PLAC ADDR_0NE, PLAC ADDR_TW0, PLAC_ZIP, PLAC_L0CL, PLAC_TYPE, PLAC PERS, PLAC_PHON, PLAC ENBL, PL 
AC_INST) 

VALUESC "SRequest. FormC 1 ' Company" )S", '"SRequest. FormC "Addrl ")S" 1 , ' "SRequest . FormC "Addr2")6" 1 "SReques 
t.FormC"Zip ,, )& , " / ,, &Rec1C0)& ,, / 'S' /"SRequest. FormC"Contact")S" 1 , 1 "SRequest . FormC"Phone")6" ' ,1 , ' "SRequ 
est.Formrinstruction^S 1 " )") 
ELSE 

Connection. Execute ("INSERT INTO PLACE 
(PLAC C0MP,PLAC ADDR ONE.PLAC ADDR TW~ 



u,PLAC ZIP, PLAC LOCL,PLAC_TYPE,PLAC PERS, PLAC_PHON, PLAC ENBL, PL 

AC_INST) 

VALUES ("SRequest . Fo r m (" Company ") 8", 1 "SRequest . Form C" Add r1 " )8"' , 1 "SRequest . FormC ,, Addr2" )&" ' , 1 "SReques 
t . FormCZip'^S'* ' , "SRed (0)8", ' D' , ' "SRequest. FornK "Contact" )S" ' , ' "SRequest . FormrPhone^S" ' ,1 , 1 "SRequ 
est.Form( ,, Instruction n )S , ") n ) 
END IF 

Recl.CloseO 
SET Rec1=N0THING 

SET Rec1=Connection.Execute("SELECT COMP ID,COMP_TYPE FROM COMPANY WHERE 
COMP_REG=1 AND COMP_NAME IN (SELECT COM P — NAME FROM COMPANY WHERE 
COMP_ID="&Request.Form( ,, Company ,, )&") AND COMP IDO"8Request . Form ("Company") ) 

IF RecK1)= ,, D" THEN 

Connection. Execute ( "INSERT INTO PLACE 
(PLAC COMP, PLAC_ADDR_ONE, PLAC__ADDR_TWO, PLAC_ZIP, PLAC LOCL, PLACJTYPE, PLAC J>ERS, PLAC_PHON, PLAC_ENBL / PL 
AC_INST) 

VALUES("8Rec1(0)8", ' "SRequest. Form("Addr1 " >&" ' , ' "SRequest. Form( "Addr2 n )S" 1 , 1 "SRequest. Form( H Zip")8" 1 
,"8Loc8 M , 'S'/ "SRequest. Form("Contact")& ,M , 1 "SRequest . FormCPhone'^S"' ,1 "SRequest . FormC'Instructio 
n ,, )« ,,, )"> 

ELSE 

Connection. Execute ("INSERT INTO PLACE 
( PLAC_COMP, PLAC_ADDR_ONE, PLAC_ADDR_TWO, PLAC ZIP, PLACJ.OCL, PLACJTYPE, PLAC_PERS, PLAC_PHON, PLAC_ENBL, PL 
AC_INST) 

VALUESC'SRed (0)8", 1 "SRequest . Form("Addr1 ")&" 1 , '"SRequest. Form( "Add^^S" ' , 1 "SRequest . FormC'Zi p")8" ' 
/'SLocSVDV'SRequest.F 



orm("Contact")&" ' , 1 "SRequest . FormC "Phone" )&" 1 , 1 , ' "SRequest . FormC 11 Instruct io 

n">& HI V) 

END IF 

ELSEIF Request. Form( ,, Type ,I ) = l, H" THEN 
Loc=Rec1C0) 

Connect ion. Execute ("INSERT INTO PLACE 
CPLAC_COMP,PLAC ADDRJ)NE, PLAC ADDRJTWO, PLAC_ZIP, PLAC LOCL, PLAC_TYPE, PLAC PERS,PLAC PHON,PLAC ENBL,PL 
AC_INST) 

VALUES C "SRequest . FormC "Company" )&" , ' "&Request . Form( "Addrl " )&" 1 , 1 "SRequest . FormC " Addr2" )&"',' "SReques 
t. FormC "Zip")&" 1 , "SRed (0)8*", ' H' , 1 "SRequest. Form( ll Contact")S" ' , 1 "&Request. FormC H Phone")S" 1 ,1, 1 "SRequ 
est. FormC" Inst ructi on" )S" ')") 

Red.CLoseO 

SET Rec1=N0THIN6 



SET Rec1=Connection.ExecuteCSELECT COMP_ID FROM COMPANY WHERE COMP NAME IN 
(SELECT COMP NAME FROM COMPANY WHERE COMP_ID="&Request . FormC "Company" )&" ) AND COMP_REG=1 A"ND 
COMP_IDO"&Request . Form< "Company " ) ) 

IF NOT Red. EOF THEN 

Connection . Execute C "INSERT INTO PLACE 
(PLAC_COMP,PLAC_ADDR_ONE,PLAC ADDR TWO,PLAC ZIP,PLAC LOCL,PLAC TYPE, PLAC_PERS, PLAC PHON,PLAC ENBL, PL 
AC_INST) - - - 

VALUESC&Rec1(0)&V"&Request.FormCAddr1 M )&" l / 1 "SRequest . FormCAddr2" )&" ' "&Request . FormCZip")&" 1 
/'SLocS", , H' "SRequest. FormC "Contact" )&"' ,* "SRequest. FormCPhone" )&" ' ,1, ' "SRequest. FormC Inst ructio 
n" )&'")") 

END IF 

ELSE 

Connection. Execute< " INSERT INTO PLACE 
( PLAC JTOMP, PLAC_ADDR_ONE, PLAC_ADDR_TWO, PLAC_ZIP, PLAC J_OCL, PLACJTYPE, PLAC PERS, PLAC_PHON, PLAC ENBL. PL 
AC_INST) 

VALUESC "SRequest. FormC Company" )&", ' "&Request . FormCAddd ")&" 1 , ' "&Request . Form("Addr2")& ,M , ' "SReques 
t. FormC ,, Zip 1, )& ,,, ,"&Red C0)&" , M, &Request. FormCType")&" 1 "SRequest. FormC 'Contact" )S" 1 , 1 "SRequest . For 
mCPhone")&" , ,1 '^Request . FormCInstruction")&" ' )") 
END IF 

Connection. Execute ("DELETE FROM TMP_PLACE WHERE TMP_PLAC_ID="&Request . FormC" Id")) 
Response. RedirectCAdministrator Add Location. tpeO") 

ELSE 

Flag="TryAgain" 

1 Connection. ExecuteCDELETE FROM TMP PLACE WHERE TMP PLAC_ID="&Request . FormCld") ) 

END IF 

Red .CLoseC) 
SET Red=NOTHING 
AppLicationCFlag")=0 
Application. UnLock 

END IF 

%> 

<! — ^INCLUDE FILE=". ./incLude/body2.inc"— > 
<! — ^INCLUDE FILE= M . ./include/Loading. inc"—> 
<! — ^INCLUDE FILE=". . /include/PopUp. inc" — > 

<SPAN ID=Main name=Main styles' position:absolute; x:0px; y:Opx; visibility: hidden'> 
<script> 

TempO=new Image C) 
Temp1=new ImageC) 
Temp2=new ImageC) 
Temp3=new ImageC) 
Temp 



4=new ImageC) 
Temp5=new ImageC) 

<%IF Request. FormC'Id'OO"" AND (Request . Form ( "Submit" ) = "" OR Request . Form( ,, Submit ,, )="Ref resh") OR 
FlagO" 1 ' THEN 

IF Request. Form( ,, Type n )= ,,H THEN 

SET RecO=Connection.ExecuteC"SELECT TMP_PLAC_CITY,TMP PLAC_STAT, TMP_PLAC_CTRY, THP PLAC_TYPE, 
(SELECT COMP_TYPE FROM COMPANY WHERE 

COMP_ID=TMP_PLAC_COMP),TMP_PLAC_A0DR_ONE / TMP_PLAC - ADDR_TWO / TMP_PLAC_ZIP / TMP - PLAC_COMP / TMP_PLAC_PHON / 
TMPJ>LACJ>ERS,TMP_PLAC_INST / TMP_PLAC_LABL FROM TMP_PLACE WHERE TMP_PLAC_ID="SRequest . FormCld")) 
ELSE 

IF Request. FormCSubmit" ) = "Ref resh" OR FtagO ,,M THEN 

RecO=Ar ray (Request . FormC City"), Request. FormC State"), Request . For mCCountry"), Request . FormC 
Type" ) , Request . FormC CompTyp" ) , Request . FormCAddM 11 ) , Request . FormC Addr2") , Request . FormC Zi p" ) , Reque 
st. FormC Company") , Reques t. FormC Phone") , Request. Form ("Contact") , Request. FormC Inst ruction"), Request 
.FormCLabel")) 

ELSE 

RecO=Ar ray (Request . FormCC it y") / ,, 0 ,, / Request. Form ("Country") , Request. Form ("Type"), Request. For 
mCCompTyp"), Request .FormC Addrl "), Request .FormC Addr2 11 ), Request. FormCZip"), Request. FormC Company") 
, Request. FormCPhone") , Request. FormCContact"), Request . FormC Inst ruction") Request . FormCLabel") ) 

END IF 

END IF 

Chnge=" 1 Javascript : with (window. document Kif ( Path. Format (Form) K Form. Submit . value= ""Refresh""; Form.su 

bmit ()>else-CForm. reset ()»' " 

%> 

TempO . s r c= 1 /i mages /but tons/bwSUBMIT . gi f ' 
Tempi .src=' /images/buttons/bwSUBMITo.gif 1 
Temp2.src=' /iniages/buttons/bwBAC ur 



Temp3 . src= 1 /i mages /buttons/bwBACKo . gi f 1 
Temp4 . s rc= 1 /i mages /buttons/bwREFRESH . g i f ' 



TempS . src=* /images/buttons/bwREFRESHo. gi f ' 

</script><table border=0 eel lpadding=0 ceL lspacing=0 width=100%Xtr valign=middleXtdXcenter> 

<table border=0 cet Ipaddi ng=0 eel Lspacing=0> 

<form name=Form method=post> 

<input type=hidden name=Submit value=' '> 

<input type=hidden name=CompTyp value='<%=RecO(4)%>'> 

<input type=hidden name='Id' value='<%=Request . FormC'Id")/^* > 

<input type=hidden name=' Company 1 value=' <%=RecO<8)%>'> 

<tr valign=bottomXtd CLASS=S9 colspan=2>Type:<br> 

<seLect name=Type onChange=<%=Chnge%»<script>Path. SO(new ArrayC<% 

SELECT CASE Rec0(4) 

CASE "P" %> , 8 , / 'D , / 'H t ) / new ArrayC ' Deli very/Shipping ',' Deli very<% 
CASE "S" %>'S , / 'H*) / new ArrayC 1 Shipping<% 

CASE "D" %>'B , , , SVH t ) / new ArrayC 1 Deli very/Shipping ',' Shipping<% 
END SELECT%>' , ' Headquarter ' ), ' <%=RecO<3)%> 1 7 document); </scri ptXbr> 
Address:<br> 

<input type=text name=Addr1 size=50 maxLength=51 value= '<%=RecO(5)%>' Xbr> 
<input type=text name=Addr2 size=50 maxLength=51 value- , <%=RecOC6)%>'X/tdX/tr> 
<trXtd CLASS=S9>Contact :<br><input type=text name=Contact size=20 maxLength=21 
value= , <%=RecOC10)%>*Xbr>City:<br> 

<input type=text name=City size=20 maxLength=21 value=' <%=RecO(0)%>' onChange-<%=Chnge%»<br> 

State:<brXselect name=' State' onChange=<%=Chnge%>X% 

SET Rec^Connection.ExecuteC'Exec spGState SCtry= ' "&RecOC2)&" 1 ") 

Str- n " 

StrBis=" " 

DO UNTIL Red. EOF 

Str=Str+ ,,,n +R- 



wd «)) + •", " 
StrBis=StrBis+ ,t ' "+Red (1 ) + " ' , " 
Red .MoveNextO 

LOOP 

IF Str= ,MI THEN Str=" / " 

IF StrBis^'" THEN StrBis^V 1 

Red .Close 

SET Red=N0THING 

%Xscript>Path.SO(new Array«%=Lef t (St r, Len(Str)-1 )%>) , new Array(<%=Lef t(StrBis,Len<StrBis)- 

!)%»,' <%=RecO(1 )%> ' document )</scri pt><% 

SET Red=Connection.Execute("Exec spGCountry") 
str= „., 

StrBis= M '• 

DO UNTIL Red. EOF 

Str=St^+ ,,,,, +Rec1(0)+ ,,, / ,, 

StrBi s=St rBi s+" ' " + Rec1 (1 ) + " 1 , " 

Red .MoveNextO 

LOOP 

IF Str=* Ml THEN Str=V 

IF StrBis=" u THEN StrBis=" / " 

Red .Close 

SET Red=NOTHING%X/tdXtd CLASS=S9>Phone:<br> 

<input type=text name=Phone value=' <%=Rec0(9)%>' size=15 maxLength=16Xbr>Zip Code:<br> 
<input type=text name=Zip size=10 maxLength=11 value= , <%=RecO(7)%> , Xbr> 
Count ry:</font><br><select name=' Country ' onChange= i <%= : Chnge%» 
<script> 

Path.SOCnew Array(<%=Left(Str,Len(Str)-1)%>),new Array (<%=Lef t (StrBi s,L<*n< strBi s)- 

, <%=RecO(2)%> , ,docunient)</script> 
</tdX/tr> 

<tr><td colspan=2 CLASS=S9Xcenter>Label:<br> 

<input type=text name=Label value= 1 <%=RecO(12)%> ' max length=30 size=50> 



,/td></tr> 

<tr><td colspan=2 CLASS=S9Xcenter>Additionnal Instructions:<br> 

<input type=text name=Instruction value= 1 <%=RecO(11 )%>' maxlength=250 size=50> 

</tdX/trX/tabLe><center> 

<a href=Javascript: hi story. backO Onhouse0ut= Javascript: document. imagesC bt_back , ].src=Temp2.src 
OnMouseOver= Javascript: document .imagesC' btjaack' D.src=Temp3.srcXimg src=/images/buttons/bwBACK.gif 
name=bt_back border=0X/a> 

<%SET Rec1=Connection.Execute("SELECT LOCL ID, (SELECT COUNTC*) FROM SHIPPING WHERE 
SHIP_TOJ.OCL=LOCL_ID) FROM LOCALITY WHERE LOCL_CITY= ' "&RecO(0)& ,M AND LOCL_STAT= ' "8RecO(1 )&" 1 AND 
LOCL_CTRY=' ,, &RecO(2)&" 1 ") 
IF NOT Red. EOF THEN 

IF RecOCSXVH" AND ClntCRed (1)>=0 THEN 

%>This Location doesn't appear in the transportation Matrix. We can't accept it for 

the moment. <% 



ELSE 

%><a 

href=* Javascript : with (window. document Xif ( Path. Format (Form) KForm. Submit . vatue= "Submit"; Form. submit ( 
)>else{Form. reset()»' OnMouseOut= Javascript : document . images C bt_submit 1 ] . src=Temp0.src 
OnMouseOver=Javascript : document . images[ l bt_submit ' 3. src=Temp1 .srcXimg 
src=/images/buttons/bwSUBMIT.gif name=bt_submi t border=OX/aX% 
END IF 

ELSE 

%>This location doesn't appear in the transportation Matrix. We can't accept it for the 
moment. <% 
END IF%> 

<a href =<%=Chnge%> OnMouseOut=Javascri pt :document . imagesE ' bt_ref resh ' ] . src=Temp4. src 
OnMouseOver= Javascript : document . i mages E 1 bt_ref resh 1 3 . src=Temp5 . srcXi mg 
src=/images/buttons/bwREFRESH.gif name=bt_ref resh border=0></a> 
</td></trX/tabLe> 
<% 

ELSE 
%> 

Tempo. src=' /images/but tons/bwSEARCH.gif ' 
Tempi .src=' /images/buttons/bwSEARCHo.gif ' 
Temp2 . sr c= 1 /i mages/buttons/bwSHOWALL. gi f ' 
Temp3 . src= 1 /i mages/but tons/bwSHOWALLo. gi f 1 
function AnswerCFlag) 

{if(Flag) window. document. <%IF NOT NN6 AND NOT MSIE THEN%>Ha in. document . <%END 
IF%>Form.submitC)> 
i=0 

function L(A / B / C / D / E / F / 6) 
T='</tdXtd>' 

StrForm='<%IF NOT MSIE AND NOT NN6 THEN%>document . Mai n<%ELSE%>wi ndow<%END 
I F%>. document .Form' 

G.write( , <tr' / (i%2==0)? , >' : ' bgcolor=#E 



a h. rgO, ' d cen er a 
hre = " avascrip r orm, '.Dec ine.va ue^'/A,' a h.Mess window, 'Are ou sure o wan o de e e 

his oca ion l , " ... a a 
hre = avascrip :wi h '+ r 0^1+' d.va ue= , ",A / '" submi ... a ,B, ,'&nbsp ', ,'Snbsp ,D, 
/ , , ,' d ', a h. rgO,' r ' 
i = i + 



scrip 

orm me hod=pos name= orm 

inpu pe=hidden name= o umn va ue=' %=Reques 

inpu pe=hidden name= rder va ue=' %=Reques 

inpu pe=hidden name= d va ue= tl 

inpu pe=hidden name=Ac ion va ue =1 1 

inpu pe=hidden name=Dec ine va ue 3 ' 1 

inpu pe=hidden name= earch ubmi va ue=' 1 

inpu pe=hidden name= howA va ue='' 
ab e border=0 ce padding=0 ce spacing=0 

r d co span= cen er earch :&nbsp inpu 



Reques . orm " howA " 

scrip a h. new 
Arra^.'A ','VAR M M „ 

Arra 'A ' ,' ompan ' i 1 , 
Response.wri e Reques . orm 11 

a 

hre = avascrip :i a h. orm 



H N Response.wri e 



■ a e\ 
earch o 



' « _ 
oun r 
umn" % 



. orm 
orm " 



' o umn" 
rder" % 



pe- ex 
Reques . 



name= earch size= va ue= ' % 
orm " earch" % ' in o 



A _ A 1 M _ A _ R V M _ A 

pe' % Reques . orm 11 howA 
1 ,documen earch o umn' scrip 



' ,new 
" H N 



M.at(Form)— trueKPath. Wait (window) ; Form. Sear chSubmit. valuer' Submit ' ; Form. 
submit()> OnHouseOut=Javascript:document. images[ 'bt_search' ] .src=Temp0.src 
OnMouseOver=Javascript: document. imagesC ' bt_search ' ] . src=Temp1 .srcXimg 
src='/images/buttons/bwSEARCH.gif 1 name=bt_search border=0 align=absmiddleX/a> 
<a href = Javascript : Path. Wait (window) ; Form. ShowA 11. value =l Show' ; Form.submitO 
OnMouseOut=Javascript : document . imagesC 1 bt_show' ] . src=Temp2 . src 
OnMouseOver=Javascr ipt: document. imagesC ' bt_show' 3. src=Temp3. srcXimg 
src='/irnages/buttons/bwSHOWALL.gif ' name=bt show border=0 aLign=absmiddleX/a> 
</tdX/tr> 
<script> 

Path.Menu(new Array( 1 Delete' , 'Action' , 1 Company' , 1 Ci ty ' , ' State' , 1 Country' , 1 Type' ), new 
Array ( ' * , 1 ' , * VARCOMP' , 1 TMPJ>LAC_CITY 1 , ' TMPJ>LAC_STAT' , ' TMP_PLAC_CTRY' , ' T«P_PLAC TYPE' ), new 
ArrayC' ' V300V80V120V100'), '<%IF Request . Form( "Search" )<>"" AND Request. Form(' l ShowAU H )=" u 
THEN Response. write Request . Form( "Search")%> 1 ,document); 



<% 

StP="SELECT * FROHCSELECT TMPJ>LAC_ID, VARCOMP=(SELECT COMP NAME FROM COMPANY WHERE 
COMP_ID=THP_PLAC_COMP),TMP_PLAC - CITY / TMP_PLAC_STAT / TMP_PLAC_CTRY,TMP PLAC TYPE=(CASE TMP_PLAC TYPE 
WHEN 'H* THEN 'Headquarter* WHEN 'B* THEN ' Deli very/ShTppi ng Point' WHEN T D' THEN 'Delivery Point' 
WHEN ' S' THEN 'Shipping Point' END) FROM THP_PLACE)Q " 

IF Request. FormC'SearchColumn'^O"" AND Request . Forra( , 'ShowALl ,, ) = ,,,, THEN 
IF Request. Form("SearchCoLumn' , )= ,, AUL , ' THEN 

Str=Str+" WHERE (VARCOHP LIKE ' r'+Request . FormO'Search" )+"% ' " 
Str=Str+" OR TMP_PLAC CITY LIKE 'K^+Request . Form("Search")+"% 1 " 
Str=Str+" OR TMP PLAC STAT LIKE 'z^+Request . Form<"Search">+"%'" 
Str=Str+" OR THP PLAC CTRY LIKE '%"+Request . Form( 1, Search")+"%"' 
Str=$tr+" OR THP_PLAC_TYPE LIKE '% ,l +Request . Form( , 'Search">+"%' ) " 

ELSE 

Str=Str+" WHERE "+Request. FormC'SearchColumn" )+" LIKE '%"+Request . Fortn< "Search")+ , '% "' 

END IF 

END IF 

Str=Str+" ORDER BY " 

IF Request. FormrColumn'^O"" THEN 

Str=Str+Request. Form( ,, CoLumn' , )+" "+Request . FormC'Order") 

ELSE 

Str=Str+"VARCOMP / TMP_PLAC_TYPE / TMP_PLAC_CTRY,TMP_PLAC STAT,TMP PLAC CITY ASC" 
END IF ~ 
SET RecO=Connection.Execute(Str) 
DO UNTIL RecO.EOF 

%>L( , <%=RecO(' , TMP_PLAC_ID")%> , / ' <%=RecO< "VARCOMP")%> ' , ' <%=RecO( "TMP_PLAC_CITY" )%> ' , '<%=RecO( 
' , TMP_PLAC_STAT ,, )%> , / '<%=RecO("THP_PLAC_CTRY")%> , / , <%=RecOC"TMP_PLAC_TYPE")%> , / document);<% 
RecO.MoveNext 

LOOP%> 
</s 



criptxtr height=2 bgcolor=#CCCCCCXtd colspan=9Ximg src=/Images/1x1 .gif width 
height=2X/tdX/trX/tableX% 
Connection. Close 
SET Connection-NOTHING 
END IF%X/form> 
</SPAN> 

<1 — ^INCLUDE FILE^'.. /include/Bottom. inc"--> 
</bodyX/htmt> 

<script>window. top. upF rame.se I (4); Path. Start (window)</script> 
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Company: User: 



Search : L_L_ Jinto 



documentFoim )==taieUPathW aitfoiidcw )riocumentM ain documentFoim £eaichSuhm ibra]ug= Snhrr 
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Send A M essage 




j<1d bgcx)3oir=fEEB0> <a hiH&=J^a9crptricK^um entPona param yatoep ";docum entFoim subm it() cii 



M essage 0 ueue 




CompanytU sen 
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To: Frank Nicholas 
From; Mike Greenberg 
Date: 8/03/01 

Re: Illinois Coalition Application 
Fax: 847-905-7113 
Total Number of Pages: 2 

Frank, 

We need one more signature in order to forward the application to the Technology 
Development Bridge Fund of the Illinois Coalition. Please sign and fax back. 



Thanks, 
Mike 
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Response.Redirect("../MyIndex.tpeO M ) 



that are slandard & foaixiusfirygj ^ -xi^-r^. 
on each gaytoni -=N' : 'VJ- 



.^Each railed* ooTtterU b« *perc*mtf^ 




ProducL 



_ Priced Delivered FOB 

selected> Akron, 
OHselected>Baton 
Rouge, 

LAselected>Chicago 
Heights, ILselected>City 
selected>Custom of Industry, 

selected>HDPE selected>LDPE CAselected>Fort 
selected>LLDPE selected>PS Lauderdale, 
selected>PP 



selected>All 



FLselected>Greer, 
SCselected>Houston, 
TXselected> Jersey City, 
NJselected>Kansas City, 
MOselected>Mineapolis, 
MN selected> Worc ester, 



Questions. 
2380 



or call 1-800-850- 




^Quantities are estimated. Actual values will be calculated 
at completion of order. 



Define the contracts for your exchange 



Message 




<!— #INCLUDE FILE=". . /include/Head . inc"— > 

<%IF Session ("DemoTyp") <>"P" THEN Response . Redirect (".. /My Index . tpeO" ) 

DIM Recordset, RecordsetBis, RecordsetTer, RecordSetTest , RecordSetTest2 , i, j , k, l,m,n 

DIM Quantity, Num, Loci 

DIM Str,StrBis,StrTer,StrQuat 

DIM arBA(12), ind T array for Bids & Asks 

DIM RecO,Strl 

%> 

< ! ~#INCLUDE FILE=" . . / include /DemoHead. inc"— > 

<^ 1 I T I I f I t I I T I I T ? I I t I I ? I I I I I 1 | I f | T I I f I I I I 1 ? I I f | | I | | 1 | | f | r I T I I I I 

' f Transaction engine 1 1 ? ' 1 ' ■ ' T 1 1 1 * 1 1 '»»'■»■»'■» »«i » » 

» * ' ' T » » » » » I t T I I T T I t r I I t I i r » 1 f I 1 f I 1 ? I f I I ? ? f ! f | » | | 1 f f | r I T I I I T I I 

IF Request .Form ("Valid" ) <>"" AND Request . Form ( "Back" )=" " THEN 
'We check that the guy can place the bid 
i=0 

IF Request. Form ("WorkingOrders ")<>"" THEN 

SET Recordset=Connection. Execute ("SELECT BID_QTY*BID_PRCE, BID_SIZE 
FROM BID WHERE BID_ID=" &Request . Form ( "WorkingOrders " ) ) 
IF Recordset (1) -"False" THEN 

i=i-CDbl (Recordset (0) ) *42 

ELSE 

i=i-CDbl (Recordset (0) ) *190 

END IF 

Recordset . Close 

SET Recordset-NOTHING 

END IF 

SET Recordset=Connection. Execute ("SELECT CRED_AVLB FROM CREDIT") 

k=CDbl (Recordset (0) ) 

k=k+i 

Application. Lock ( ) 
Application ("Flag") =1 
Quantity=Request . Form ( "Quantity" ) 

SET Recordset=Connection. Execute ("SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID="&Request . Form ( "Place" ) ) 

Locl^Recordset (0) 

Recordset . Close ( ) 

SET Recordset =NOTHING 

IF Request. Form ( "Best ") ="Y" THEN 
1 Connection. Execute ("INSERT INTO BID 

(BID_BUYR, BID_CONT, BIDJTO, BID_DATE, BID_QTY, BID_PRCE, BID_SIZE, BID_TO_LOCL) VALUES 
("&Session("Id") &", "&Request . Form ( "Contract " ) &", "&Request . Form ( "Place" ) & " , GET DAT 
E() , "&Quantity&", "^Request . Form ( "Size" ) &", "&Locl&") ") 
ELSE 

Connection. Execute ("INSERT INTO BID 
(BID_BUYR,BID_CONT,BID_TO,BID_DATE / BID_QTY,BID_PRCE,BID_SIZE,BID_TO_LOCL) VALUES 
( " & Session ( " Id" ) & " , " &Reques t . Form ( "Contract " ) & " , " &Request . Form ( " Place " ) & " , GET DAT 
E() , "&Quantity&", ' 0 . "^Request . Form ( "Price" ) &"', "^Request . Form ( "Size" ) &", "&Locl&" 
) ") 

END IF 

SET Recordset=Connection. Execute ("SELECT BID_ID FROM BID WHERE 
BID_BUYR="&Session("Id") &" ORDER BY BID_ID DESC") 
Num=Recordset (0) 
Recordset . Close 
SET Recordset=NOTHING 

IF Request. Form ( "WorkingOrders") <>"" THEN 



Connection. Execute ("INSERT INTO MESSAGE 
(MESS_COMP,MESSJTO,MESS_FROM,MESSJTEXT,MESS_DATE,MESSjrYPE) 
VALUES ( 1 , " ^Session ( " Id" ) & " , 0 , * # " &Num& " 
" SRequest . Form ( "Mess " ) & " 1 , GETDATE ( ) , ' 5 1 ) " ) 
ELSE 

Connection. Execute ("INSERT INTO MESSAGE 
(MESS_COMP, MESSJTO, MESS_FROM, MESSJTEXT, MESS_DATE, MESS_TYPE) 
VALUES (1, "&Session("Id") &»,0, f #"&Num&" 
"&Request . Form { "Mess" ) &" ' , GETDATE ( ) , * 3 ? ) " ) 
END IF 

Str="INSERT INTO ORDERS 
(ORDR_DATE, ORDR_CONT, ORDR_SIZE, ORDR_SHIP, ORDR_BID / ORDR_BUYR / ORDRJTO, 
ORDR_BRAN, ORDR_OFFR, ORDR_SELR, ORDR__FROM , ORDR_QTY, ORDR_PRCE, ORDR_SHIP_PRCE) 
VALUES 

(GETDATE () , "&Request . Form ( "Contract ") &" , "&Request . Form ( "Size" ) & '2 T , "&Num&", "&S 
ession("Id"U", "SRequest . Form ( "Place" ) &", " 
'We Take a picture of the market 
IF Request. Form( "Size") ="0" THEN 

IF Request. Form ( "Best "}="N" THEN 

SET Recordset=Connection. Execute ("SELECT 
OFFR_ID, OFFR_SELR, OFFR_BRAN, OFFR_FROM, OFFR_QTY, CAST (EXPR AS VARCHAR) ,0,1, (SELECT 
CONT^LABL FROM CONTRACT WHERE CONT_ID=OFFR_CONT) , EXPR, CAST (EXPR-OFFR_PRCE AS 
VARCHAR) , CAST (SHIP_PRCE_FULL_TRUC AS VARCHAR) , OF FR_FROM_LOCL FROM (SELECT 
OFFR_CONT, (SELECT SHIP_PRCEJFULL_TRUC FROM SHIPPING WHERE 

SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHI P_TO_LOCL= ( SELECT PLAC_LOCL FROM PLACE 
WHERE PLAC_ID-"& Re quest. Form ("Place" )&") ) AS 

SHIP_PRCE_FULL_TRUC, OFFR_ID, OFFRJSELR, OFFR_BRAN, OFFR_FROM, OFFR_QTY, OFFR__DATE, OFF 
R_PRCE+ (SELECT SHIP_PRCE__TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL-OFFR_FROM_LOCL 
AND SHI P_TO_LOCL= (SELECT PLAC_LOCL FROM PLACE WHERE 

PLAC_ID="&Request. Form ( "Place" )&") ) AS EXPR, OFFR_PRCE, OFFR_FROM_LOCL FROM OFFER 
WHERE OFFR_SIZE=0 AND OFFR_CONT="&Request . Form { "Contract" )&") Q WHERE 
EXPR<0."&Request.Form("Price")&"+0.001 ORDER BY EXPR ASC, OFFR_DATE DESC") 
ELSE 

' SET Recordset=Connection. Execute ("SELECT 

OFFR_ID, OFFRJSELR, OFFR_BRAN,OFFR_FROM,OFFR_QTY, CAST (EXPR AS VARCHAR) , 0, 1 , (SELECT 
CONT_LABL FROM CONTRACT WHERE CONT_ID=OFFR_CONT) , EXPR, CAST (EXPR-OFFR_PRCE AS 
VARCHAR) , CAST ( SHIP_PRCE_FULL_TRUC AS VARCHAR) , OFFR_FROM__LOCL FROM (SELECT 
OFFR_CONT, (SELECT SHIP_PRCE_FULL_TRUC FROM SHIPPING WHERE 

SHIP_FROM_LOCL=OFFR_FROM_LOCL AND SHI P_TO_LOCL= ( SELECT PLAC_LOCL FROM PLACE 
WHERE PLAC_ID="&Request . Form ( "Place" ) &") ) AS 

SHIP_PRCE_FULL_TRUC, OFFR_ID, OFFR_SELR, OFFR_BRAN, OFFR__FROM, OFFRJ2TY, OFFR_DATE, OFF 
R_PRCE+ (SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_FROM_LOCL=OFFR_FROM_LOCL 
AND SHIP_TO_LOCL- (SELECT PLAC_LOCL FROM PLACE WHERE 

PLAC_ID="&Request. Form ("Place") &") ) AS EXPR, OFFR_PRCE, OFFR_FROM_LOCL FROM OFFER 
WHERE OFFR_SIZE=0 AND OFFR_CONT="& Request . Form ( "Contract" )&") Q ORDER BY EXPR 
ASC, OFFR_DATE DESC") 
END IF 

j-"42000" 

StrBis="Truckload" 

ELSE 

1 IF Request. Form ( "Best " ) ="N" THEN 

SET Recordset=Connection. Execute ("SELECT 
OFFR_ID,OFFR_SELR,OFFR_BRAN,OFFR_FROM,OFFR__QTY, CAST (EXPR AS VARCHAR) , 0, 1 , (SELECT 
CONT_LABL FROM CONTRACT WHERE CONT_ID=OFFR_CONT ) , EXPR, 1 0 ? , 1 0 1 , OFFR_FROM LOCL 
FROM (SELECT 

OFFR_CONT, OFFR_ID, OFFR_SELR, OFFR_BRAN, OFFR_FROM, OFFR_QTY, OFFRJ3ATE, OFFR PRCE AS 



EXPR,OFFR_PRCE,OFFR_FROM_LOCL FROM OFFER WHERE OFFR_SIZE=l AND 
OFFR_CONT=" &Reques t . Form ( "Contract " ) & " ) Q WHERE 

EXPR<0. "&Request. Form ("Price" ) &"+0. 001 ORDER BY EXPR ASC, OFFR_DATE DESC") 
ELSE 

SET Recordset=Connection. Execute {"SELECT 
OFFR_ID, OFFR_SELR, OFFR_BRAN, OFFR__FROM, OFFR_QTY, CAST (EXPR AS VARCHAR) , 0, 1, (SELECT 
CONT_LABL FROM CONTRACT WHERE CONT_ID=OFFR_CONT) , EXPR, 1 0 1 , ' 0 1 , OFFR_FROM_LOCL 
FROM (SELECT 

OFFR_CONT, OFFR_ID, OFFR_SELR, OFFR_BRAN, OFFR_FROM, OFFR__QTY, OFFRJDATE, OFFR_PRCE AS 
EXPR, OFFR_PRCE, OFFR_FROM_LOCL FROM OFFER WHERE OFFR_SIZE-l AND 
OFFR_CONT="&Request. Form ("Contract") &")Q ORDER BY EXPR ASC, OFFR_DATE DESC") 

END IF 

j="190000" 

StrBis="Rail Car" 

END IF 

DO UNTIL Recordset .Eof OR Quantity=0 OR k=0 
m=Recordset ( 5 ) 

IF CDbl{ Recordset (4) )>CDbl (Quantity) THEN 
i=Quantity 

ELSE 

i=Recordset (4 ) 

END IF 

IF CDbl (i)*CDbl(j)*CDbl (Recordset (9) )>k THEN 

%><!— #INCLUDE FILE-". . /include/body3 . inc"~> 
<table width=100% border=0 height=100% cellspacing=0 cellpadding-0> 
<tr><td align=center><form> 

<font face=arial coloured size=4xb>There are no more contracts offer in the 
system please specify an offer price<br> 

<a href="Purchaser%20Trading%20Floor. tpeO?IdPlace=<%=locl%>"ximg 
src=. . /images/buttons/bwOKo. gif border=0 align=baseline>< ! — <img 
src=. •/Images /butt ons/white_trading_f loor . gif border=0> — 
></ax/formx/td></trx/tablex/bodyx/html> 
<!--#INCLUDE FILE=". . /include/Bottom. inc "--><% 
k=0 

ELSE 

IF CDbl (Recordset (4) )>CDbl (Quantity) THEN 

Connection. Execute ("UPDATE OFFER SET OFFR_QTYOFFR_QTY- 
"&i&" WHERE OFFR_ID-"&Recordset (0) ) 
ELSE 

Connection. Execute ("DELETE FROM OFFER WHERE 

OFFRJED="&Recordset (0) ) 
END IF 

Connection. Execute ("UPDATE CREDIT SET CRED_AVLB=CRED_AVLB- 
"&i&"*"&Recordset (5) &"*"&j&" ") 

IF CDbl(i)>l THEN 

StrTer=StrBis+"s" 

ELSE 

StrTer=StrBis 

END IF 

SET RecordsetTest=Connection. Execute ( "SELECT L0CL__CITY+ 1 , 
T +LOCL_STAT FROM LOCALITY WHERE LOCL_ID- {SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_I D=" & Request . Form (" Place ")&")" ) 

SET RecordSetTest2=Connection. Execute ("SELECT LOCL_CITY+ T , 
T +L0CL__STAT FROM LOCALITY WHERE LOCL_ID="&Recordset ( 12 ) ) 



IF Request .Form ("Size") ="0" THEN 



StrQuat=" "&StrTer&" of "&Recordset ( 8 ) &" for 

"&FormatCurrency (CStr (CDbl (Recordset (5) ) -CDbl (Recordset ( 10 ) ) ) ,3,0,-2,-2) &" per 
pound. Shipping from "&RecordSetTest2 (0 ) & " . Estimate Value of 

"&FormatCurrency(CStr ( (CDbl (Recordset (5) ) -CDbl (Recordset ( 10 ) ) )*i*42000) ,0,-2,- 
2,-2) 

StrTer=" "&i&" "&StrTer&" of "&Recordset (8 ) &" for 
"&FormatCurrency (Recordset (5) , 3, 0, -2, -2) &" per pound. Delivery to 
"&RecordSetTest (0) &". Estimate Value of 

"&FormatCurrency (CStr (CDbl (Recordset (5) ) *i*42000) ,0,-2,-2,-2) 
ELSE 

StrQuat=" "&i&" "&StrTer&" of "&Recordset (8) &" for 
"& Format Currency (CStr (CDbl (Recordset ( 5) ) -CDbl (Recordset (10) ) ) , 3, 0, -2,-2) &" per 
pound. Shipping from "&RecordSetTest2 (0) &" . Estimate value of 

"&FormatCurrency(CStr ( (CDbl (Recordset (5) ) -CDbl (Recordset ( 10) ) )*i*190000) ,0,-2,- 
2,-2) 

StrTer-" "&i&" "&StrTer&" of "&Recordset (8 ) &" for 
"&FormatCurrency (Recordset (5) ,3, -2, -2,-2) &" per pound. Delivery to 
"&RecordSetTest (0) &". Estimate Value of 

"&FormatCurrency (CStr (CDbl (Recordset ( 5 ) ) *i* 190000) ,0,-2,-2,-2) 
END IF 

RecordSetTest . Close ( ) 

SET RecordSetTest=NOTHING 

RecordSetTest2 . Close ( ) 

SET RecordSetTest2=NOTHING 

Connection. Execute ("INSERT INTO MESSAGE 
(MESS __COMP, MESS JTO, MESS_FROM, MESS_TEXT, MESS__DATE, MESS_TYPE ) 
VALUES ( 1, "&Session("Id") &",0, , #"&Num&" You 
bought " &St rTer & " 1 , GETDATE ( ) , T 1 1 ) ; INSERT INTO MESSAGE 
(MESS_COMP, MESS_TO, MESS_FROM, MESS_TEXT, MESSJDATE, MESS JTYPE ) 
VALUES ( " &Recordset ( 7 ) & " , " &Recordset ( 1 ) & " , 0 , 1 # " SRecordset ( 0 ) & " You 
sold"&StrQuat&" 1 , GETDATE ( ) , ' 1 ' ) ; "&Str& "NULL"&", "&Recordset (0) "SRecordset ( 1 ) &" 
, "SRecordset (3) &", "&i&", "&Recordset (5) &"- 
"&Recordset (10) T "&Recordset ( 11 ) &" ' ) ") 

Quant ity=Quantity-CDbl (i) 

Recordset .Movenext ( ) 

END IF 

LOOP 

Connection. Execute ("UPDATE BID SET BID__QTY=" & Quant ity&" WHERE 
BID__ID="&Num) 

IF Quant ity=0 THEN 

Connection. Execute ("DELETE FROM BID WHERE BID__ID="&Num) 

END IF 

Recordset .Close 

SET Recordset-NOTHING 



IF Request. Form ( "WorkingOrders ")<>"" AND Request - Form ( "Back" ) = w " THEN 
SET RecordsetTest2=Connection. Execute ("SELECT LOCL_CITY+ 1 , 

! +LOCL_STAT FROM LOCALITY WHERE LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE 

PLAC_ID=" SReques t . Form { " Place ")&")") 

SET Recordset=Connection. Execute ("SELECT CAST (BID_PRCE AS 

VARCHAR) ,BID_QTY,BID_SIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 

CONT_ID=BID_CONT) FROM BID CONTRACT WHERE 

BID_ID="&Request . Form ( "WorkingOrders") ) 

Str=" #"&Request. Form { "WorkingOrders") &" to BUY "&Recordset ( 1 ) 



IF Recordset (2)=" False" THEN 

Connection. Execute ("UPDATE CREDIT SET 
CRED_AVLB=CRED_AVLB+ " &Recordset ( 0 ) & " * " SRecordset ( 1 ) &"*42000") 
Str=Str+" Truckload" 

ELSE 

Connection. Execute ("UPDATE CREDIT SET 
CRED_AVLB=CRED_AVLB+"&Recordset { 0 ) Recordset (1) &"*190000") 
Str=Str+" Rail car" 

END IF 

IF CDbl (Recordset (1) ) >1 THEN 

IF Request .Form ("Size") ="0" THEN 

Str=Str+"s of "+Recordset (3) + " for 
"+FormatCurrency (Recordset (0) ,3,0,-2,-2)+" per pound. Delivery to 
"&RecordSetTest2 (0) &". Estimate value 

"& Format Currency (CStr (CDbl (Recordset (0) ) *CDbl (Recordset { 1) ) *42000) ,0,-2,-2, 
ELSE 

Str=Str+"s of "+Recordset ( 3 ) +" for 
"+FormatCurrency (Recordset (0) ,3,0,-2,-2)+" per pound. Delivery to 
"&RecordSetTest2 (0) &". Estimate value 

"&FormatCurrency (CStr (CDbl (Recordset (0) ) *CDbl (Recordset ( 1) ) *190000) , 0,-2,-2 
END IF 

ELSE 

IF Request. Form { "Size" )="0" THEN 

Str=Str+" of "+Recordset (3)+" for 
"+FormatCurrency (Recordset (0) ,3,0,-2,-2)+" per pound, Delivery to 
"&RecordSetTest2 (0) &". Estimate value 

"&FormatCurrency (CStr (CDbl (Recordset ( 0 ) ) *CDbl (Recordset ( 1 ) ) *42000) ,0,-2, -2, 
ELSE 

Str-Str+" of "+Recordset (3) +" for 
"+FormatCurrency (Recordset (0) , 3, 0, -2, -2) +" per pound. Delivery to 
"&RecordSetTest2 (0) &" . Estimate value 

"&FormatCurrency (CStr (CDbl (Recordset ( 0) ) *CDbl (Recordset ( 1 ) ) * 190000 ) , 0, -2, -2 
END IF 

END IF 

Recordset . Close 

SET Records et=NOTHING 

Connection. Execute ("INSERT INTO MESSAGE 
(MESS_COMP, MESS_TO, MESS_FROM, MESSJTEXT , MESS_DATE, MESS_TYPE) 

VALUES ( 1, "SSession ( "Id") &", 0, T "&Str&" ' , GETDATE ( ) , ' 2 ' ) ; DELETE FROM BID WHERE 
BID_ID="&Request . Form ( "WorkingOrders" ) ) 

RecordSetTest2. Close () 

SET RecordSetTest2=N0THING 

END IF 

IF Quantity-0 THEN 

1 Connection . Execute ( "DELETE FROM BID WHERE BID_ID-"&Num) 
Application ( "Flag" ) =0 
Application . UnLock ( ) 

Response. Redirect ("Purchaser Trading Floor . tpeO?IdPlace="&Locl) 
ELSEIF Request. Form ( "Best") ="Y" THEN 

IF Request .Form ("Quantity" )=Quantity THEN 

Connection. Execute ("DELETE FROM BID WHERE BID_ID="&Num) 
%>< 1 — #INCLUDE FILE=" . . /include/body3 . inc"— > 
<table width=100% border=0 height=100l cellspacing=0 cellpadding-0> 
<tr><td align=center><f orm> 

<font face=arial color=red size=4xb>There is no more offer side in 



the market to satisfy totally your bid.<br>So you can not buy the best offer 
anymore, you need to specify your price. <br> 

<a href="Purchaserl20Tradingl20Floor. tpeO?IdPlace=<%=locl%>"ximg 
src=. * /images/buttons /bwOKo.gif border=0 align=baseline>< 1 — <img 
src=. . /Images/buttons/white_trading_floor . gif border=0> — 
></a></form></td></tr></table></bodyx/html> 
< ! — #INCLUDE FILE=" . . /include/Bottom. inc"— x% 
Response . End { ) 

ELSE 

Connection . Execute { "UPDATE CREDIT SET CRED_AVLB=CRED_AVLB- 
"&Quantity&"*"&m&"*"&j&" ; UPDATE BID SET BID_QTY="&Quantity&", BID PRCE="&m&" 
WHERE BID_ID="&Num) ~ 

%>< ! — #INCLUDE FILE=" . . /include/body3 . inc"— > 
<table width-100% border=0 height=100l cellspacing-0 cellpadding=0> 
<tr><td align=centerxform> 

<font face=arial color=red size=4xb>You place a bid for a quantity of contracts 
bigger than available at this price. <br>You got filled 

<%=Request. Form ( "Quantity" )-Quantity%> contracts and you have a working order at 
<%=Quantity%> contracts . <br> 

<a href="Purchaser%20Trading%20Floor. tpeO?IdPlace=<%=locl*>"><img 
src=. . /images/buttons/bwOKo.gif border=0 align=baselinex [ — <img 
src=. . /Images/buttons/white__trading_floor.gif border=0> — 
x/ax/formx/tdx/trx/tablex/bodyx/html> 
< ! — #INCLUDE FILE=". ./include/Bottom. inc"— x% 
Response . End ( ) 

END IF 

ELSE 

Connection. Execute ("UPDATE CREDIT SET CRED_AVLB=CRED AVLB- 
"&Quantity&"*0. "^Request . Form ( "Price" ) &"*"&j &"; UPDATE BID SET ~ 
BID_QTY="&Quantity&" WHERE BID_ID="&Num) 

Response . Redirect ( " Purchaser Trading Floor . tpeO ? IdPlace=" &Locl } 

END IF 

Application ( "Flag" ) =0 

Application. UnLock ( ) 
' Response. Redirect ("Purchaser Bid Entry. tpeO") 

END IF 
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SET RecordsetBis-Connection. Execute ("SELECT PLAC_ID, (SELECT LOCL_CITY+ ? , 
'+LOCL_STAT FROM LOCALITY WHERE LOCL_ID=PLAC_LOCL) AS EXPR, PLAC LOCL FROM PLACE 
WHERE PLAC_TYPE= f B 1 ORDER BY EXPR") 

SET Recordset-Connection. Execute ("SELECT CONT_ID, CONT_LABL FROM CONTRACT WHERE 
POWER(2,CONT_ID-l) & (SELECT PERS_PREF FROM PERSON WHERE 
PERS_ID="&Session("Id") &")<>0 ORDER BY CONT_ORDR") 
IF Request. Form ("IdOrder ")<>"" THEN 

SET RecordsetTer=Connection . Execute ( "SELECT 
BID__ID,BID_QTY,BID_SIZE, (SELECT CONT_LABL FROM CONTRACT WHERE CONT_ID=BID_CONT ) , 
BID_PRCE,BIDjCONT,BIDJTO,BIDjrOJX>CL FROM BID WHERE 
BID__ID="&Request. Form ("IdOrder") ) 
END IF 

IF Request. Form ("TradingFloor") -"YES" AND Request . Form ( "Back" ) ="" AND 
Request . Form ( "Submit " ) <>" " THEN 

Response . Redirect ( "Purchaser Trading Floor . tpeO ?IdPlace=" &Locl ) 
ELSEIF Request. Form { "WorkingOrders ")<>"" AND Request . Form ( "Back" )=" " AND 
Reques t . Form ( "Submit " ) <>" " THEN 

Response. Redirect ("Purchaser Trading Floor . tpeO?IdPlace="&Locl) 



END IF 



<i 

> 

DIM Height 
Height=260%> 

< ! — #INCLUDE FILE=" . . /include/Body3 . inc"~ > 
<! — <body> — > 

< ! — #INCLUDE FILE=" . . /include/Loading. inc"~> 
< ! — #INCLUDE FILE=" . . /include/PopUp . inc"— > 

<SPAN ID^Main name=Main style= , position:absolute; x:0px; y:0px; visibility: 

hidden ' > 

<script> 

<%IF NOT MSIE THEN%> 
function noclick(scx) 

{ if (sex. which != 1) return false 

else if (sex . target . name==' Size 1 ) 
Upd(l) 

} 

<%END IF%> 

function Trim(Para, Flag) 

{ Arr=new Array CO', 1 *) 1 ,'*)') 

for (i=0; i<Para . value . length; i++) 

i f ( Para .value . charAt ( i ) < 1 0 T | I Para . value . charAt { i ) > 1 9 1 ) 
break 

else 

Arr [ i ] =Para . value . charAt ( i ) 
Val=(i==Para. value. length) ? ( (Arr [0] ' 0 ' ) ? ( (Arr [ 1] == ■ 0 1 ) ?parselnt (Arr [2 ] ) : 
parselnt (Arr [1]+Arr[2] ) ) : parselnt (Arr [0] +Arr [1] +Arr [2] ) ) :0 
if (Flag==l) 

{if(Val<999) Val+=1> 
else if (Val>0) 
Val-=1 

Para.value=("000"+Val) . substr ( ( "000"+Val) .length-3,3) 

} 

function Check () 

{ with(<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"window. document . Main. "%>document . Form) 

{ Qty-Quantity. options [Quantity . options . selectedlndex] . text 

if (Price. value==0) return Path . Mess (window, 1 Please enter a 

buying price . '0 T ) 

if (Qty=="0") return Path. Mess (window, T Please enter the 

number of contracts you wish to buy.^'O') 

if (Price. value=="") return Path . Mess (window, ' Please enter a 
valid price. ' , ' 0 1 ) 

for ( j =0 ; j <Price . value . length ; j ++ ) 

if (Price. value. charAt ( j )<"0" f | Price .value . charAt ( j )>"9") 
return Path. Mess (window, 1 Please, enter a valid 

price. ' , ' 0 ' ) 

Val^eval ( "parseFloat { Price . value) / (Math. pow{10, Price. value. length- 

3) )*Qty") 

Prce=new 

String (Math. round (Size [ 0] . checked?eval ( "42*100*Val") : eval ( " 190*100*Val" ) ) /100) 
Valid . value=Prce 
t=0 

for (t=0;t<Prce. length; t++) 



if (Prce.charAt (t)== f . ' ) 
break; 
t=Prce . length- t 

for ( i=3+t ; Prce . length-i>0 ; i+=4 ) 

Prce=Prce . substring { 0 , Prce . length- 
i ) + " / "+Prce . substring ( Prce . length-i, Prce . length) 

Str=new Array ( ! Your are going to place an order to buy 1 ,' 
'+Qty+ (Size [0] .checked?' Truckload' : ' Rail Car ? ) + (eval ( "Qty>l" )? T s 1 : 1 ' ), ' of 
' , Contract .options [Contract .options. selectedlndex] .text, * for T $ 
. '+Price. value, T per pound. \n\n 1 , ' Delivery at 

' , Place. options [Place. options. selectedlndex] .text, ' .\n\n\ 'Estimate value 
$',Prce) 

Mess.value=Str.join( ' ■ ) . substring (33, Str . j oin ( 1 1 ) .length) 
Strl='<font color-red>' 

Path. Mess (window, Str [0] + ' : <br> r +Strl+Str [1 ] + 1 </f ont> 1 +Str [2] +Strl+Str [ 3] + 1 
</fontxbr> , +Str[4]+Strl+Str[5] + '</font> , +Str[6] + '<br> , +Str [7 ] -f Strl+Str [8] + ' </f o 
nt> f +Str[9]+ , <br> , +Str[10]+Strl+Str[ll]+'</font> f , '1' ) 

} 

} 

function Answer (Flag) 

{ with(<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"window. document .Main. "%>document . Form) 
if (Flag) 

{ Submit . valuer 1 Submit 1 

submit ( ) 

} 

else 

Valid. value-' 1 

} 

function Upd(Flag) 

{ with(<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"window. document .Main. "%>document . Form) 

Price. value=(Size [0] .checked) ? ( ( Flag==l ) ?Ask : Bid) : ( (Flag==l) ?Bid:Ask) 
} 

<%IF NOT MSIE AND NOT NN6 THEN%> 

window . captureEvent s { Event . MOUSEDOWN | Event . CLICK) 
window . onmousedown^noclick 
function noclick(scx) 

{ //change the price when change the transport type 

/*if {sex. which !- 1) return false 
else if (sex. target . name==' Size' ) 

Upd(l)*/ 
if (sex. which ! = 1) return false 

} 

<%END IF%> 
Temp=new Image ( ) 

Temp . src= 1 /images/buttons /bwOKo . gif T 
Templ^new Image ( ) 

Tempi . src= ' /images/buttons/bwSpecif icationso . gif ' 
</script> 

<form method^post name=Form> 
<input type=hidden name=Valid valuer' 1 > 
<input type=hidden name=Mess value= ,f > 
<input type=hidden name^Submit value= fI > 

<input type-hidden name=IdOrder value=' <%=Request .Form("IdOrder") %>'> 



<table cellspacing=0 cellpaclding=0 border=0xtrxtdximg src=/images/lxl . gif 
height=6x/tdx/trxtrxtd> 

<table cellspacing^O cellpadding=0 border=Oxtrxtd align=rightx%IF NN6 
THENIxdiv align=rightx%END IF%xtable cellspacing-0 cellpadding-0 border=0> 
<trxtd valign=middleX%IF Request . Form ( "I dOrder" )<>" " THEN%>Change Bid Number 
<%=Request. Form ("IdOrder") %><%END IF%ximg src=/Images/lxl . gif height=68 
border=0 width=l align=absmiddlex/td> 

<%IF Request. Form ("Contract ")<>"" THEN 
i=Reques t . Form ( "Contract " ) 

ELSE 

IF Request. Form { "IdOrder"} <>"" THEN 
i=Recordse tTer ( 5 ) 

ELSE 

i=Recordset (0) 

END IF 

END IF 

IF Request. Form ( "IdPlace" ) <>"" THEN 
j=Request . Form ( "Place" ) 

' SET RecO=Connection. Execute {"SELECT PLAC_ID FROM PLACE WHERE 
PLAC_LOCL="&j } 

f m=RecO(0) 

f RecO.Close() 

T SET Rec0=NOTHING 

ELSEIF Request. Form ( "IdPlace" )="" AND Request . Form ( "Place" )<>" " THEN 

SET RecO=Connection. Execute ("SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID="&Request . Form { "Place" ) ) 

j-RecO(O) 

RecO. Close () 

SET RecO-NOTHING 

1 m=Request . Form ( "Place" ) 
ELSEIF Request. Form ( "IdOrder ") <>"" THEN 

j =Recordset Ter ( 7 ) 

f m=RecordsetTer ( 6 ) 

ELSE 

j=RecordsetBis (2) 
1 m=RecordsetBis { 0 ) 

END IF 

%> 

<! — Truckload — > 

<td background=/Images/Panel/bgTL.gif valign=bottomximg src=/Images/lxl . gif 
width=<%IF NOT MSIE THEN%>150<%ELSE%>168<%END IF%> height-l> 
<%SET RecO^Connection. Execute ("Exec spPBO_OffrT "& j & " , "&i& "" ) 
IF RecO.Eof THEN 

Str-"Exec spPBO_BP0 "&j&", "&i 

arBA(2)-"-" 

arBA(3)="-" 

1="0" 

ELSE 

Str="Exec spPBO_BPl "&RecO ( "OFFR_FROM_LOCL" ) &", "&j&", "&i&"" 
k=0 

n=RecO ("EXPR") 

arBA ( 2 ) -FormatNumber ( RecO ( "EXPR" ) , 3 , 0 , -2 , -2 ) 
DO UNTIL RecO.Eof 

IF CDbl (RecO (1) ) <>CDbl (n) THEN EXIT DO 

k-k+CInt (RecO ("OFFR_QTY") ) 

RecO.MoveNext () 



LOOP 

l=FormatNumber (n, 3,0,-2,-2) 
arBA(3)=k 

END IF 

RecO .Close 

SET RecO-NOTHING 

SET RecO=Connection. Execute (Str) 

IF RecO.Eof THEN 

arBA(0)="-" 

arBA(l)="-" 

ELSE 

k=0 

n=RecO (0) 

arBA ( 1 ) = Format Number (RecO ( "EXPR" ) , 3, 0 , -2 , -2 ) 
arBA(4)=CByte (CInt (RecO (2) )«CInt (Session ( "Comp" ) ) ) /255 
DO UNTIL RecO.Eof 

IF CDbl (RecO (0) ) <>CDbl (n) THEN EXIT DO 

k=k+CInt (RecO ("BID_QTY") ) 

RecO.MoveNext () 

LOOP 

arBA(0)=k 

END IF 

RecO. Close 

SET Rec0=NOTHING 

SUB Display 

%> 

<table border=0 cellspacing^O cellpadding=Oxtr> 
<%FOR ind=0 TO 3 

Response. Write "<tdxdiv align=center class=Sl>" 

IF (ind=l AND arBA(4)=l) THEN 

Response. Write "<font color=#FF0000>"&arBA (ind) &"</f ont>" 

ELSE 

Response. Write arBA (ind) 

END IF 

Response .Write "</divx/td>" 

NEXT%> 

</trxtr> 

<%FOR ind=0 TO 3 

Response. Write "<tdximg src-/Images/lxl . gif width=42 height=l 
border«0x/td>" 
NEXT%> 

</trx/table> 
<%END SUB 
Display%> 
</td> 

<! — Railcar — > 

<td background=/Images/Panel/bgRC.gif valign=bottomXimg src=/Images/lxl , gif 
width=<%IF NOT MSIE THEN%>165<%ELSE%>173<%END IF%> height-l> 
<%SET RecO^Connection. Execute ("Exec spPBO_OffrR "& j &" , "&i& ) 
IF RecO.Eof THEN 

Str="Exec spPBO_BP2 "&i 

arBA (2 )="-"" 

arBA<3)-"-" 

m="0" 

ELSE 

Str="Exec spPBO_BP3 "&RecO ( "OFFR__FROM_LOCL" ) &" , "&i&"" 



k=0 

n=Rec0 ("EXPR") 
DO UNTIL RecO.Eof 

IF CDbl(RecO(l) )<>CDbl(n) THEN EXIT DO 

k=k+CInt (RecO ( "OFFR_QTY" ) } 

RecO.MoveNext () 

LOOP 

m=FormatNumber (n, 3, 0, -2, -2) 

arBA(2)=m 

arBA(3)=k 

END IF 

RecO. Close 

SET RecO-NOTHING 

SET RecO-Connection. Execute (Str) 

IF RecO.Eof THEN 

arBA(0)="-" 

arBA(l)="-" 

ELSE 

k=0 

n=RecO (0) 

arBA ( 4 ) =CByte (CInt (RecO (2 ) ) =CInt (Session ( "Comp" ) ) ) /255 
arBA ( 1 ) =FormatNumber ( RecO ( "EXPR" ) , 3 , 0 , -2 , -2 ) 
DO UNTIL RecO.Eof 

IF CDbl(RecO(0) )<>CDbl(n) THEN EXIT DO 

k-k+CInt {RecO ("BID_QTY") ) 

RecO.MoveNext () 

LOOP 

arBA(0)=k 

END IF 

RecO. Close 

SET RecO-NOTHING 

1 &FlagTOf fer=0&FlagROf fer=0 

Display%> 

<%IF NN6 THEN%X/div><%END IF%> 

<%IF MSIE THEN%> 

</tdx/trx/table> 

<%ELSE%> 

</td> 

<td bgcolor=#212121 width-2 height=2ximg src=/images/lxl . gif width=2 
height=2x/tdx/tr> 

<trxtd colspan=3 bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif 

width=2 height=2x/tdx/trx/table> 

<%END IF%> 

</tdX/tr> 

<trxtd colspan=2> 

<% 'border begin 

IF MSIE OR NN6 THEN%> 

<table border=l cellspacing=0 cellpadding=0 bordercolor=#212121xtrxtd> 
<%ELSE%> 

<table border=0 cellspacing=0 cellpadding=0> 

<trxtd colspan-3 bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif 
width=2 height=2x/tdx/tr> 

<trxtd bgcolor=#212121 width=2 height=2ximg src-/images/lxl . gif width=2 

height=2x/tdxtd> 

<%END IF%> 

<table border=0 cellspacing=0 cellpadding=0> 
<tr valign=middle bgcolor=#cccccc height=20> 



<td CLASS=Sl>  Quantity</tdxtd bgcolor=#212121 rowspan-4ximg 
src-/images/lxl.gif width=2 height=2x/tdxtd width=337 
CLASS-Sl>  Contract</tdx/tr> 
<trxtd align-leftxtablextr> 

<tdXscript>Path.SO(0,20, '<%IF Request . Form ( "IdOrder" )<>" " 
THENI><%-RecordsetTer { 1 ) %x%ELSE%x%=Request . Form ( "Quantity" ) %><%END 
IF%>' , document, 'Quantity 1 )</scriptx/td> 

<tdxinput type-radio name-Size value=0<%IF MSIE THEN Response .Write " 
style-'border:0' "%><% 

IF Request . Form( "IdOrder" ) <>"" AND Request . Form ( "Price" ) ="" THEN 

IF RecordsetTer (2) -"False" THEN%> checked<%END IF 
ELSEIF Request. Form ( "Size" ) <>"1" THEN%> checked<%END IF%> 
<%IF MSIE THEN Response . write " onClick-Upd ( ) "%»Truckloads*<f ont size-l> 
(42.000 lbs)</fontxbr> 

<input type-radio name-Size value-1 <%IF MSIE THEN Response .Write 
"style-border : 0"%x% 

IF Request. Form ( "IdOrder" }<>" " AND Request . Form ( "Price" )=" " THEN 

IF RecordsetTer (2) -"True" THEN%>checked<%END IF 
ELSEIF Request. Form { "Size" ) ="1" THEN%>checked<%END IF%> 

<%IF MSIE THEN Response . write " onClick=Upd ( ) "%»Rail Cars*<font size=l> 
(190.000 lbs)</tdx/trx/tablex/td> 

<td align=lef t>  <select name-Contract onChange-submit ( ) > 
<script> 

Bid-' <%-Right ("000 "+CStr (1*1000) , 3) %>' 
Ask= T <%-Right ( "000"+CStr (m*1000) , 3) %>' 
<% 

StrBis-" " 
StrTer-" " 

DO UNTIL Recordset .Eof 

StrBis-StrBis&" 1 "&Recordset ( "CONT_ID" ) & " ' , " 
StrTer=StrTer&" 1 "&Recordset ( "CONT_LABL" ) &" 1 , " 
Recordset . MoveNext ( ) 

LOOP 

StrBis-Left (StrBis , Len (StrBis ) -1 ) &" ) f new Array ("&Left (StrTer , Len (StrTer ) -1) 

Recordset . Close 

SET Recordset-NOTHING 

%> 

Path.SO(new Array (<%=StrBis%>) , ' <%=i%> T , document ) 
</scriptx/selectx/tdx/tr> 

<tr bgcolor-#cccccc height-20 valign-middle> 
<td CLASS-Sl>   Delivery Point</td> 

<td CLASS=Sl>   Buying Price FOB Delivery Point</tdx/tr> 

<trxtd> <select name-Place onchange- 1 submit ()' > 

<% 

DO UNTIL RecordsetBis.Eof 

IF CInt (j )=CInt (RecordsetBis (2) ) THEN 

Response. Write ("<option value- 1 "^RecordsetBis (0) &" 1 
selected> n &RecordsetBis (1) ) 

ELSE 

Response .Write ( "<option 
value-' "SRecordsetBis (0) & " ' >"&RecordsetBis (1) ) 
END IF 

RecordsetBis .MoveNext ( ) 

LOOP 

%> 

</select> 

<%RecordsetBis . Close 



SET Records etBis=NOTHING%> 
  Snbsp;  <a 

href=Javascript : Path. Show (window, " . . /Common/MB%20Demo%20Specs%20Location. tpeO", < 
I IF NOT MSIE AND NOT NN6 THEN Response . write 

"window. document .Main. "%>document . Form. Place . options [<%IF NOT MSIE AND NOT NN6 
THEN Response. write 

"window. document. Main. "%>document. Form. Place. selectedlndex] . value . split ( 1 , ') [0] ) 
OnMouseOut=Javascript : document . images [ 1 bt_spec * ] . src= T /images/buttons/bwSpecif ic 
ations .gif 1 OnMouseOver=Javascript : document . images [ f bt_spec' ] . src=Templ . srcximg 
src=. ./Images/Buttons/bwSpecif ications.gif name=bt_spec border=0x/ax/tdx/td> 
<td valign=top align=lef t>  $<b> . </b><input type=text name^Price maxlength=3 
size=3 value='<%IF Request . Form ( "IdOrder" )<>" " AND Request . Form ( "Price" )=" " 
THEN%x%=Right ( Format Number ( RecordsetTer ( 4 ) , 3 , 0 , -2 , -2 ) , 3 ) % x% 
ELSE%X% ' ^Request . Form ( "Price" ) %><%=Right ( FormatNumber { 1 , 3 , 0 , -2 , -2 ) , 3 ) %><% 
END IF%>'ximg src=. . /Images /buttons /whit e_updn. gif usemap=#Map border=0 
align=absmiddlexmap name=Mapxarea shape^rect coords=0, 0, 20, 9 
href=Javascript :<%IF NOT MSIE AND NOT NN6 THEN Response .write 
"document .Main. "%>Trim(<%IF NOT MSIE AND NOT NN6 THEN Response . write 
"document .Main. "%>document . Form. Price, 1) xarea shape=rect coords=0, 10, 20, 20 
href = Javascript :<%IF NOT MSIE AND NOT NN6 THEN Response .write 
"document. Main. "%>Trim(<%IF NOT MSIE AND NOT NN6 THEN Response . write 
"document. Main. "%>document. Form. Price, 0) ></map> per lb.<img src=/Images/lxl . gif 
width=160 height=l> 

<a href= Javascript :<%IF NOT MSIE AND NOT NN6 THEN Response .write 
"document .Main . "%>Check ( ) 

OnMouseOut=Javascript : document .images [ 'bt__ok f ] . src= 1 /images/buttons/bwOK. gif ' 

OnMouseOver=Javascript : document . images [ 1 bt_ok 1 ] . src=Temp . srcximg 

src=. . /Images/Buttons/bwOK.gif name- f bt_ok f border^O align^baselinex/aximg 

src=*/Images/lxl.gif width=<%IF NOT MSIE AND NOT NN6 THEN%>25<%ELSE%>10<%END IF%> 

height=30 align^absmiddle border=0> 

</tdx/trx/table> 

<%' border end 

IF MSIE OR NN6 THEN%> 

</tdx/trx/table> 

<%ELSE%> 

</td> 

<td bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif width=2 
height=2x/tdx/tr> 

<trxtd colspan=3 bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif 

width=2 height=2x/tdx/trx/table> 

<%END IF%> 

</tdx/trx/table> 

</tdx/trx/table> 

<brxbrxdiv align="center" class=S2>*Quantities are estimated. Actual values 
will be calculated at completion of order. </div> 
</ form> 

<%Connect ion. Close 

SET Connection=NOTHING%> 

</SPAN> 

</bodyx/html> 
<script> 

window . top . upFrame . sel ( 2 ) ; 

<%IF Request. Fo rm(" IdOrder ")="" AND Request . Form ( "Price" )=" " THEN 

IF NOT MSIE AND NOT NN6 THEN Response . write "window. document . Main . " 
%>Upd(); 

<%END IF%>Path. Start (window) </script> 



<td>Total Credit of your Company 

Outstanding 

Available 

> 

$0.00 
$0.00 
$0.00 



>Change your password: 



t 



Response.Redirect("../MyIndex.tpeO") 



IS 




- Bie cocitenfB ^*gfrt shat! be dearly marl;sd 



ProducL 



selected>Custom 
• selected>HDPE selected>LDPE 
I selected>LLDPE selected>PS 

selected>PP 

selected> AllL„ ™ ... 



Priced as Shipped FOB 

hi 




Quantities are estimated. Actual values will be calculated 
at completion of order. 



< ! — tINCLUDE FILE-" . . /include/Head. inc"--> 

<%IF Session ( "DemoTyp" } <>"S" THEN Response . Redirect (".. /Mylndex . tpeO" ) 

DIM RecordsetQuatro, RecordSetTest3, p, q, Field, Fieldl, Field2, FlagT, FlagR 

DIM Recordset, RecordsetBis, RecordsetTer, RecordSetTest, RecordSetTest2, i, j , k, l,m, n 

DIM Quantity, Num, Loci 

DIM Str, StrBis, StrTer, StrQuat 

DIM arBA(12), ind 1 array for Bids & Asks 

DIM RecO r Strl 

DIM Height 

%> 

< ! — #INCLUDE FILE=" . . /include/ DemoHead. inc"~> 

<% 

r t ? r 1 T t T f r 1 T r 1 1 f 1 1 t I I t T t r I I I t T I 1 T I 1 T r 1 T T f t t I T T I T T 1 1 T I T f I I T I I T 

' 1 Transaction engine ' T ' f ' 1 T • 1 T f ' T ' 1 f ' T T ' ' 1 f ' T ? ' T 1 1 ' T • • T • f T ? 1 T 

I I T i t T I I f r I T I I t I I T 1 I ! ? t T I T 1 I I 1 I ! I I 1 T I I f f I t 1 I ! 1 I T I I T I I ! I I I t I I » 

IF Request. Form ( "Valid" ) <>"" AND Request . Form ( "Back" )=" " THEN 
'We check that the guy can place the bid 
i-0 

Application. Lock ( ) 
Application ( "Flag" ) =1 
DIM MySQL, Brand 

Quantity=Request . Form ( "Quantity" ) 

SET Recordset=Connection. Execute {"SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID=" & Request . Form ( "Place" ) ) 
Locl=Recordset ( 0 ) 

Connection. Execute ("INSERT INTO OFFER 
(OFFR_SELR, OFFR_BRAN, OFFR_FROM, OFFR_DATE, OFFR_QTY, OFFR_PRCE, OFFR_SIZE, OFFR_CONT, 
OFFR_FROM_LOCL) VALUES 

{ " SSess ion ( " Id" ) & " , " SReques t . Form { "Brand" } & " , " &Request . Form ( " Place " ) & " , GET DATE { ) 
, "&Quantity&", 1 0 . "SRequest . Form { "Price" ) & " T , "SRequest . Form ( "Size" ) &" , "^Request . F 
orm { "Contract" ) &", "&Recordset ( 0 ) &") ") 

Recordset . Close ( ) 

SET Recordset=NOTHING 

IF Request .Form ("Brand" )="NULL" THEN 

SET Recordset=Connection. Execute ("SELECT OFFR_ID FROM OFFER WHERE 
OFFR_SELR="&Session("Id") &" ORDER BY OFFR_ID DESC") 
Brand="Generic" 

ELSE 

SET Recordset-Connection. Execute ("SELECT OFFR_ID, (SELECT BRAN_NAME 
FROM BRAND WHERE BRAN_ID=OFFR_BRAN) FROM OFFER WHERE OFFR__SELR="& Session ( "Id" ) & " 
ORDER BY OFFR_ID DESC") 

Brand^Recordset ( 1 ) 

END IF 

Num-Recordset ( 0 ) 

Recordset . Close 

SET Recordset=NOTHING 

Connect ion, Execute ( "INSERT INTO MESSAGE 
(MESS_COMP, MESSJTO, MESS_FROM, MESS_TEXT, MESS_DATE, MESS_TYPE) 
VALUES (1, "&Session("Id") & n ,0, '#"&Num&" 
" ^Request. Form ( "Mess ") &" ' , GETDATE ( ) , f 3' ) ") 

Str="INSERT INTO ORDERS 
(ORDR_DATE,ORDR_CONT, ORDR_SIZE, ORDR_SHIP, ORDR_OFFR, ORDR_SELR, ORDR_FROM, ORDR_BRAN 
, ORDR_BID, ORDR_BUYR, ORDR_TO, ORDR__QTY, ORDR PRCE, ORDR SHIP_PRCE) VALUES 



(GETDATE () , "^Request . Form ( "Contract ") "&Request . Form ( "Size" ) &", ' 2 ' , "&Num&", "&S 
ession("Id") "SRequest .Form ("Place" ) &", "&Request . Form ( "Brand" ) &", " 
'We Take a picture of the market 

IF Request . Form ("Size") ="0" THEN 

SET Recordset=Connection . Execute ( "SELECT 
BID_ID, BID_BUYR, BID_C0NT, BID_T0, BID_QTY, CAST (EXPR AS VARCHAR) , 1, CAST (BID_PRCE- 
EXPR AS VARCHAR) , CAST ( SHIP_PRCE_FULL_TRUC AS VARCHAR) , BID_TO_LOCL FROM { SELECT 
(SELECT SHIP_PRCE_FULL_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL AND 
SHIP_FROM_LOCL== (SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID="&Request . Form ("Place" ) & ") ) AS 

SHIP_PRCE_FULL_TRUC, BID_ID, BID_BUYR, BID_CONT, BIDJTO, BID_QTY, BIDJDATE, BID_PRCE- 
( SELECT SHIP_PRCE_TRUC FROM SHIPPING WHERE SHIP_TO_LOCL=BID_TO_LOCL AND 
SHI P_FROM_LOCL= (SELECT PLAC_LOCL FROM PLACE WHERE 

PLACJCD="& Re quest. Form ( "Place" )&") ) AS EXPR, BID_PRCE, BID_TO_LOCL FROM BID WHERE 
BID_SIZE=0 AND BID_CONT="& Request . Form ( "Contract ") &" )Q WHERE 
EXPR>0."&Request.Form("Price")&"-0.001 ORDER BY EXPR DESC, BID__DATE DESC") 
j="42000" 

StrBis="Truckload" 

ELSE 

SET Recordset=Connection . Execute ( "SELECT 
BID__ID, BID__BUYR, BID_CONT, BID_TO, BID__QTY, CAST (EXPR AS 
VARCHAR) , 1 , 1 0 1 , 1 0 1 , BID_TO_LOCL FROM ( SELECT 

BID__ID, BID_BUYR, BID_CONT, BIDJTO, BID_QTY, BID__DATE, BID_PRCE, BID_PRCE AS 
EXPR,BID_TO_LOCL FROM BID WHERE BID_SIZE-1 AND 

BID__CONT="&Request . Form ("Contract" ) &" )Q WHERE EXPR>0 . "&Request . Form ( "Price" )& "- 
0.001 ORDER BY EXPR DESC, BID_DATE DESC") 

j="190000" 

StrBis="Rail Car" 

END IF 

DO UNTIL Recordset .Eof OR Quant ity=0 

IF CDbl (Recordset (4 ))>CDbl (Quantity) THEN 
i=Quantity 

ELSE 

i=Recordset (4) 

END IF 

IF CDbl (Recordset (4) )>CDbl (Quantity) THEN 

Connection. Execute ( "UPDATE BID SET B I D_QT Y=B I D_QT Y- " & i & " WHERE 
BID_ID="&Recordset (0) ) 
ELSE 

Connection. Execute ("DELETE FROM BID WHERE 
BID_ID="&Recordset (0) ) 
END IF 

IF CDbl(i)>l THEN 

StrTer=StrBis+"s" 

ELSE 

StrTer=StrBis 

END IF 

SET RecordSetTest-Connection. Execute ("SELECT CONT_LABL FROM CONTRACT 
WHERE CONT_ID="&Request.Form( "Contract") ) 

SET RecordsetTest2=Connection. Execute ("SELECT LOCL_CITY+' / 
'+LOCL_STAT FROM LOCALITY WHERE LOCL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC__ID-"&Request . Form ( "Place" )&")") 

SET RecordsetTest3=Connection. Execute ("SELECT LOCL_CITY+ f , 
'+LOCL_STAT FROM LOCALITY WHERE LOCL_ID="&Recordset ( 9) ) 

IF Request. Form ( "Size" )="0" THEN 



StrQuat=" "&i&" "&StrTer&" of "&RecordSetTest (0) &" ("&Brand&") 
for "SFormatCurrency (CDbl (Recordset (5) ) +CDbl (Recordset ( 7 ) ) , 3, 0, -2, -2) &" per 
pound. Delivery to "&RecordsetTest3 (0) &" . Estimate value of 

"&FormatCurrency (CStr { (CDbl {Recordset (5) ) +CDbl (Recordset (7 ) ) ) *i*42000) , 0, -2, -2, - 
2) 

StrTer=" w &i&" "&StrTer&" of "SRecordSetTest ( 0 ) &" ("&Brand&") 
for "&FormatCurrency (Recordset (5) , 3, 0,-2,-2) &" per pound. Shipping from 
"&RecordSetTest2 (0) &". Estimate value of 
"SFormatCurrency (CStr (Recordset (5) *i*42000) , 0,-2,-2,-2) 
ELSE 

StrQuat=" "&i&" "&StrTer&" of "&RecordSetTest (0) &" ("&Brand&") 
for "& Format Currency (CDbl (Recordset (5) ) +CDbl (Recordset ( 7 ) ) , 3, 0, -2,-2) &" per 
pound. Delivery to "&RecordsetTest3 (0) &" . Estimate value of 

"ScFormatCurrency (CStr { (CDbl (Recordset ( 5 ) ) +CDbl (Recordset { 7 ) ) ) *i* 190000) , 0, -2, - 
2,-2) 

StrTer=" "&i&" "&StrTer&" of "&RecordSetTest (0) &" ("&Brand&") 
for "&FormatCurrency (Recordset (5) ,3,0,-2,-2) &" per pound. Shipping from 
"&RecordSetTest2 (0) &" . Estimate value of 

,r & Format Currency (CStr (Recordset ( 5 ) *i* 190000) ,0,-2,-2,-2) 
END IF 

m=Recordset (5) 
RecordSetTest . Close { ) 
SET RecordSetTest=NOTHING 
RecordSetTest2 . Close ( ) 
SET RecordSetTest2=NOTHING 
RecordSetTest3 . Close ( ) 
SET RecordSetTest3=NOTHING 
Connection. Execute ("INSERT INTO MESSAGE 
(MESS_COMP,MESS_TO,MESS_FROM,MESS_TEXT,MESS_DATE,MESS_TYPE) 

VALUES (1, "&Session("Id") &",0, '#"&Num&" You sold"&StrTer&" 1 , GET DATE ( ) , '1' ) ; INSERT 
INTO MESSAGE (MESS_COMP, MESS_TO, MESS^FROM, MESSJTEXT, MESS_DATE, MESS_TYPE) 
VALUES ( "SRecordset (6) "&Recordset { 1 ) & ", 0, T #"&Recordset (0 ) &" You 
bought " & St rQuat & " • , GETDATE 0/1'); "&Str &Recordset ( 0 ) & " , " SRecordset ( 1 ) & " , " SRecord 
set (3) &", "&i&", ' "&Recordset (5) & " ' , "&Recordset (7) &" ' ) ") 

Quantity-Quantity-CDbl (i) 

Recordset . Movenext ( ) 

LOOP 

Connect ion. Execute ("UPDATE OFFER SET OFFR_QTY~"&Quantity& " WHERE 
OFFR_ID="&Num) 

IF Quantity-0 THEN 

Connection . Execute ( "DELETE FROM OFFER WHERE OFFR_ID="&Num) 

END IF 

Recordset . Close 

SET Recordset=NOTHING 

IF Request. Form ( "WorkingOrders ")<>"" AND Request . Form ( "Back" )«" " THEN 

SET RecordsetTest=Connection. Execute ("SELECT LOCL_CITY+', 
'+L0CL_STAT FROM LOCALITY WHERE L0CL_ID= (SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_ID="&Request.Form( "Place") &" ) ") 

SET Recordset-Connection. Execute ("SELECT CAST (OFFR_PRCE AS 
VARCHAR) ,OFFR_QTY,OFFR_SIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID-OFFR_CONT) FROM OFFER WHERE OFFR_ID="& Re quest . Form ( "WorkingOrders " ) ) 

Str="#"&Request. Form ("WorkingOrders") &" from SELLING "&Recordset ( 1) 

IF Recordset (2) -"False" THEN 
Str-Str+" Truckload" 

ELSE 

Str=Str+" Rail car" 

END IF 



IF CDbl (Recordset (1) )>1 THEN 

IF Request. Form ( "Size") -"0" THEN 

Str=Str& n s of "&Recordset (3) &" ("&Brand&") for 
"&FormatCurrency (Recordset (0) , 3, 0, -2, -2) &" per pound. Shipping from 
"&RecordSetTest (0) Estimate value 

" SFormat Currency ( CDbl (Recordset (0) ) * Recordset (1) *42000, 0, -2, -2, -2) 
ELSE 

Str=Str&"s of "&Recordset (3) &" ("&Brand&") for 
" & Format Currency (Recordset (0) , 3, 0, -2, -2) &" per pound. Shipping from 
"SRecordSetTest (0) &". Estimate value 

"ScFormatCurrency (CDbl (Recordset (0) ) *Recordset ( 1 ) * 190000, 0 , -2, -2,-2) 
END IF 

ELSE 

IF Request .Form ("Size") -"0" THEN 

Str=Str&" of "&Recordset (3) &" ("SBrandS") for 
"& Format Currency (Recordset (0) , 3, 0, -2, -2) &" per pound. Shipping from 
"&RecordSetTest (0) Estimate value 

"& Forma tCurrency (CDbl (Recordset ( 0) ) *Recordset (1) *42000, 0, -2,-2,-2) 
ELSE 

Str=Str&" of "&Recordset (3) &" ("&Brand&") for 
"&FormatCurrency (Recordset (0) , 3, 0, -2, -2) &" per pound. Shipping from 
"&RecordSetTest (0) Estimate value 

"ScFormatCurrency (CDbl (Recordset (0) ) * Recordset ( 1 ) *190000, 0,-2,-2,-2) 
END IF 

END IF 

Recordset . Close 

SET Recordset ^NOTHING 

Connection . Execute ( "INSERT INTO MESSAGE 
(MESS_COMP,MESS_T0 7 MESS_FROM,MESS_TEXT,MESS_DATE,MESS_TYPE) 

VALUES (1, "&Session { "Id") &", 0, 1 "&Str&" 1 , GETDATE ( ) , ' 2 1 ) /DELETE FROM OFFER WHERE 
OFFR_ID="&Request . Form{ "WorkingOrders") ) 
RecordSetTest . Close ( ) 
SET RecordSetTest=NOTHING 

END IF 

IF Quantity=0 THEN 

Connection. Execute ("DELETE FROM OFFER WHERE OFFR_ID="&Num) 
Application ( "Flag" ) =0 
Application . UnLock ( ) 

Response. Redirect { "Supplier Trading Floor . tpeO?IdPlace="&Locl) 
ELSEIF Request. Form ( "Best ")="Y" THEN 

IF Request. Form { "Quantity ")=Quantity THEN 

Connection. Execute ("DELETE FROM OFFER WHERE OFFR_ID="&Num) 

%> 

< ! — #INCLUDE FILE=" . . /include/body3 . inc"— > 

<table width=100% border=0 height=100% cellspacing=0 cellpadding=0> 
<tr><td align=centerxf orm> 

<font face^arial color=red size=4xb>There are no more contracts bid in the 
system please specify an offer price<br> 

<a href-"Supplier%20Trading%20Floor. tpe0?IdPlace=<%=locl%>"ximg 
src=. . /Images/buttons/white_trading__f loor . gif 
border=Ox/ax/formx/tdx/tr></tablex/bodyx/html> 
< ! ~#INCLUDE FILE-" . . /include/Bottom, inc"— ><% 
Response. End () 

ELSE 

Connection. Execute ("UPDATE OFFER SET OFFR_PRCE="&m&" WHERE 

OFFR ID="&Num) 



%> 



< ! — #INCLUDE FILE=" . . / include /body 3 . inc"— > 

<table width=100% border-0 height=100% cellspacing=0 cellpadding=0> 
<tr><td align=centerxf orm> 

<font face=arial color=red size=4xb>You place a offer for a quantity of 
contracts bigger than available at this price . <br>You got filled 
<%=Request. Form { "Quantity ")-Quantity%> contracts and you have a working order at 
<%=Quantity%> contracts . <br> 

<a href="Supplier%20Trading%20Floor. tpeO?IdPlace=<%=locl%>"ximg 
src=. . /Images/buttons/white_trading_f loor . gif 
border=Ox/ax/formx/tdx/trx/tablex/bodyx/html> 
< ! — #INCLUDE FILE=" . . /include/Bottom, inc"— x% 
Response . End ( ) 

END IF 

ELSE 

Response . Redirect ( "Supplier Trading Floor . tpeO ?IdPlace=" &Locl ) 

END IF 

IF Request .Form ("WorkingOrders") <>"" AND Request . Form ( "Back") THEN 
Response . Redirect ( "Supplier Trading Floor . tpeO?IdPlace="&Locl ) 

ELSEIF Request. Form { "TradingFloor ")<>"" AND Request . Form ( "Back" )=" " THEN 
Response. Redirect ( "Supplier Trading Floor . tpeO?IdPlace="&Locl ) 

END IF 

Application ( "Flag" ) =0 
Application . UnLock ( ) 

END IF 
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SET RecordsetBis-Connection , Execute ( "SELECT PLAC_ID, (SELECT LOCL_CITY+ ' , 
f +LOCL_STAT FROM LOCALITY WHERE LOCL_ID=PLAC_LOCL) AS EXPR, PLAC_LOCL FROM PLACE 
ORDER BY EXPR") 

SET Recordset=Connection. Execute ("SELECT CONT_ID, CONT_LABL FROM CONTRACT WHERE 
POWER (2, CONT_ID-l) & { SELECT PERS_PREF FROM PERSON WHERE 
PERS_ID="&Session("Id") &")<>0 ORDER BY CONT_ORDR") 
IF Request .Form ( "IdOrder ")<>"" THEN 

SET RecordsetTer=Connect ion . Execute ( "SELECT 
0FFR_ID,0FFR_QTY,0FFR_JSIZE, (SELECT CONT_LABL FROM CONTRACT WHERE 
CONT_ID=OFFR_CONT) , CAST (OFFR_PRCE AS 

VARCHAR) , OFFR_CONT, OFFR_BRAN, OFFR_FROM, OFFR_FROM_LOCL FROM OFFER WHERE 
OFFR_ID="&Request . Form ( "IdOrder" ) ) 
END IF 

IF Request. Form ( "TradingFloor ")="YES" AND Request . Form ( "Back" )=" " AND 
Request . Form ( "Submit " ) <>" " THEN 

Response. Redirect ("Supplier Trading Floor . tpeO?IdPlace="&Locl) 
ELSEIF Request. Form ("WorkingOrders ")<>"" AND Request . Form ( "Back" ) ="" AND 
Request . Form ( "Submit " ) <>" " THEN 

Response. Redirect ( "Supplier Trading Floor . tpeO?IdPlace="&Locl) 
END IF%> 

<t 



<%Height-260%> 

< ! — IINCLUDE FILE-" . . /include/body3 . inc"— > 
<!— <body> — > 

< ! — # INCLUDE FILE=" . . /include/Loading. inc"— > 
<!--# INCLUDE FILE=" . . /include/PopUp . inc"— > 



<SPAN ID=Main name=Main style* 1 position : absolute; x:0px; y:0px; T > 

<! — <SPAN ID^Main name=Main style- f position: absolute; x:0px; y:0px; visibility: 

hidden' > — > 

<script> 

<%IF NOT MSIE THEN%> 
function noclick(scx) 

{ /*if (sex. which != 1) return false 

else if (sex. target . name^ 1 Size 1 ) 
Upd(l)*/ 

} 

<%END IF%> 

function Trim (Para, Flag) 

{ Arr=new Array ( l 0 , , , 0 ! , 1 0') 

for (i-0 ; i<Para . value . length; i++) 

if ( Para . value . charAt ( i ) < 1 0 1 i i Para . value . charAt ( i ) > • 9 f ) 
break 

else 

Arr [ i ] =Para . value . charAt ( i ) 
Val-(i==Para. value. length) ? ( (Arr [0] • 0 ! ) ? ( (Arr [ 1 ] ==- 1 0 1 ) ?parselnt (Arr [2] ) 
parselnt (Arr[l]+Arr [2] ) ) rparselnt (Arr [0] +Arr [1] +Arr [2] ) ) :0 
if (Flag==l) 

{if(Val<999) Val+=1} 
else if(Val>0) 
Val— 1 

Para . value= ( "000"+Val ) . substr ( ( "000"+Val) . length-3, 3 ) 

} 

function Check () 

{ with(<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"window . document . Main . " % >document . Form) 

{ Qty=Quantity . options [Quantity . options . selectedlndex] . text 

if (Price. value==0) return Path . Mess (window, ' Please enter a 

selling price. 1 , '0' ) 

if {Qty== n 0") return Path . Mess (window, f Please enter the 

number of contracts you wish to sell. '0 T ) 

if (Price. value=="") return Path . Mess (window, ' Please enter a 
valid price. 1 , 1 0 1 ) 

for { j =0 ; j <Price . value . length; j ++) 

if (Price. value. charAt (j ) <"0" i I Price . value . charAt (j ) >"9" ) 
return Path. Mess (window, 1 Please, enter a valid 

price. ' , 1 0 1 ) 

Val=eval ( "parseFloat ( Price . value) / (Math.pow(10, Price . value . length- 

3) )*Qty") 

Prce=new 

String{Math.round(Size[0] . checked?eval ( "42*100*Val ,f ) :eval ( "190*100*Val") ) /100) 
Valid. value^Prce 
t=0 

for ( t-0 ; t<Prce . length; t++ ) 

if (Prce. charAt (t) = f . 1 ) 
break; 
t=Prce . length- t 

for ( i=3+t ; Prce . length-i>0 ; i+=4 ) 

Prce=Prce . substring ( 0 , Prce . length- 
i) "+Prce.substring(Prce.length-i, Prce. length) 

Str=new Array ('Your are going to place an order to sell 1 , 1 
1 +Qty+ (Size [0] .checked?* Truckload 1 : 1 Rail Car T )+ (eval ( "Qty>l" )? T s 1 : 1 '), 1 of 
1 , Contract .options [Contract . options . selectedlndex] .text, T for 1 , T $ 



. 1 -i-Price . value, ' per pound. \n\n 1 , 1 Picked up at 

1 , Place. options [Place. options. selectedlndex] .text, ' . \n\n' , 'Estimate value 
$',Prce) 

Mess. value=Str. join ( 1 1 ) . substring (33, Str. join ( 1 1 ) .length) 
Strl='<font color=red> T 

Path. Mess (window, Str [0] +' : <br> T rStrl+Str [ 1] + • </font> 1 +Str [2] +Strl+Str [3 ] + 1 
</fontxbr>'+Str [4]+Strl+Str [5] + ' </font>' +Str [6] + ' <br> 1 +Str [7] +Strl+Str [8] + '</fo 
nt>'+Str [9]+'<br> ! +Str [10] +Strl+Str [11] + ' </f ont> ' , ■ 1' ) 

} 

} 

function Answer (Flag) 

{ with(<%IF NOT MS1E AND NOT NN6 THEN Response . write 

"window . document . Main . " % >document . Form) 
if (Flag) 

{ Submit . value=' Submit 1 

submit { ) 

} 

else 

Valid. valuer' 1 

} 

function Upd(Flag) 

{ with(<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"window. document .Main. "%>document . Form) 

Price. value= (Size [0] .checked) ? ( (Flag— 1) ?Ask:Bid) : ( ( Flag==l ) ?Bid: Ask) 
} 

<%IF NOT MSIE AND NOT NN6 THEN%> 

window. captureEvents (Event . MOUSEDOWN | Event . CLICK) 
window. onmousedown^noclick 
function noclick(scx) 

{ //change the price when change the transport type 

/*if (sex. which 1= 1) return false 
else if (sex. target . name== r Size T ) 

Upd(l)*/ 
if {sex. which != 1) return false 

} 

<%END IF%> 
Temp=new Image ( ) 

Temp . src= 1 /images /buttons/bwOKo . gif T 
Templ^new Image ( ) 

Tempi . src= T /images/buttons/bwSpecif icationso . gif 
</script> 

<form method=post name=Form> 
<input type=hidden name=Valid valuer 1 f > 
<input type=hidden name=Mess value= ,, > 
<input type=hidden name=Submit value= TI > 

<input type=hidden name=IdOrder value=' <%=Request . Form ( "IdOrder " ) %> T > 
<table cellspacing=0 cellpadding^O border=Oxtr><td><img src=/images/lxl . gif 
height=6x/tdx/trxtrxtd> 

<table cellspacing=0 cellpadding=0 border=0xtrxtd align=rightx%IF NN6 
THEN%xdiv align=rightx%END IF%xtable cellspacing=0 cellpadding=0 border=0> 
<trxtdximg src=/Images/lxl . gif height=68 border=0 width=l 
align«absmiddlex/td> 

<%IF Request .Form ("Contract" )<>"" THEN 
i^Request . Form ( "Contract " ) 

ELSE 

IF Request. Form ("IdOrder ")<>"" THEN 



i=RecordsetTer ( 5 ) 

ELSE 

i=Recordset (0) 

END IF 

END IF 

IF Request .Form ("IdPlace") <>"" THEN 

j=Request . Form ( "Place" ) 
ELSEIF Request. Form ("IdPlace" )="" AND Request . Form ( "Place" ) <>"" THEN 

SET RecordsetQuatro=Connection. Execute ("SELECT PLAC_LOCL FROM PLACE WHERE 
PLAC_I D«" SRequest . Form ( " Place " ) ) 

j ^Recordset Quatro ( 0 ) 

RecordsetQuatro. Close { ) 

SET RecordsetQuatro-NOTHING 
ELSEIF Request. Form ("IdOrder ")<>"" THEN 

j=RecordsetTer (8 ) 

ELSE 

j=RecordsetBis (2) 
END IF%> 

<!-- Truckload — > 

<td background=/Images /Panel /bgTL. gif valign=bottom><img src=/Images/lxl . gif 
width=<%IF NOT MSIE THEN%>150<%ELSE%>168<%END IF%> height=l> 
<%SET RecO=Connection. Execute ("Exec spSSOjDffrT 1 T ' , "&i&", "&j ) 
IF RecO.Eof THEN 

Str="Exec spSSOl @Flag=0, @i="&i& " , @ j = j 

arBA(l)="-" 

arBA<0)="-" 

l-"0" 

ELSE 

Str="Exec spSSOl @Flag=l, @i="&i&", @ j="&j &", @BidLocl="&RecO ( "BID TO LOCL") 
k-0 ~ ~ 

n=RecO ("EXPR") 

arBA ( 1 ) =FormatNumber ( RecO ( "EXPR" ) , 3 , 0 , -2 , -2 ) 
DO UNTIL RecO.Eof 

IF CDbl (RecO (1) ) OCDbl (n) THEN EXIT DO 

k=k+CInt (RecO ("BID_QTY") ) 

RecO.MoveNext () 

LOOP 

l=FormatNumber (n, 3,0,-2,-2) 
arBA(0)=k 

END IF 

RecO. Close 

SET Rec0=NOTHING 

SET RecO=Connection. Execute (Str) 

IF RecO.Eof THEN 

arBA (3)="-" 

arBA (2)-"-" 

ELSE 

k=0 

n-RecO (0) 

arBA ( 2 ) =FormatNumber ( RecO { "EXPR" ) , 3, 0 , -2 , -2 ) 
arBA(4)=CByte(CInt(RecO(2) ) =CInt (Session { "Comp" ))) /255 
DO UNTIL RecO.Eof 

IF CDbl (RecO (0) ) OCDbl (n) THEN EXIT DO 

k=k+CInt (RecO ("OFFR_QTY") ) 

RecO.MoveNext () 

LOOP 

arBA(3)=k 



END IF 

RecO. Close 

SET RecO-NOTHING 

SUB Display%> 

<table border^O cellspacing=0 cellpadding=0xtr> 
<%FOR ind=0 TO 3 

Response. Write "<tdxdiv align=center class=Sl> M 

IF (ind=2 AND arBA(4)=l) THEN 

Response. Write "<font color=#FF0000>"&arBA(ind) &"</f ont>" 

ELSE 

Response. Write arBA(ind) 

END IF 

Response. Write "</divx/td>" 
NEXT%x/trxtr> 
<%FOR ind-0 TO 3 

Response. Write "<tdximg src=/Images/lxl . gif width=42 height=l 
border=Ox/td>" 
NEXT%x/trx/table> 
<%END SUB 
Display%> 
</td> 

<! — Railcar — > 

<td background=/Images/Panel/bgRC.gif valign=bottomXimg src=/Images/lxl . gif 
width=<%IF NOT MSIE THEN%>165<%ELSE%>173<%END IF%> height=l> 
<%SET RecO=Connection. Execute ("Exec spSSO_OffrT 1 R 1 , "&i&", "& j ) 
IF RecO.Eof THEN 

Str-"Exec spSSo2 @Flag=0, @i="&i&", @ j = "& j 

arBA(O) ="-" 

arBA(l)-"-" 

m="0" 

ELSE 

Str="Exec spSS02 @Flag=l f @i="&i&", @ j & " , @BidLocl="&RecO ( "BID_TO_LOCL" ) 
k=0 

n=RecO {"EXPR") 

'Response. write "&RCB="& Format Number (RecO { "EXPR") ,3,0,-2,-2) &"&RCQ1=" 
DO UNTIL RecO.Eof 

IF CDbl(RecOd) )<>CDbl(n) THEN EXIT DO 

k=k+CInt (RecO ("BID^QTY") ) 

RecO . MoveNext ( ) 

LOOP 

m= Format Number (n, 3, 0, -2,-2) 

arBA(l) =m 

arBA(0)=k 

END IF 

RecO. Close 

SET Rec0=NOTHING 

SET RecO=Connection. Execute (Str) 

IF RecO.Eof THEN 

arBA(2)="-" 

arBA(3)="-" 

ELSE 

k=0 

n=RecO(0) 

arBA(4)=CByte(CInt(RecO(2) ) =CInt (Session ( "Comp" ) ) ) /255 

IF RecO ("EXPR") <>"" THEN arBA (2 ) =FormatNumber (RecO ( "EXPR" ) , 3, 0, -2, -2) ELSE 
arBA(2)="-" END IF 

DO UNTIL RecO.Eof 



IF CDbl(RecOd) ) OCDbl (n) THEN EXIT DO 
k=k+CInt (RecO ("OFFR_QTY") ) 
RecO . MoveNext ( ) 

LOOP 

arBA(3)=k 

END IF 

RecO. Close 

SET RecO=NOTHING 

Display 

%> 

<%IF NN6 THEN%X/div><%END IF%> 

<%IF MSIE OR NN6 THEN%> 

</tdx/trx/table> 

<%ELSE%> 

</td> 

<td bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif width=2 
he i gh t=2 x / 1 d>< / 1 r > 

<trxtd colspan=3 bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif 

width=2 height=2x/tdx/trx/table> 

<%END IF%> 

</tdX/tr> 

<trxtd colspan=2> 

<% 'border begin 

IF MSIE OR NN6 THEN%> 

<table border=l cellspacing=0 cellpadding=0 bordercolor=#212121xtr><td> 
<%ELSE%> 

<table border=0 cellspacing=0 cellpadding=0> 

<trxtd colspan=3 bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif 
width=2 height=2x/tdx/tr> 

<trxtd bgcolor==#212121 width=2 height=2ximg src=/images/lxl . gif width=2 

height=2x/tdxtd> 

<%END IF%> 

<table border=0 cellspacing=0 cellpadding=0> 
<tr valign=middle bgcolor=#cccccc height=20> 

<td CLASS=Sl>    Quantity</tdxtd bgcolor=#212121 rowspan=4ximg 
src=/images/lxl.gif width=2 height=2x/tdxtd width=337 
CLASS=Sl>  Contract</tdx/tr> 
<trxtd align=leftxtablextr> 

<td><script>Path.SO(0,20, '<%IF Request . Form ( "IdOrder" ) <> ,r " 
THEN%x%=RecordsetTer ( 1 ) %x%ELSEIx%=Request . Form ( "Quantity" ) %><IEND 
IF%> T , document, 'Quantity* ) </scriptx/td> 

<tdxinput type=radio name=Size value=0<%IF MSIE THEN Response .Write rf 
style= T border : 0 f "%><% 

IF Request. Form ("IdOrder ")<>"" AND Request . Form ( "Price" )=" " THEN 

IF RecordsetTer (2) ="False" THEN%> checked<%END IF 
ELSEIF Request .Form< "Size") <>"1" THEN%> checked<%END IF%> 

<%IF MSIE THEN Response . write " onClick=Upd ( ) "%»Truckloads*<f ont size=l> 
(42.000 lbs) </fontxbr> 

<input type=radio name=Size value=l <%IF MSIE THEN Response .Write 
"style=border: 0"%><% 

IF Request . Form ( "IdOrder" )<>" " AND Request . Form ( "Price" )=" " THEN 

IF RecordsetTer (2) ="True" THEN% >checked<%END IF 
ELSEIF Request. Form ( "Size") -"1" THEN%>checked<%END IF%> 

<%IF MSIE THEN Response . write " onClick-Upd { ) "%»Rail Cars*<font size=l> 
(190.000 lbs)</tdx/trx/tablex/td> 

<td align=lef t> <select name=Contract onChange=submit ( ) > 
<script> 



Bid='<%=Right ("000"+CStr (1*1000) , 3) %>' 
Ask='<%=Right ("000"+CStr (m*1000) , 3) %>' 
<% 

StrBis=" " 
StrTer=" " 

DO UNTIL Recordset .Eof 

StrBis=StrBis&" 1 "SRecordset { "CONT_ID" ) &" f , " 
StrTer=StrTer&" r "&Recordset ( "CONT_LABL" ) & " 1 , " 
Recordset . MoveNext ( ) 

LOOP 

StrBis=Left (StrBis, Len (StrBis ) -1 ) &" ) , new Array ("SLeft {StrTer, Len (StrTer ) -1) 

Recordset . Close 

SET Recordset =NOTHING 

%> 

Path. SO (new Array (<%=StrBis%>) , ' <%=i%>' , document) 
</script> 

<br> <select name=Brand onChange-submit ( ) > 
<script> 

<%SET Recordset=Connect ion. Execute ("SELECT BRAN_I D , BRAN_NAME FROM BRAND WHERE 
BRAN_CONT=" &i ) 

IF Request. Form { "Brand" )<>"" THEN 
k=Request . Form ( "Brand" ) 

ELSE 

IF Request. Form ("IdOrder ")<>"" THEN 
k=RecordsetTer (6) 

ELSE 

k- "NULL" 

END IF 

END IF 

/ /Str="L ( T <br> ' , ' Brand ' , new Array ( 1 NULL ' , " 
StrBis-" " 
StrTer-" " 

DO UNTIL Recordset. Eof 

StrBis=StrBis&" T "SRecordset (0) &"' , " 
StrTer=StrTer&" T "SRecordset (1) &"' , " 
Recordset .MoveNext { ) 

LOOP 

//Response. Write ( Str&Left (StrBis, Len (StrBis ) -!)&"), new 
Array ("&Left (StrTer, Len (StrTer ) -1) &") , 1 "&i&" M) ; ") 

//StrBis=Left (StrBis, Len (StrBis) -!)&") , new Array ( "&Left (StrTer , Len (StrTer ) -1 ) 

//Response. Write (Str&Left ( StrBis , Len (StrBis ) -1 ) &") , new 

Array ( 'Generic* , "&Left (StrTer, Len (StrTer ) -1) &") , ' "Sck^" 1 , 0) ; ") 

StrBis=Left (StrBis, Len (StrBis ) -1 ) &" ) , new 

Array { 'Generic' , "&Left (StrTer, Len (StrTer ) -1 ) 

Recordset . Close 

SET Recordset=NOTHING%> 

Path. SO (new Array (<%=StrBis%>) , 1 <%=k%>' , document ) 

</scriptx/selectx%IF Request . Form ( "IdOrder" )<>" " THEN%xinput type=hidden 

name=WorkingOrders value= T <%=Request . Form ( "IdOrder" ) %> ' ><%END IF 

IF Request. Form ("WorkingOrders ")<>"" THEN%xinput type=hidden name=WorkingOrde 

value= ' <%=Request . Form ( "WorkingOrders " ) %> 1 ><%END IF 

%x/tdx/tr> 

<tr bgcolor=#cccccc height=20 valign=middle> 
<td CLASS=Sl>   Shipping Point</td> 

<td CLASS=Sl>   Selling Price FOB Shipping Point</tdx/tr> 
<trxtd> <select name=Place onchange^ 1 submit ()' > 
<%DO UNTIL RecordsetBis.Eof 



IF CInt (j)=CInt (RecordsetBis (2) ) THEN 

Response. Write ("<option value= T "^RecordsetBis (0) &" f 
selected>"&RecordsetBis (1) ) 
ELSE 

Response . Write ( "<option 
value= T "&RecordsetBis (0) &" 1 >"&RecordsetBis (1) ) 
END IF 

RecordsetBis .MoveNext ( ) 

LOOP%> 
</select> 

<%RecordsetBis .Close 

SET RecordsetBis=NOTHING%> 

     <a 

href = Javascript : Path. Show (window, " . . /Common/MB%20Demo%20Specs%20Location . tpeO " , < 
%IF NOT MSIE AND NOT NN6 THEN Response . write 

"window. document. Main. "%>document. Form. Place. options[<%IF NOT MSIE AND NOT NN6 
THEN Response. write 

"window. document .Main. "%>document . Form. Place . selectedlndex] .value. split ( 1 , 1 ) [0] ) 

OnMouseOut=Javascript : document . images [ 1 bt_spec ' ] . src=' /images/buttons/bwSpecif ic 

ations . gif T OnMouseOver-Javascript : document . images [ f bt_spec ? ] . src=Templ . srcximg 

src=. . /Images/Buttons/bwSpecif ications • gif name=bt_spec border=0x/ax/tdx/td> 

<td valign=top align=left>  $<b>. </bxinput type^text name=Price maxlength=3 

size^3 value='<%IF Request. Form ("IdOrder") <>"" AND Request . Form ( "Price" ) 

THEN%x%=Right ( Format Number (RecordsetTer (4) , 3,0,-2,-2) ,3) %x% 

ELSE%x% T =Request. Form { "Price") %><I-Right (FormatNumber (1, 3, 0, -2 , -2 ) , 3) %><% 

END IF%> f ximg src=. . /Images/buttons/white_updn. gif usemap=#Map border=0 

align=absmiddleXmap name=Map><area shape=rect coords==0, 0, 20, 9 

href=Javascript:<%IF NOT MSIE AND NOT NN6 THEN Response .write 

"document. Main. "%>Trim(<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"document .Main. "%>document . Form. Price, 1) xarea shape=rect coords=0, 10, 20, 20 

href=Javascript :<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"document .Main. "%>Trim (<%IF NOT MSIE AND NOT NN6 THEN Response . write 

"document .Main. "%>document. Form. Price, 0) x/map> per lb.<img src=/Images/lxl . gif 

width=160 height=l> 

<a href=Javascript :<%IF NOT MSIE AND NOT NN6 THEN Response . write 
"document . Main . " %>Check ( ) 

OnMouseOut= Javascript: document .images [ f bt_ok' ] .src=' /images/buttons/bwOK. gif 1 

OnMouseOver^Javascript : document . images [ T bt_ok 1 ] . src=Temp . srcximg 

src=. . /Images/Buttons/bwOK.gif name= T bt_ok T border=0 align=baselinex/aximg 

src=/Images/lxl.gif width-<%IF NOT MSIE AND NOT NN6 THEN%>25<IELSE%>10<%END IF%> 

height=30 align=absmiddle border=0> 

</tdx/trx/table> 

<% 1 border end 

IF MSIE OR NN6 THEN%> 

</tdx/trX/table> 

<%ELSE%> 

</td> 

<td bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif width=2 
height=2></tdx/tr> 

<trxtd colspan=3 bgcolor=#212121 width=2 height=2ximg src=/images/lxl . gif 

width=2 height=2x/tdx/trx/table> 

<%END IF%> 

</tdx/trx/table> 

</tdx/trx/table> 

<br><br><div align="center" class=S2>*Quantities are estimated. Actual values 
will be calculated at completion of order. </div> 



</f orm> 

<%Connect ion . Close 

SET Connection=NOTHING%> 

</SPAN> 

</body></html> 
<script> 

window. top. up Frame. sel (2) ; 

<%IF Request. Form ( "IdOrder" ) ="" AND Request . Form ( "Price" )=" " THEN 

IF NOT MSIE AND NOT NN6 THEN Response . write "window. document .Main. 
%>Upd() ; 

<%END IF%>Path. Start (window) </script> 
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Incorporation of The Plastics Exchange Policies ("TPE Policies") 
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T||e to the Exchange via the Internet or otherwise to engage in the tr 

generic ^SjSr^ market in the fbrni of standardiz 
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Appendix III 




JJL1 FedNet, Inc., founded in 1998, is a private alternative dispute resolution organization 
comprised exclusively of former federal judges. Its offices are located at The Commons, 
P.O. Box 470338, Building Two, 8223 Brecksville Road, Cleveland, Ohio 44141-0338. 



Rules of the Exchange 




J 



Electronic Orders and Information 




I immediately notify TPE if there is unaiithorized-use^o^s^jj^^ 

password security data -'/-^^J:^*:^- • ■ : ; >;>"t^^!?^ 
• If a participant fails to notify TPE in wrjtir^g when anyof ihe abpyexo^ 




saw 



fhe;;h|iMi^ 
|e|£ive|j^^ 

|,^llpnfe ! entered on^Thelpffi te;g<^^ 



Trade Matching 




Pl|ticiparrt ? ;s defat^ 

i^iitio^ 




||flc#a^ 
peri&^ 



Transportation 



Right of Rejection 



|^§et:^ 



|f the Product meets s%h sp|c must bear the cost of such ind€^Me^f|(^ 



SUCri: ; il^S;% 



!ipdq)e^^ a shipping; Furtter, the Seller mu$tja^ 



l|$sller^ 

effi^. |^ fbr;|l|¥%te<i costs; 



Failure to Deliver 




Dispute Resolution 
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|||^ 
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Business Conduct 





Me:^xcl|ahg|-^ 

^fe^aj^onidition 6f^|mon&^ or willmoCi^M 
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e|{^^ 



:*aM market is prohibited. " - •/•"< , ' , . \ \ 

;^^ilt shaH ■ t^I'sra OffenS^tQ;Moiate any TPE Policy regulating the conduct or busines||>^|| 
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Disclaimer/Limitation of Liability 
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Ilp^fiERsSi^^ 
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§ffrllNE|)> ; F^^ 




SCTHE TPB PAkTIBS BE LIABtE 1FQR DIRECT, INDIRECT, INCIDH^TAL 5 Oltft| 
I&NSEQVEI^ ANY DEFECTiN^FCHi^ 

EEEG^Q (INCLDDIH© BlfflM 

] .. ; 



Insolvency and Bankruptcy 





[1] FedNet, Inc., founded in 1998, is a private alternative dispute resolution organization 
comprised exclusively of former federal judges. Its offices are located at The Commons, 
P.O. Box 470338, Building Two, 8223 Brecksville Road, Cleveland, Ohio 44141-0338. 




Electronic Orders and Information 




ff:iJ4#a^ic^^t|^s to|*qti^ co^itioosl^ttf^ 
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third p^ wUtKa^;&^ 
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by Pa^icipant ^ur&||^® 




Trade Matching 



transaction^ 
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either via nhone^^ 
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Transportation 
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Right of Rejection 



f§PaB^ 




If ^he Product meets such specifications. Buyer must bear the cost of such independeM 

lan^ysis'^^/must ^ accept deiiyery.;:; / " ; . t >; ^. • ; * 



|f[|^ Seller must bear the cost of suc%g||||| 

mfle^i^ni pialy$is ^d^ cost ;pf ^return ship^ing..purther ? the Seller -must^c^e^tl^!^ 
retiirned Product ar^shipWBu^ meets the standardized coritiia^ 

If SellerisliiMletoprw TPE - will -purchase- a^ubstitutS ,Prbdu<^at||M 



^irreht mark^ pnc^ a 

lifferer#in^ v": ; «^^^^sjH^ %£jf 



Failure to Deliver 
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Dispute Resolution 
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Business Conduct 
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Mowledgesfellb as^|ifi^^^ scli^e^ 

§u|fr^^^ ;^eemed,guilp 




Disclaimer/Limitation of Liability 



o^cunfenee^ 

transport date or communications, although TPE will take reasonable security X ; 

precautions, TPE expressly disclaims any liability for interception of any such data or 
ioniniunieations, and TPE shall h6t Be responsible: for and TPE makes no wa^nties* # i 
pgardmg; the access*, speed. pr ; w^ and|; ;i« 

storage of any information, including without limitation, transaction activity, and any 
other information or orders available through a Participant's right of access to The 
Exchange ("Electronic Access'') aSid -all orders placed through the Electronic kcqesC'is'at 
il^rjiij^ 

Iffi&iEilsE'ii^ 

ttMEilf^^ 
jip1S>$^^ 

i|ip|itTip ! MA 
pBT&i^rjrlli^^ 
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£0]&QtjkNT IAL ! D^MXGESrRESULTING FROM ANY DEFECT IN, e$#sfcf 

— — ---^ • -'^W 
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<li><A HREF=#V> Force Ma jeure</AXbr> 

<br> 

<SPAN> 

("Participant") by completing this Application 

and Agreement ( "Agreement "} , applies to ThePlasticsExchange.com, LLC ("TPE") for 

the right of access to the electronic trading system operated by TPE ("The 

Exchange") . Participant understands and agrees that this Agreement is made 

pursuant to and subject to the TPE Policies set forth in Appendix I as amended 

from time to time. 

</SPAN> 

<brxbr> 

<a name=AXSPAN CLASS=S6>Incorporation of The Plastics Exchange Policies ("TPE 

Policies" ) </SPANX/a><br> 

<SPAN> 

This Agreement incorporates the TPE Policies as amended from time to time and 

makes the TPE Policies part of this Agreement in their entirety. In the event 

of a conflict between the terms and conditions of this Agreement and any other 

terms and conditions set forth in the TPE Policies, the terms and conditions of 

the TPE Policies shall apply. 

</SPAN> 

<brxbr> 

<a name=B><SPAN CLASS=S6>System Operations</SPANX/aXbr> 

<SPAN> 

<ol> 

<li>Services Provided by TPE. TPE will provide Participant with access to The 
Exchange via the Internet or otherwise to engage in the trading of certain 



generic and branded plastic resin product ("Products") in the cash market in the 
form of standardized contracts {"Contracts"). TPE may add new contacts or 
delete existing contracts at any time. The Exchange will allow Participant to 
enter, modify or cancel orders to sell Contracts, to obtain information from The 
Exchange and to communicate with The Exchange via the Internet. The Exchange 
will provide a trade matching function to match Participant's orders with any 
eligible purchase orders existing in The Exchange. The Exchange will 
communicate all successfully matched orders to Participant. TPE will also 
provide account management services, including freight, logistics and a credit 
function for facilitation of payment for transactions. 

<li>Designated Representatives. Each Participant may designate certain of its 
employees as representatives to be authorized to access The Exchange 
("Designated Representatives"). These Designated Representatives will also be 
able to enter, modify or cancel orders and transmit instructions to TPE. 
<li>Password and User ID. Participant will select an individual User ID and 
Password, subject to TPE's approval, with which to access the system. 
Participant will also select an individual Password, subject to TPE's approval, 
for each Designated Representative of a Participant. 

<li>Electronic Equipment. Participant acknowledges that it is responsible for 

providing all computer equipment, technology and communication lines to access 

The Exchange and is responsible for paying all related costs, charges and fees. 

</ol> 

</SPAN> 

<br> 

<a name=C><SPAN CLASS=S6>Representations, Warranties and Covenants of the 

Participant</SPANx/a><br> 

<SPAN> 

<ol> 

<li>Basic Representations and Warranties. Participant represents and warrants 
that as of the date of this Agreement (a) it is duly organized, validly existing 
and in good standing under the jurisdiction of its organization, with full power 
and authority to enter into and perform its obligations under this Agreement; 
(b) it, through an authorized officer, has validly executed this Agreement; (c) 
this Agreement constitutes its legal, valid and binding obligation, enforceable 
against it in accordance with its terms, except as the enforcement may be 
limited by applicable bankruptcy, reorganization, insolvency or similar laws 
affecting the enforcement of creditors 1 rights generally; and (d) its entry into 
this Agreement and the performance of its obligations hereunder will not 
violate, conflict with, or cause a default under any of its organizational 
documents, any material contractual covenant or restriction by which it is 
bound, or any applicable law, regulation, rule, ordinance, order, judgment, or 
decree. 

<li>Participant 1 s Transactions. Participant warrants that: (a) every sale by 
it of a Product will be for its own account or, if it is authorized and/or 
licensed to do so legally, for another entity; (b) it is capable, at the time 
Participant submits an order to The Exchange, of making delivery of all sales 
via truck load and rail car made by it pursuant to this Agreement and the TPE 
Policies; (c) all orders entered on the system shall be in U.S. dollars and 
priced on a per pound basis; (d) it is a producer, authorized distributor, 
compounder, broker, or reseller of plastic resin products; (e) all products it 
offers and ships are FDA certified and conform to the standardized contract 
specifications set forth in Appendix II; (f) all product shipped will be 
CERTIFIED PRIME, the seller must only ship the brand offered for sale; (g) and 
it is not an individual speculator, commodity pool, passive collective 
investment vehicle or other non-commercial entity; (h) it will not use its 
access to engage in trading futures contracts that are subject to regulation by 



the Commodity Futures Trading Commission under the Commodity Exchange Act, as 
amended, or for speculative purposes; (i) it is in good financial standing such 
that it is now and will remain fully able to satisfy its financial obligations 
in every transaction in which it engages; and (j) except as may be excused due 
to an uncontrollable force or for a bona fide commercial reason, each sale it 
makes through TPE shall be for actual delivery. 

Each Contract includes the provision and cost of delivery. Delivery shall be 
provided by TPE through its Transportation Partner (s) . Because transportation is 
an integral part of each contract, Participant must provide delivery 
instructions to TPE upon approval as a Participant. Neither the Transportation 
Partner nor TPE shall be liable for any consequential damages that occur in 
transit . <br><br> 

In addition, for those Contracts with delivery by truck, Participant warrants 
that: (a) all truckloads will be packages in gaylords standard to the industry; 

(b) the net weight of each shipment will be clearly displayed on each gaylord; 

(c) the gaylord weights in each truckload will be consistent to one another; (d) 
the gross weight net tere will be added to the bill of lading; and (e) each 
shipment shall be of a net weight of approximately 42,000 lbs,. Truckloads must 
be prepared to be picked up by TPE ! s transportation partner (s) from the 
location's dock as designated on the offer placed and shall be shipped within 3 
business days of receipt of notice of a matched trade . <brxbr> 

For those Contracts delivered by rail car, Participant warrants that all 
shipments shall be of a net weight of approximately 190,000 lbs., Further; 
Participant warrants that all deliveries by rail car will be shipped in rail 
cars that bear no identifying markings of Participant. Railcars must be 
prepared to be picked up by TPE's transportation partner (s) from the location's 
shipyard as designated on the offer placed and shall be shipped within 10 
business days of receipt of notice of a matched trade. <br><br> 

<li>Perf ormance by Participant. Participant covenants to abide by, and perform 
all of its obligations required under the TPE Policies and this Agreement 
including, without limitation, all matters relating to the trading of Contracts, 
and all ongoing obligations with respect to offers, settlement, delivery, 
security requirements, billing and payments, confidentiality and dispute 
resolution. 

<li>Financial Standing. Participant represents that it is in good financial 
condition. Participant further represents that it will provide TPE with 
sufficient information to allow TPE to verify such condition. If TPE is not 
satisfied with Participant's financial condition, Participant will be given the 
opportunity to provide additional security to TPE in such form as TPE may, in 
its sole discretion, desire, including security in the form of a performance 
bond or an irrevocable letter of credit for the benefit of TPE. TPE reserves 
the right to refuse access rights to any person, in its sole discretion, based 
on its financial condition or otherwise. TPE reserves the right to limit the 
number of orders and total value of the orders placed by Participant on the 
Exchange. 

<li>Fees. Participant agrees to remit to TPE a percentage of the value of each 
Contract for the sale of a Product upon confirmation of the trade by both 
parties. This percentage shall be 2% for Contracts with delivery by rail and 3% 
for Contracts with delivery by truck. Such fee shall be deducted from gross 
proceeds due to Seller. 

<li>Payment. Participant agrees to the payment terms set forth in Appendix III. 

<li>Certificate of Analysis. Seller may be required to provide TPE with a 

Certificate of Analysis upon shipment of the Product. 

</ol> 

</SPAN> 

<br> 



<a name=DxSPAN CLASS=S6>0perational Procedures</SPANx/axbr> 

<SPAN> 

<ol> 

<li>Reliance Upon Instructions. Participant acknowledges and consents to TPE's 
acceptance, execution and/or reliance upon any order or instruction from 
Participant or any of its Designated Representatives that is entered into The 
Exchange under the Participant's User IDs and Password. TPE shall have no 
responsibility or liability for any errors which may occur in the course of any 
electronic transmission to The Exchange. Participant shall indemnify, defend 
and hold TPE harmless for information entered into The Exchange using the User 
ID and Password selected by the Participant and/or its Designated Representative 
or actions taken upon the instruction of Participant or its Designated 
Representatives . 

<li>Recordings . Participant expressly grants to TPE the right to tape, record 
or otherwise monitor, store, review and use all communications, electronic or 
otherwise, between the Participant and TPE, its agents and successors, without 
limitation. 

<li>Market Integrity. Participant irrevocably and without reservation consents 
to the use by TPE of all information (including Participant's identity) 
regarding bids, offers, matches, its credit information, and all information 
relating to any of the foregoing in connection with the monitoring and 
maintaining the integrity of The Exchange. Participant also irrevocably and 
without reservation consents to the use by TPE of all such information received 
from Participant, except Participant's identity, for all other uses. 
<li>Power of Attorney. Participant hereby irrevocably constitutes and appoints 
TPE and any of its officers or agents, with full power of substitution, as its 
attorney-in-fact with full power and authority in the name of Participant for 
the purpose of (a) correcting errors and mitigating potential losses arising 
from errors and claimed errors and (b) upon the occurrence and during the 
continuance of a default by Participant in meeting its obligations under this 
Agreement (including, without limitation, the obligation to provide and maintain 
security in accordance with the terms of this Agreement), canceling orders, 
liquidating positions and making trades for the purpose of reducing the credit 
exposure or fulfilling the obligations of Participant. 

<li>Confidentiality. Participant acknowledges that all information provided by 
TPE on The Exchange is confidential. Participant warrants that it will not make 
any such information obtained via The Exchange available to third parties. 
Participant covenants to keep confidential and not publish, broadcast, 
retransmit, reproduce, commercially exploit, or otherwise redisseminate the 
data, information, or services provided under the Agreement or received via 
Internet. Participant covenants to keep confidential its User IDs, Password(s), 
and other security data, methods and devices. 

<li>Right of Inspection. Participant expressly grants to TPE the right to 

inspect Participant's facilities upon reasonable notice. Participant 

acknowledges that TPE may inspect such facilities on a repeated basis. 

<li>Consents and Waivers Not Comprehensive. The consents, waivers and releases 

contained in this Section are not intended to be an exclusive and comprehensive 

enumeration of all consents, waivers and releases granted by the Participant 

pursuant to this Agreement or TPE Policies. 

</ol> 

</SPAN> 

<br> 

<a name=EXSPAN CLASSES 6>Indemnif ication</SPAN></a><br> 
<SPAN> 

Participant agrees to defend, indemnify and hold TPE, its officers, directors, 
employees and agents harmless from and against any claims, losses, liabilities, 



costs and expenses (including but not limited to attorney T s fees) arising out 
of: any breach by Participant or its Designated Representative of any 
representation, warranty or covenant made in connection with this Agreement any 
violation by Participant or its Designated Representative of the TPE Policies; 
any violation by Participant or its Designated Representative of any third party 
rights including but not limited to copyright, proprietary and privacy rights; 
and, if Participant allows third parties to access TPE's services, any claim or 
suit by such third party based upon or relating to such access and use. The 
terms of this indemnification shall survive the termination of this Agreement 
</SPAN> 
<brxbr> 

<a name=FXSPAN CLASS=S6>Suspension</SPANx/aXbr> 
<SPAN> 

TPE reserves the right to suspend Participant's access to The Exchange 

immediately if TPE, in its sole discretion, determines that such suspension is 

in the best interests of The Exchange in order to preserve the integrity of the 

market . 

</SPAN> 

<br><br> 

<a name=G><SPAN CLASS=S6>Term and Termination</SPANx/axbr> 

<SPAN> 

<ol> 

<li>Term. This Agreement shall commence on the later of the date this Agreement 
is executed or the date Participant is approved by TPE, and shall continue until 
terminated in accordance with the Termination provisions below. 
<li>Termination. This Agreement may be terminated by either party upon one 
business day's prior written notice to the other party, subject to the survival 
of all payment, delivery and other obligations to which the Participant is 
subject at the time of termination. TPE may terminate this Agreement 
immediately if Participant violates any Policy of TPE. Participant agrees that 
its status as a Participant is at all times subject to this Agreement and, in 
particular, that its access to The Exchange may be terminated in accordance with 
this Agreement. 

<li>Termination is Not Waiver. The termination of this Agreement, either by TPE 

or by Participant, shall not cancel, void, satisfy or waive any payment or other 

obligation owing by Participant to TPE or to any other entity. 

</ol> 

</SPAN> 

<br> 

<a name-HxSPAN CLASSES 6>Assignment</SPAN></axbr> 
<SPAN> 

None of the rights or obligations under this Agreement may be assigned or 
delegated by Participant, whether by operation of law or otherwise, without the 
prior written consent of TPE, which consent shall not be unreasonably withheld, 
delayed or conditioned; provided that TPE may, in its sole discretion, consent 
to an assignment by Participant of any of Participant's obligations under this 
Agreement. TPE may assign or delegate its rights or obligations under this 
Agreement . 
</SPAN> 
<brxbr> 

<a name=I><SPAN CLASS=S6>Partial Invalidity</SPANX/axbr> 
<SPAN> 



If any provision of this Agreement, or the application of such provision to any 
person, circumstance or transaction, shall be held invalid, the remainder of 
this Agreement, or the application of such provision to other persons, 
circumstances or transactions, shall not be affected. The partial invalidity of 
this Agreement shall not cancel, void, satisfy or waive any payment owing by and 
due from Participant to TPE or to any other entity. 
</SPAN> 
<brxbr> 

<a name=JXSPAN CLASSES 6>Notices</SPAN></a><br> 
<SPAN> 

Any notice, demand or request made to or by either party regarding this 
Agreement shall be made in accordance with this Agreement and the TPE Policies 
and unless otherwise stated or agreed shall be made to the representative of the 
other party indicated below: 
<table> 

<tr><td>ThePlasticsExchange . com, LLC<br> 

Member Services<br> 

730 N. LaSalle Street<br> 

Third Floor<br> 

Chicago, IL 60610<br><br> 

Participant : <br> 

To the address set forth above 

</tdXtd> 

Scott E. Early<br> 

Foley & Lardner<br> 

One IBM Plaza<br> 

330 North Wabash Avenue<br> 

Suite 33300</tdx/tr> 

</table> 

Any general notice to all Participants regarding the operation of The Exchange, 

including the addition or deletion of Contracts, that is posted on TPE's 

electronic website shall be considered adequate notice. 

</SPAN> 

<brxbr> 

<a name=KxSPAN CLASS=S6>Applicable Law</SPANx/aXbr> 
<SPAN> 

This Agreement shall be governed by and construed in accordance with the laws of 

the State of Illinois in all disputes arising out of and in connection with this 

Agreement and shall be subject to the jurisdiction of the U.S. District Court 

for the Northern District of Illinois and the Circuit Court of Cook County, 

Illinois . 

</SPAN> 

<br> 

<div align=centerxhr align=left size=l width="33% "></div> 
<SPAN> 

Participant, in executing this Application and Agreement, confirms that all 
information provided by Participant is true and complete and agrees to each and 
all terms contained in this Agreement. In addition, Participant's signature 
represents agreement to abide by the TPE Policies as they now exist or may from 
time to time be amended by electronic notification to all Participants. Each 
Participant will be given the opportunity to terminate its participation in The 
Exchange because of such amendment. Any Participant that does not elect to 
terminate its participation will be deemed to have accepted the amended terms. 



Further, if Participant has any Designated Representatives, Participant 
represents that they will observe and be bound by the TPE Policies. 
<table width=100% border=0> 
<tr valign=_top> 

<tdxbr>Date : < /td> 

<td>Participant<br> 

By : <br xbrxbr > 

Name : _ <brxbr><br> 

Title: 

< / 1 dx/trx/table> 
</SPAN> 

<div align=centerxSPAN CLASS-S6>Appendix Kbr>The Plastics Exchange 

Policies</SPANx/div> 

<SPAN> 

Set forth below are the policies that govern the trading and operations of The 
Exchange. Participant, in completing and executing the Participation 
Application and Agreement, agrees to be subject to and comply with the following 
Policies . 

These Policies may be amended from time to time by electronic notification to 

all Participants. Each Participant will be given the opportunity to terminate 

its participation in The Exchange because of such amendment. Any Participant 

that does not elect to terminate its participation will be deemed to have 

accepted the amended terms. 

</SPAN> 

<brxbr> 



<a name=LxSPAN CLASS=S6>Electronic Orders and Inf ormation</SPANx/axbr> 
U <SPAN> 

lj Any orders given by a Participant and any information furnished to a Participant 
p electronically via the Internet shall be subject to the following terms and 
h conditions: 
<ol> 

*i <li>If an order has been placed through the Internet and a Participant has not 
^ received an accurate electronic confirmation of the order or of its execution in 
Z a timely manner, the Participant must immediately notify TPE. 

^ <li>If Participant has received confirmation of an order which Participant did 
i| not place or any similar conflicting report, Participant must immediately notify 
3 TPE. 

& <li>Each Participant must immediately notify TPE if there is unauthorized use of 
its Password, ID or other security data. 

<li>If a Participant fails to notify TPE in writing when any of the above 
conditions occur, neither TPE nor any of its employees, agents, affiliates, 
subsidiaries, or its parent, nor any third parties, can or will have any 
responsibility or liability to the Participant or to any other person whose 
claim may arise through the Participant for any claims with respect to the 
handling, mishandling, or loss of any order. TPE shall not be deemed to have 
received any order or similar instruction electronically transmitted by 
Participant until TPE has acknowledged to the Participant that the order or 
similar instruction has been actually received. Each Participant is fully 
responsibility for the monitoring of its Account. 

<li>All orders entered on The Exchange shall be good-til-canceled which means 

that they will be open until they are either canceled or matched. 

</ol> 

</SPAN> 

<br> 



<a name=M><SPAN CLASS=S6>Trade Matching</SPANX/a><br> 



<SPAN> 

Participants' orders are electronically matched by The Exchange based on price 
and time of entry, considering freight charges. Upon the matching of a buy and 
sell order, the transaction becomes a legally binding contract and The Exchange 
generates an electronic confirmation which is automatically sent to both the buy 
and sell Participants. TPE, in the absence of such additional delivery 
instructions, will initiate delivery following Participant's default 
instructions. If necessary, Participants are required to forward any additional 
delivery instructions to The Exchange immediately following the transaction 
either via phone at 800-967-9619, e-mail to Logistics@ThePlasticsExchange.com or 
system message . <brxbr> 

Once a transaction becomes a legally binding contract, both parties to the 

contract must perform (Seller must deliver, Buyer must take delivery) . Netting 

of transactions is not permitted. TPE reserves the right to mitigate disputed 

trades in a fair and equitable manner. 

</SPAN> 

<br><br> 

<a name=N><SPAN CLASS=S6>Transportation</SPANx/a><br> 
<SPAN> 

Each Contract includes the provision and cost of delivery. Delivery shall be 
provided by TPE through its Transportation Partner (s) . Because transportation 
is an integral part of each contract, Participant must provide shipping 
instructions to TPE upon application as a Participant. Neither the 
Transportation Partner nor TPE shall be liable for any consequential damages 
that occur in transit. 
</SPAN> 
<brxbr> 

<a name-OXSPAN CLASS-S6>Right of Rej ection</SPANx/aXbr> 
<SPAN> 

A Participant may only reject delivery of a Contract where the Product delivered 
does not meet the standardized contract specifications set forth in Appendix II 
of the Agreement as amended from time to time. The Participant must notify TPE 
immediately of such rejection. TPE, upon such notification, may dispatch an 
independent party to analyze the Product for compliance with the standardized 
contract specif ications . <brxbr> 

If the Product meets such specifications, Buyer must bear the cost of such 
independent analysis and must accept delivery . <brxbr> 

If the Product does not meet such specifications, Seller must bear the cost of 
such independent analysis and the cost of return shipping. Further, the Seller 
must accept the returned Product and ship to Buyer a Product that meets the 
standardized contract specif ications . <brxbr> 

If Seller is unable to provide such Product, TPE will purchase a substitute 

Product at the current market price and Seller shall be responsible for all 

related costs, including any difference in price. 

</SPAN> 

<brxbr> 

<a name-PxSPAN CLASS=S6>Failure to Deliver</SPANX/aXbr> 
<SPAN> 

If a Seller fails to deliver any order pursuant to the terms of the Contract, 
TPE may purchase the Product at the prevailing market price for the benefit of 
the Buyer and the Seller shall be responsible for all costs related to such 
failure, including any price difference. TPE may offset these fees and other 
payables against payment due to Seller. 
</SPAN> 



<br><br> 



<a name=QXSPAN CLASS-S 6>Dispute Resolution</SPANx/a><br> 
<SPAN> 

Each Participant must agree that it will use its best efforts to resolve any 
dispute that arises between the Participant and TPE and/or B2BExchangeCredit , 
LLC by participating in a meeting with the management of TPE. If the parties 
cannot come to an agreement through such meeting, the Participant must agree to 
submit to binding arbitration that will be conducted by FedNet, Inc.<a 
href=#Footnote name=Foot> [1] </a> Each Participant must further agree to submit 
to binding arbitration when a dispute is brought to arbitration that involves 
the contraparty to any corresponding trade of the Participant and/or 
B2BExchangeCredit , LLC . 
</SPAN> 
<brxbr> 

<a name=RXSPAN CLASS=S6>Business Conduct</SPANx/a><br> 
<SPAN> 

Participants must adhere to the following restrictions and requirements. For 
violating any of the following, TPE may, in its sole discretion, impose such 
sanctions against Participant as TPE may deem reasonable and appropriate, 
including but not limited to fine, suspension, termination or any such other 
sanction. 
<ol> 

<li>Neither a Participant nor any employee of a Participant shall engage in any 
fraudulent act or to deceive, trick or engage in any scheme to defraud, in 
connection with or related to any trade on or other activity related to The 
Exchange. Orders of Contracts entered in The Exchange for the purpose of 
upsetting the equilibr ium of the market and bringing about a condition of 
demoralization in which prices do not or will not reflect fair market values, 
are forbidden and any TPE and any employee of a TPE who makes or assists in 
entering such orders with knowledge of the purpose thereof, or who, with such 
knowledge shall be a party to assist in carrying out any plan or scheme for the 
entering of such orders shall be deemed guilty of an act inconsistent with just 
and equitable principles of trade. 
<li>Manipulation of the market is prohibited. 

<li>It shall be an offense to violate any TPE Policy regulating the conduct or 
business of Participant, or any agreement made with TPE, or to engage in fraud, 
dishonorable or dishonest conduct, or in conduct or proceedings inconsistent 
with just and equitable principles of trade, or intentionally default on the 
delivery of any Contract. 

<ii>It shall be an offense against TPE to make a misstatement of material fact 
to TPE. 

<li>Neither a Participant nor any employee of a Participant may use its right of 

access to The Exchange in any way which would tend to bring disrepute upon the 

Participant or The Exchange. 

</ol> 

</SPAN> 

<br> 

<a name=SxSPAN CLASS=S6>Disclaimer/Limitation of Liability</SPANx/axbr> 
<SPAN> 

TPE shall not be responsible for the accuracy, completeness, or use of any 
information received by TPE from a Participant. TPE shall not be responsible for 
any damages caused by communications line failure, unauthorized access, theft, 
systems failure, and other occurrences beyond TPE's control. TPE shall not be 
responsible for any damages in the event that any order is not received by TPE. 



TPE shall have no liability if any or all of TPE's systems or the systems of any 
third party working with TPE "goes down" or otherwise fails to operate for any 
period of time. TPE is not liable for a Participant's inability to provide such 
access or for any delay in TPE ! s providing such access. To the extent that the 
System utilizes Internet or similar open telecommunication line services to 
transport data or communications, although TPE will take reasonable security 
precautions, TPE expressly disclaims any liability for interception of any such 
data or communications, and TPE shall not be responsible for and TPE makes no 
warranties regarding, the access, speed or availability of Internet or network 
services. The use and storage of any information, including without limitation, 
transaction activity, and any other information or orders available through a 
Participant's right of access to The Exchange ("Electronic Access") and all 
orders placed through the Electronic Access, is at each Participant's sole risk 
and responsibility. THE ELECTRONIC ACCESS IS PROVIDED AT EACH PARTICIPANT'S 
SOLE RISK ON AN "AS IS," "AS AVAILABLE" BASIS. NEITHER TPE NOR ANY ITS 
DIRECTORS, OFFICERS, EMPLOYEES, AGENTS, CONTRACTORS, AFFILIATES, INFORMATION 
PROVIDERS, LICENSORS, OR OTHER SUPPLIERS PROVIDING DATA, INFORMATION, ACCESS OR 
SOFTWARE (COLLECTIVELY, "THE TPE PARTIES") MAKES ANY REPRESENTATIONS OR 
WARRANTIES EXPRESS OR IMPLIED INCLUDING WITHOUT LIMITATION ANY WARRANTY THAT THE 
ELECTRONIC ACCESS WILL BE UNINTERRUPTED OR ERROR FREE OR MAKES ANY WARRANTIES 
INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR 
PURPOSE IN RESPECT OF THE ELECTRONIC ACCESS OR PRODUCTS OBTAINED FROM, THROUGH, 
OR IN CONNECTION WITH THE ELECTRONIC ACCESS; NOR DO ANY OF THE TPE PARTIES MAKE 
ANY WARRANTY AS TO THE RESULTS THAT MAY BE OBTAINED FROM THE USE OF SUCH 
ELECTRONIC ACCESS, OR AS TO THE TIMELINESS, SEQUENCE, ACCURACY, COMPLETENESS, 
RELIABILITY OR CONTENT OF ANY DATA, INFORMATION, ACCESS OR TRANSACTIONS PROVIDED 
THROUGH THE ELECTRONIC ACCESS; IN NO EVENT WILL ANY OF THE TPE PARTIES BE LIABLE 
FOR DIRECT, INDIRECT, INCIDENTAL OR CONSEQUENTIAL DAMAGES, RESULTING FROM ANY 
DEFECT IN, OR USE OF, OR INABILITY TO USE THE ELECTRONIC ACCESS (INCLUDING BUT 
NOT LIMITED TO LOST PROFITS, TRADING LOSSES OR DAMAGES THAT RESULT FROM LOSS OF 
THE USE OF THE ELECTRONIC ACCESS, INCONVENIENCE OR DELAY), EVEN IF ANY OF THE 
TPE PARTIES HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES OR LOSSES. 
</SPAN> 
<br><br> 

<a name=T><SPAN CLASS-S6>Insolvency and Bankruptcy</SPAN></a><br> 
<SPAN> 

If a Participant fails to perform its contracts or is near insolvency or becomes 
insolvent, such Participant shall promptly notify TPE of such fact. In such 
event, and even if such Participant fails to give notice to TPE, TPE may 
terminate or cancel the Participant's right of access if it deems it 
necessary ,<br><br> 

Whenever an order for relief under the United States Bankruptcy Code 
(hereinafter, the "Bankruptcy Code") is entered for a Participant, Participants 
having Exchange Contracts with the bankrupt Participant may proceed to close the 
same on The Exchange in accordance with the provisions of this policy. 
</SPAN> 
<br><br> 

<a name=U><SPAN CLASSES 6>Emergencies</SPANx/axbr> 
<SPAN> 

In the event of an Emergency, TPE, may place into immediate effect a temporary 
emergency policy which may remain in effect for up to thirty (30) Business Days 
and which may provide for, or may authorize TPE to undertake actions necessary 
or appropriate to meet the Emergency, including, but not limited to, such 
actions as: 
<ol> 



<li>limiting trading to liquidation only, in whole or in part; 
<li>extending the time of delivery; 

<li>changing delivery points and/or the means of delivery; 

<li>ordering the liquidation of contracts, the fixing of a settlement price or 
the reduction in positions; 

<li>extending, limiting or changing hours of trading; 
<li>suspending trading; or 

<li>modifying or suspending any provision of the Policies of The Exchange. 
</ol> 

If, in the judgment of TPE, the physical functions of The Exchange are, or are 
threatened to be, severely and adversely affected by a physical emergency, TPE 
shall have authority to take such action as it deems necessary or appropriate to 
deal with such physical emergency. Such authorized action shall include, but 
shall not be limited to, closing The Exchange, delaying the opening of trading 
in any one or more Contracts and/or suspending trading in or extending trading 
hours for any one or more Contracts; provided, however, that suspension of 
trading ordered pursuant to this paragraph shall not continue in effect for more 
than five (5) Business Days unless TPE approves extending such action. <br><br> 
In the event such action is taken, thereafter TPE may order restoration of 
trading on The Exchange or removal of any other restriction heretofore imposed 
pursuant to this paragraph, upon a determination by TPE that the physical 
emergency has sufficiently abated to permit the physical functions of The 
Exchange to continue in an orderly manner. 
</SPAN> 
<brxbr> 

<a name-VXSPAN CLASSES 6>Force Ma jeure</SPANx/axbr> 
<SPAN> 

If strike, fire, accident, ice, equipment malfunction or other act of God which 
might otherwise be described as "Force Majeure" results in the failure of seller 
to deliver on a Contract, The Exchange's obligation to make delivery will be 
extended daily until such condition of Force Majeure no longer exists. 
</SPAN> 

<br><brxbrxbrxbrxbrxbr> 

<div align=center><SPAN CLASSES 6>Appendix IK/SPANx/div> 

<div align=centerximg src=. . /images/misc/printable . gif width=600x/div> 

<div align-centerXSPAN CLASS=S6>Appendix IIKbr>Payment Terms</SPANX/div> 

<SPAN> 

Participant shall be paid in accordance within 45 days of shipment. Participant 
may elect to receive payment upon delivery at the corresponding discounted rate 
of the total payment due. Participant may elect to receive a discounted payment 
at any time prior to the 45th day after shipment which shall be discounted in 
accordance with the schedule set forth below: 
<div align=center> 

<table width=500 border-1 cellspacing=0 cellpading=l> 

<trxtd width-100%> 

<table border-0 width-100%> 

<trxtd colspan=2 nowrap>Shipping Date+Receive</tdxtd colspan=2 nowrap>Shipping 
Date+Receive</tdxtd colspan=2 nowrap>Shipping Date+Receive</tdx/tr> 
<trxtdxb>0</tdxtdxb>97 . 00%</tdxtd>  </tdXtd>  </tdxtd>  </td> 
<td>  </tdx/tr> 

<trxtd>K/tdxtd>97 . 07%</tdxtd>16</tdxtd>98 . 07%</tdxtd>3K/tdxtd>99 . 07%</td 
></tr> 

<trxtd>2</tdxtd>97 . 13%</tdxtd>17</tdxtd>98 . 13%</tdxtd>32</tdxtd>99 . 13%</td 
></tr> 



<trxtd>3</tdxtd>97 . 20%</tdxtd>18</tdxtd>98 . 20%</tdxtd>33</tdxtd>99 . 20%</td 
x/tr> 

<trxtd>4</tdxtd>97.27%</tdxtd>19</tdxtd>98 . 27%</tdxtd>34</tdxtd>99 . 27%</td 
x/tr> 

<trxtd>5</tdxtd>97 . 33%</tdxtd>20</tdxtd>98 . 33%</tdxtd>35</tdxtd>99 . 33%</td 
></tr> 

<trxtd>6</tdxtd>97 . 4 0%</tdxtd>2K/tdxtd>98 , 40%</tdxtd>36</tdxtd>99 • 40%</td 
x/tr> 

<trxtd>7</tdxtd>97 . 47%</tdxtd>22</tdxtd>98 . 47%</tdxtd>37</tdxtd>99 . 47%</td 
x/tr> 

<trxtd>8</tdxtd>97 . 53%</td><td>23</tdxtd>98 . 53%</tdxtd>38</tdxtd>99 . 53%</td 
></tr> 

<trxtd>9</tdxtd>97 . 60%</tdxtd>24</tdxtd>98 . 60%</tdxtd>39</tdxtd>99 . 60%</td 
></tr> 

<trxtd>10</tdxtd>97 . 67%</tdxtd>25</tdxtd>98 . 67%</tdxtd>40</tdxtd>99. 67%</t 
dx/tr> 

<trxtd>ll</tdxtd>97.73%</tdxtd>26</tdxtd>98.73%</tdxtd>4K/tdxtd>99.73%</t 
dx/tr> 

<trxtd>12</tdxtd>97 . 80%</tdxtd>27</tdxtd>98 . 80%</tdxtd>42</tdxtd>99. 80%</t 
dx/tr> 

<trxtd>13</tdxtd>97 . 87%</tdxtd>28</tdxtd>98 . 87%</tdxtd>43</tdxtd>99 . 8 7%</t 
dx/tr> 

<trxtd>14</tdxtd>97 . 93%</tdxtd>29</tdxtd>98 . 93%</tdxtd>44</tdxtd>99. 93%</t 
dx/tr> 

<trxtdxb>15</tdxtdxb>98.00%</tdxtdxb>30</tdxtd><b>99. 00%</tdxtdxb>45</t 

dxtdxb>100 . 00%</tdx/tr> 

</tdx/trx/table> 

</tdx/trx/table> 

</div> 

</SPAN> 

<brxbr> 

<div align=centerxhr align=left size^l width="33%"x/div> 

<a href=#Foot name^Footnote> [1] </a> 

<SPAN> 

FedNet, Inc., founded in 1998, is a private alternative dispute resolution 
organization comprised exclusively of former federal judges. Its offices are 
located at The Commons, P.O. Box 470338, Building Two, 8223 Brecksville Road, 
Cleveland, Ohio 44141-0338. 
</SPANx/bodyx/html> 
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<%DIM Connection 

SET Connection=Server . CreateOb j ect ( "adodb . connection" ) 
Connection. Open "Brain", "Internet", "Internet "%> 



<%DIM Connection 

SET Connection=Server. Great eObject ( "adodb. connection" ) 
Connection. Open "Demo", "Internet", "Internet"%> 



//// 



' for(i=0;i 



//// 



' for(i=0;i 




//// 



' for(i=0;i 




" Str=Str+" 

" Str=Str+" 
Str=Str+" 
" Str=Str+" 

" Str=Str+" 




" Str=Str+"ThePlasticsExchange.com M Str=Str+"" 
Str=Str+" 



" Str=Str+" j 



" SET RecO=Connection.Execute("SELECT (SELECT COMP_NAME FROM ®5££ 0)4 . 

COMPANY WHERE - if not 

COMPJD=PLAC_COMP),PLACjU}DR_ONE,PLAC_AD ORDR 

LOCL_CITY+', '+LOCL_STAT FROM LOCALITY WHERE then 

LOCL_ID=PLAC_LOCL),PLAC_ZIP,(SELECT (SELECT CTRY_NAME str=str*Reco<i)&" 
FROM COUNTRY WHERE CTRY_CODE=LOCL_CTRY) FROM LOCALITY st(=str+Rec0(2)S ..» 

WHERE LOCL_ID=PLAC_LOCL) FROM PLACE WHERE PLAC_TYPE='H' Str = Str+ " 

AND PLAC_COMP=(SELECT (SELECT PERS_COMP FROM PERSON C 

WHERE PERS_ID=ORDR_BUYR) FROM ORDERS WHERE 30*CR 
ORDR_ID="&i&")") Str=Str+" 

Sold to: 
"&RecO(0)&" 

M &RecO(1) IF NOT isnull(RecO(2)) THEN Str=Str+" 
"&RecO(2) Str=Str+" 

"&RecO(3)&" - "&RecO(4)&" p ™ 

■&RecO(5)&»" RecO.Close SET RecO=NOTHING SET ™ 

RecO=Connection.Execute("SELECT 1 HbN 

PLAC_ADDR_ONE,PLAC_ADDR_TWO,(SELECT LOCL_CITY+', 

'+LOCL_STAT+' - '+PLAC_ZEP+' 

'+(SELECT CTRY_NAME FROM COUNTRY WHERE 

CTRY_CODE=LOCL_CTRY) FROM LOCALITY WHERE Wfc 
LOCL_ID=PLAC_LOCL) FROM PLACE WHERE PLAC_ID=(SELECT 
ORDR TO FROM ORDERS WHERE ORDR_ID="&i&")") Str=Strf" 












" Str=Strf" ; 
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Digest Chemical Groups Extend Deadline 
Financial Times 



December 27, 2000 

Chemical groups extend deadline 

Dow Chemical and Union Carbide, the US chemical groups, have agreed for the 
third time to extend their merger deadline, due to expire on Sunday. 

The new deadline is March 3 1 next year, according to the companies' filing with the 
US Securities and Exchange Commission. The original deadline, twice extended, was 
August 2 this year. 

The extension means the merger may not close until almost 20 months after the 
deal was announced in August 1999. 

Then Dow said it would buy Union Carbide for about $9bn in stock, and $2.3bn in 
assumed debt. The deal would make Dow the world's second-largest chemical 
company behind DuPont But it also makes it a dominant maker of polyethylene 
plastics, raising anti-trust issues with the Federal Trade Commission. 

The stumbling block to approval with the FTC, some industry observers say, is a set 
of joint ventures and complex agreements with their technology patents for making the 
plastics used in items like refuse bags. 

European Union regulators cleared the merger in May on the condition that it 
divested some businesses, including polyethylene technologies. Dow and Union 
Carbide competed against each other with joint ventures that had breakthrough 
technologies to make polyethylene and polypropylene two of the most widely used 
plastics. Observers say the commission wants to create a viable competitor in this 
industry, perhaps BP, through divestitures and patent-use agreements, but it has been 
difficult to negotiate. 

Christopher Bowe, Chicago 

Carlsberg stake 

in glass reduced Carlsberg, the Copenhagen-based brewer, has cut its majority stake 
in Royal Scandinavia, the industrial arts company that owns some of the most 
prestigious porcelain and glassware brands in the Nordic region, in line with its bid to 
concentrate on the beverage sector. 



The deal, with a local investor eroun led bv AxceL a Danish industrial investment 



company, will give Carlsberg a total of DKrlJbn ($21 1.7m) and reduce the brewer's 
holding to 28 per cent from 64 per cent. 

A new holding company, Royal Scandinavia Holding, which will be 51 per cent 
owned by Axcel, will make a general purchase offer and then delist the company from 
the Copenhagen stock exchange. 

Flemming Lindeloev, Carlsberg's chief executive, said he was looking forward to 
being able to concentrate on developing his company's brewing activities. 

Earlier this year Carlsberg sold off its 43 per cent stake in Copenhagen's famed 
Tivoli amusement park. 

Royal Scandinavia's upmarket brands include the Danish porcelain maker Royal 
Copenhagen and Orrefors and Kosta Boda, two of Sweden's best-known makers of 
quality glassware. 

Clare MacCarthy, Copenhagen 
Intertainment 

slides by 50% Shares of Intertainment, a German film production and licensing 
company, on Friday dropped temporarily by 50 per cent to a record low of 4.82 per 
share. 

The Neuer Markt-listed company announced on Thursday that it had filed a lawsuit 
against Franchise Pictures, the Los Angeles-based film production company, for 
wrongly budgeting its movies, which cost it about $75m. The Munich-based company 
pays a fixed percentage on the production costs for the marketing rights of a film. 

Johannes Rohrig, Hamburg 



To see more of Financial Times, go to 



Us: Merger of Dow Chemical, Union Carbide Still a Long Way Off 
IndustrySuppliers.com 



December 25, 2000 

The long delayed merger between Union Carbide and Dow Chemical Co. has been 
deferred yet again with both companies agreeing not to exercise their right to close the 
deal before March 31. US based Dow Chemical Co. announced its intention of 
acquiring Union Carbide (UK) in August 1999 in a stock deal valued at $8.9 billion. 
The deal is pending, as it still has to satisfy federal antitrust regulators. Although the 
details hindering the deal are not known, market watchers are speculating that the 
Federal Trade Commission is looking at patents involved in the making of plastic and 
rubber. 



For further information or to subscribe go to 



Bayer Corp. Plastics Lab in Pittsburgh Area Perfects Materials to 
Create Cds 

Knight Ridder/Tribune 

Stephanie Franken , Pittsburgh Post-Gazette 
December 23, 2000 

Dec. 21 -Christina Aguilera, clad in a sparkly halter top, can be brought home for the 
holidays at a cost of $13.99 from Amazon.com. Aguilera's compact disc, "My Kind of 
Christmas," features the Wexford teen-turned-pop star singing original songs, old 
carols such as "O Holy Night, " and, as her publicists tout, "Mel Torme's immortal 
The Christmas Song, 1 reinterpreted by Christina as an up-tempo dance track." 

Production of the CD involved the work of a 70-piece orchestra, Grammy-award- 
winning songwriters, and a host of production people and back-up artists. 

It also involved a bunch of Pittsburgh scientists in white lab coats and thick goggles, 
who take music so seriously that they refuse to listen to it, while they work. 

The scientists, members of Bayer Corp.'s 6-person optical group, work in the climate- 
controlled optical media lab, where the only sounds are the humming of the massive 
machine that makes and tests CDs and the occasional voices of the scientists in 
consultation. 

"We don't listen to music. If we do, we can't hear one another talk," said John J. 
O'Malley, Jr. 

In Bayer's newly expanded, multimillion-dollar lab at its corporate headquarters in 
Robinson, the scientists devote their careers to perfecting the material that is used to 
make CDs as well as DVDs, the higher-quality discs that are expected to gain rapidly 
in the consumer market. They sell the material to a number of CD manufacturers, 
including companies that make CDs for RCA, Aguilera's record label. 

Led by Ramesh Pisipati, optical disc industry manager, they work at the forefront of a 
long production process that ends with a crooning Christina. 

All Bayer really does is sell a raw material that is used to make CDs - but perfecting 
that single material requires the brainpower of several PhDs. The stuff is a 
polycarbonate, and Bayer's brand is called Makrolon. The material is made in plants 
throughout the world, but the Makrolon masterminds are local. 

Earlier this month, Bayer AG announced plans to become the world's largest 
polycarbonate producer within the next five years, and it has invested $860 million 
toward this goal. The Pittsbursh-based lab will have a larse role in delivering on this 



promise by working to improve the quality of the product. 

Makrolon resembles coarse grains of sugar, and it is sold in 1,600-pound bags. But the 
science of perfecting that material, to ensure that Frank Sinatra always sounds just like 
Frank, for example, requires Bayer to know everything there is to know about CDs and 
how they work. 

"What we are trying to bring to the party is, 'How does the plastic behave and what can 
we do to improve it,' " said Pisipati. In order to make these discoveries, the scientists 
must make CDs from start-to-finish. 

To make a CD, polycarbonate is heated in a cylinder, squirted out in CD-sized globs 
from an injection mold and shaped. Then, it is impressed with tiny bumps that are just 
over a millionth of a meter from one another. These bumps represent the digital code 
of the music itself, and they form a long spiral which would be 3.5 miles long if it were 
spread out. 

After the polycarbonate, now "pitted" with digital code, has cooled, it is coated with a 
metal and then sprayed with acrylic. 

The process is done in a room with a constant temperature of 70 degrees and 50 
percent humidity. 

"It's a great place to be during allergy season," said O'Malley. 

Inside that room, the machine that makes CDs contains "hyperfiltered" air with no 
more than 100 dust particles in a cubic foot. Both CDs and DVDs are read by a laser, 
through the polycarbonate » so the plastic must be clear. A dust speck is like a boulder 
on a CD that isn't yet finished. 

The Bayer lab also is newly equipped to do research and development for DVDs - 
digital versatile discs. DVDs, which are used to store movies as well as music, are 
made through a process that is similar to that of making CDs. But DVDs are thinner 
than CDs, and they are double-sided to hold more data. They also have tinier pits in the 
plastic that are even closer together - and more pits means higher sound quality. 

One mission for the scientists is to ensure the material melts down and hardens as 
efficiently and predictably as possible, so nearly every CD turns out perfectly. 

"If the viscosity of the material varies, you see that in the quality of the disc," said 
Pisipati. And every CD must be perfect, or it can't be sold. 

Perfection rates can be as high as 98 percent at CD manufacturing plants, meaning 
only two CDs out of 100 will be pitched. Contraptions such with names such as "Dr. 
Schenk Insoector" and "Prometeus" test the nronerties of CDs and DVDs that are far 



too tiny for the human eye. Every CD sold to consumers is tested individually. 

But this perfection is cheap for record labels that sell finished CDs, such as RCA 
Records, Aguilera's label. 

"It is common knowledge that the cost of making a CD » all ready to go and lacking 
only a bar code - is about 75 cents," said Pisipati. 

That price refers to CDs that are mass-produced. For a more moderate quantity, 
manufacturing costs are roughly two dollars per CD, estimated Holly Wilson, market 
manager for Polystyrene durables at Nova Chemicals Corp. in Moon. 

Nova, also a Pittsburgh-based company, makes the material - crystal polystyrene - 
that is used to made CD cases, known as jewel boxes. 

Nova gets 55 cents per pound for its crystal polystyrene, which its customers in turn 
make into six or seven jewel boxes that sell, wholesale, for about 15 to 20 cents each. 

So the stuff that is used to make CDs ™ and the cases that hold them - costs very little. 
But that low cost doesn't include payment of royalties to the artist, the songwriters, the 
label, and other musicians and producers who recorded the music that winds up on a 
CD or DVD. 

And for a big-label artist who uses copyright-protected material, paying all of those 
people raises the price to at least $1 1 or $12. 



To see more of the Pittsburgh Post-Gazette, or to subscribe to the newspaper, go to 



Great Lakes Updates Fourth Quarter Outlook 
PR Newswire 



December 21 2000 

INDIANAPOLIS, Dec 21, 2000 /PRNewswire via COMTEX/ -- Great Lakes 
Chemical Corporation (NYSE: GLK) today announced it expects fourth quarter 
earnings to be below the company's previous expectations, primarily due to weaker 
demand in certain end markets. The company now expects earnings for the fourth 
quarter to be in the range of $.39 to $.44 per share. These results include the benefit 
of a lower effective tax rate associated with the non-taxable gain resulting from the 
initial public offering of the company's oil service subsidiary, OSCA, Inc. 

Excluding the benefit of the lower effective tax rate, the company's underlying 
earnings for the fourth quarter are expected to be in the range of $.35 to $.40 per 
share. 

The company expects fourth quarter sales to grow 4 to 5% compared to the 
same period last year. Driving this growth, the gains registered by Water Treatment 
and Energy Services and Products (OSCA) were offset in large part by sharply 
lower sales in the Polymer Additives business. 

Mark Bulriss, Great Lakes' Chairman and Chief Executive Officer commented, 
"Quarterly earnings will be affected by sharply lower income reported by our 
Polymer Additives business. This business is experiencing lower than expected 
sales due to a sudden slowdown in customer demand. Fourth quarter volume growth 
for this business will be down compared to the same period last year. In addition to 
the impact from softer demand, the recent surge in energy costs compounded the 
deterioration in profitability we expect to see this quarter for Polymer Additives." 

He added, "On a more positive note, our three remaining business units continue 
to be bright spots. We anticipate that all three will finish the year strongly. Water 
Treatment and Performance Chemicals will generate higher operating income in 
2000 than ever before. OSCA is on track to post healthy gains in sales and 
profitability in the quarter driven by the continued increase in drilling activity 
throughout the Gulf of Mexico." 

Bulriss concluded, "The difficult business conditions we face today pose a 
serious challenge in the near-term. It underscores the importance for continuous 
aggressive productivity and growth programs. We remain focused on what is 
essential to drive shareholder value over the long-term." 



The company will announce final results for its fourth quarter and full- year 
financial oerformance on Wednesday Januarv 24. 2001. after the close of the New 



York Stock Exchange. A conference call will take place the following morning at 
1 1 :00 am (EST). This call will be broadcast live over the Internet, with access 
provided through the Company's home page at www.greatlakeschem.com . 

After December 22, 2000 Great Lakes Chemical will observe a "quiet period" 
which will extend until the January 24th earnings release. During the quiet period, 
Great Lakes representatives will be unable to comment about Great Lakes 1 expected 
financial results for the quarter. 

This report contains forward-looking statements involving risks and 
uncertainties that affect the company's operations as discussed in Great Lakes 
Chemical Corporation's Annual Report on Form 10-K and OSCA's Registration 
Statement on Form S-l and final prospectus filed with the Securities and Exchange 
Commission. Accordingly, there is no assurance the company's expectations will be 
realized. 

Great Lakes Chemical Corporation is the world's leading producer of various 
specialty chemicals for such applications as flame retardants, polymer stabilizers, 
fire extinguishants, water treatment, as well as a growing line of performance and 
fine chemicals for the life sciences industry. The stock of the company is traded on 
the New York Stock Exchange. 

SOURCE Great Lakes Chemical Corporation 



CONTACT: Analysts, Jeff Potrzebowski, 317-715-3027, or Media, Greg 
Griffith, 317-715-3015, both of Great Lakes Chemical Corporation 
URL: http://www.greatlakeschem.com http://www.pmewswire.com 



(C) 2000 PR Newswire. All Rights Reserved. 



DSM to merge 3 business units into DSM Petrochemicals 
AFX News Limited 



December 22, 2000 

HEERLEN, the Netherlands (AFX) - DSM NV said that with effect from Jan 1, it 
will merge its Polyethylenes, Polypropylenes and Hydrocarbons business units into 
a new, single business groups, DSM Petrochemicals. 

The organisational change fits with DSM's "Vision 2005" strategy, as part of which 
the company will gradually withdraw from petrochemicals by merging this business 
with "a global partner," DSM said. 

It noted the setting up of the separate DSM Petrochemicals business groups is "the 
first step towards that goal." 



Copyright 2000 AFX News Limited. All Rights Reserved. 



A. Schulman Reduces Earnings Estimates for Its First Fiscal Quarter 
Ending November 30, 2000 

Business Wire 



December 21, 2000 

AKRON, Ohio, Dec 21, 2000 (BUSINESS WIRE) - A. Schulman Inc. 
(Nasdaq:SHLM) announced today that net income per share for its first quarter of 
fiscal 2001 ending November 30, 2000 will be approximately 50 percent below the 
First Call consensus estimate of $.25 per share. The expected earnings exclude a 
first quarter charge relating to the previously announced closure of its 
manufacturing facility in Akron. 

Net income for last year's first quarter was $1 1,942,000 or $.38 per share, 
including $.02 per share of earnings from the settlement of an insurance claim. 

In its October 20 release, the Company had indicated that earnings for the 2001 
first fiscal quarter would be off at least 25 percent from last year's results. Since that 
time, volume has weakened, especially in the Company's automotive business. 
Conditions in Europe are also off, primarily in Germany and the United Kingdom. 
Profit margins are lower due to higher material costs and competitive price 
pressures. Although there has been some recent improvement in the value of the 
Euro, it is approximately 16 percent lower than last year and will have an adverse 
impact on earnings. 

"Business is softer than originally anticipated and customers appear to be 
reducing inventories," said Terry L. Haines, president and chief executive officer. 
"Margins are lower than last year and it remains difficult to offset increased material 
costs with higher sales prices due to competitive conditions in the marketplace." 

Haines added, "In light of the difficult economic environment, we have 
implemented a number of actions to reduce costs. We expect to realize $15 million 
in annualized cost reductions resulting from the closing of the Akron manufacturing 
facility, the shutdown of certain other manufacturing lines, and the closing of a 
number of sales offices. Accordingly, we anticipate some operating improvements 
in the latter part of our second quarter ending February 28, 2001." 

A. Schulman will release its fiscal 2001 first-quarter results on January 1 1, 
2001. 



About A. Schulman Inc. 

Headquartered in Akron, Ohio, A. Schulman is a leading international supplier 
of high-performance plastic compounds and resins. These materials are used in a 
variety of consumer, industrial, automotive and packaging applications. The 
Company employs about 2,500 people and has 14 manufacturing facilities in North 
America, Europe, Mexico and the Asia-Pacific region. Revenues for the fiscal year 
ended August 31, 2000, were approximately $1 billion. Additional information 
about A. Schulman can be found on the World Wide Web at www.aschulman.com. 

Statements in this release which are not historical facts are forward looking 
statements which involve risks and uncertainties and actual events or results could 
differ materially from those expressed or implied in this release. These "forward- 
looking statements" are based on currently available information. They are also 
inherently uncertain, and investors must recognize that events could turn out to be 
significantly different from what was expected. Examples of such uncertainties 
include, but are not limited to, the following: 



— Worldwide and regional economic, business and political 
conditions 

— Fluctuations in the value of the currencies in major areas 
where the Company operates, i.e., the U.S. dollar, the Euro, 
U.K. pound sterling, Canadian dollar, Mexican peso and 
Indonesian rupiah 

— Fluctuations in the prices of plastic resins and other raw 
materials 

~ Changes in customer demand and requirements 



CONTACT: A. Schulman Inc. 
Robert A. Stefanko, 330/666-3751 

URL: http://www.businesswire.com Today s News On The Net - Business Wire's 
full file on the Internet with Hyperlinks to your home page. 

Copyright (C) 2000 Business Wire. All Rights Reserved. 



Formosa Plastics Plans Fight Osha Allegations 

Chemical Market Reporter 

Anonymous 
December 21, 2000 

FORMOSA PLASTICS Corporation USA plans to fight allegations by the 
Occupational Safety and Health Administration (OSHA) that the company violated 
federal safety and health standards at its Point Comfort, Tex., plant. 

On November 22, OSHA notified Formosa Plastics that it was citing the 
company for nine alleged safety and health violations. OSHA Proposed penalties 
totaling $1 14,000, based on an inspection conducted earlier in the year. 

OSHA's investigation began in May when an employee was severely injured in a 
fire at the Formosa Plastics plant. OSHA r s inspection of the complex resulted in 
charges of one willful, six serious and two repeat violations. 

A Formosa Plastics spokeswoman says the company plans to contest the 
agency's findings and proposed penalties before the independent Occupational 
Safety and Health Review Commission. 

OSHA is charging Formosa Plastics with one willful violation "for operating 
procedures that were inadequately written." A willful violation is defined as one 
committed with an intentional disregard of or plain indifference to OSHA 
requirements, 

OSHA said the six alleged serious violations were for: 

Failing to ensure that all affected employees such as process operators were 
aware that the process hazards analysis for a polypropylene unit existed and were 
available at the facility; 

Failing to properly handle and clean up spills of combustible polypropylene and 
also failing to develop written procedures to address the scheduling, inspection and 
testing of process valves as part of a comprehensive maintenance program. 



Copyright Schnell Publishing Company Dec 18, 2000 



Dow Projects Growth, Outlines Strategies 

Chemical Market Reporter 

Anonymous 
December 21, 2000 

Dow CHEMICAL expects sales from its Dow Plastics unit to surpass $11 billion by 
the end of the year, versus $9.6 billion in 1999, according to chairman and CEO 
Michael D. Parker. Mr. Parker, who spoke at a press briefing in New York, noted 
that more than half of the 15 percent growth stems from volume growth. 

Mr. Parker says 2001 could be a challenging year for Dow Plastics because of a 
softening global GDP and continued high hydrocarbon and energy costs. But 
volume growth is expected to be similar to 2000. 

Dow Plastics' polyolefms and elastomers business recently completed the 
construction of two major capacity additions, including a 550-million-pound 
polypropylene plant in Freeport, Tex., and a new polyethylene train in Argentina. 

"We now have the capability to make and market our solution polyethylene 
products on four continents," says Romeo Kreinberg, business group president for 
Dow's polyolefins and elastomers businesses. In addition, Dow can run its Insite 
technology at all of its polyethylene plants, according to Mr. Kreinberg. 

Dow r s polyolefins and elastomers businesses are well-positioned for global 
growth, Mr. Kreinberg says. He cites Dow's strong customer base, powerful 
technology, high operating rates, broad product portfolio and drive for product 
efficiency. 

Dow's polystyrene business also completed several expansions recently. At the 
company's Hanging Rock, Ohio, facility, Dow added 25,000 metric tons. In 
Guaruja, Brazil, Dow is upping its capacity from 1 10,000 metric tons to 200,000. In 
October, Dow broke ground for a 120,000-metric-ton plant in Zhangjiagang, China. 

On a company- wide basis, Dow plans to grow its earnings per share (EPS) by 10 
percent from peak to peak and trough to trough. Dow will expand its established 
businesses, complete value-adding mergers, and generate new business growth. If 
successful, Dow will be a $60 billion company by 2010, according to Mr. Parker. 



Copyright Schnell Publishing Company Dec 18, 2000 



GE Plastics Concludes Acquisition of Commercial Plastics; Greg 
Adams Named Commercial Plastic President 

Business Wire 



December 21, 2000 

PITTSFIELD, Mass., Dec 21, 2000 (BUSINESS WIRE) GE Plastics, an 
operating unit of General Electric Company (NYSE:GE), announced today that it 
has completed its acquisition of Commercial Plastics & Supply Company of Boca 
Raton, Fla., a global leader in the marketing, fabricating, and distribution of high 
performance plastic sheet, rod, tube and film products. 

Not included were Nytef Plastics, an extruder of engineering plastics rod and 
plate; Comco Plastics, a custom fabricator of plastics materials; and Transparent 
Protection Systems, Inc. (TPS), a manufacturer of hurricane and storm protection 
systems. The price and other terms of the acquisition were not disclosed. 

GE Plastics also announced that it has named Greg Adams as president of 
Commercial Plastics. Adams also heads Cadillac Plastic, which GE acquired earlier 
this year. The former President and CEO of Commercial, M.R. French, Jr., will 
assist with the transition of the business to GE, reporting to Adams as an executive 
advisor. Separately, French will continue to head the three business operations not 
included in this acquisition, Nytef Plastics, Comco Plastics, and TPS. 

GE Plastics is a leading global manufacturer of high performance engineering 
thermoplastics, with manufacturing facilities and technology and innovation centers 
around the world. GE Plastics supplies a spectrum of high performance resins and 
application development resources to help its customers achieve a competitive edge 
through performance and design differentiation. Sales for GE Plastics in 1999 were 
$6.9 billion. Visit us at http://www.geplastics.com 



CONTACT: Media Contact: 
GE Plastics 

Patrick Brennan (518) 573-6609 

URL: http://www.businesswire.com Today s News On The Net - Business Wire's 
full file on the Internet with Hyperlinks to your home page. 
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Iiitertape Polymer Group Inc. Expects Lower Than Anticipated 
Fourth Quarter Revenues And Earnings 

Business Wire 



December 20, 2000 

MONTREAL, Dec 20, 2000 (BUSINESS WIRE) - Intertape Polymer Group 
Inc.(TSE:ITP.) (NYSE:ITP) today announced it expects that fourth quarter revenues 
are likely to be flat versus third quarter 2000 which were reported as $166.4MM. 

This revenue outlook differs from previous forecasts. 

Melbourne F. Yull, Intertape's Chairman and Chief Executive Officer stated 
"The slowdown in the North American economy has resulted in wavering market 
confidence and the entire industry has been affected by that overall softness. We are 
not immune to this slowdown which has started to impact our growth in the 2nd half 
of December. IPG has successfully completed the integration of the United Tape 
acquisition, and the opening of its Western Regional Distribution Center (RDC) in 
Los Angeles, California on December 7, 2000. The Atlanta, Georgia RDC is well on 
target for a February 2001 inauguration. These events will contribute to the erosion 
of fourth quarter revenue and earnings." 

Mr. Yull also stated "Looking forward, the RDC Program coincides with the 
recent launch of Intertape T s new Business to Business Beta sites. B2B will provide 
our customers with "real time" access to information on-line, such as order status 
and order tracking. These two programs will further reduce transaction costs, 
making IPG a more value-added supplier." 

According to Mr. Andrew M. Archibald, C.A., "We are unable to avoid the 
current industry-wide downturn. Of course, we are disappointed with the results we 
are now experiencing. We anticipate that the slower economy and challenges in the 
packaging industry will continue into the first half of 2001 . In light of this, we are 
taking further actions to reduce the Company's expense structure, and have 
implemented additional plans and programs to move the Company forward next 
year. In that regard, we expect 2001 revenues to increase approximately 20.0% to 
$800MM. 



The Company isxeducing its 2001 EPS estimate to a range between $1.40 and 
$1.60." 

The Company will hold a conference call December 21, 2000 at 10:30 a.m. EST 
to discuss its business performance. The conference call can be accessed by dialing 
1-888-313-1671, mention access code 17378304. A replay of the call will be 
available until December 28. 2000 at 12:30 n.m. EST. To access the nlavback. dial 



1-800-633-8284 for North America domestic and 1-858-812-6440 for International. 
Mention access code 17378304. 

Intertape Polymer Group Inc. develops, manufactures and markets a wide 
variety of specialized polyolefin plastic and paper based packaging products and 
systems for industrial and retail use. The Company is based in Montreal, Quebec 
and Sarasota, Florida with manufacturing facilities in twenty North American and 
European locations. 

This release contains statements that are forward-looking within the meaning of 
Section 27A of the Securities Act of 1933 and Section 21E of the Securities 
Exchange Act of 1934. Forward-looking statements involve known and unknown 
risks and uncertainties, which may cause the Company's actual results in future 
periods to differ materially from forecasted results or forward-looking statements. 
Those risks and uncertainties include, but are not limited to: 

- risks associated with pricing, volume and continued strength of markets where 
the Company's products are sold, and the timing and acceptance of new product 
offerings. 

- actions of competitors as are described in the Company's filings with the 
Securities and Exchange Commission (SEC) over the last twelve months. 

- the Company's ability to successfully integrate the operations and information 
systems of acquired companies with its existing operations, and information system, 
including risks and uncertainties relating to its ability to achieve projected earnings 
estimates, achieve administrative and operating cost savings and anticipate 
synergies. 

- the effect of competition and raw material pricing on the Company's ability to 
maintain margins on existing or acquired operations. 

The Company does not undertake to publicly update or revise its forward- 
looking statements even if experience or future changes make it clear that any 
projected results expressed or implied therein will not be realized. 

(stated in U.S. dollars) (reported using Cdn GAAP other than as noted) 



CONTACT: Intertape Polymer Group Inc. 
Melbourne R Yull 
Tel: 514/731-0731 



Email: itp$info@intertapeipg.com Website: www.intertapepolymer.com 



URL: http://www.businesswirexom Today s News On The Net - Business Wire's 
full file on the Internet with Hyperlinks to your home page. 
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Three Cities Vie As East Greenbush, N.Y., Plastics Firm Looks for Lab 
Sites 

Knight Ridder/Tribune 

Kenneth Aaron , Times Union, Albany, R Y. 
December 27, 2000 

Dec. 20- John Ciovacco expects that his company, Cyclics Corp., will make 50 million 
pounds of plastic a year by 2005. Now he only needs to find a new home. 

Plenty of people are hoping to finish his search. 

Ciovacco is working politicians and talking to officials in Rensselaer, Schenectady and 
Watervliet who want to roll out the welcome mat for Cyclics. 

The 18-person company currently is running out of space at its two company locations 
the University at Albany's East Campus in East Greenbush, where it has about 4,000 
square feet, and in Clifton Park, where it has 2,000. In a month, though, he's expecting 
to decide on where to move. 

Recruiters want businesses like Cyclics ~ high-tech companies on steep growth tracks 
that need lots of scientists (and pay scientist salaries — about $60,000 a year, in this 
case). 

Ciovacco, who lives in Schenectady and went to Union College, wants to stay in the 
Capital Region. He wants at least 20,000 square feet and room to double or triple that. 
He wants to open by the second or third quarter of 2001 . And he also wants some help 
in outfitting space for a laboratory — a $1 .5 million endeavor - and in buying $2 
million to $3 million worth of equipment. 

Nobody has stepped forward with a firm offer yet, but there is interest in attracting a 
company that plans to double its 18-person staff by next year and to grow to 250 
workers by 2005. 

Here are some of the pitches Ciovacco is considering: 

- "I think they're a great fit and I think we've got a great spot for them," said Harry 
Apkarian, vice chairman of the Metroplex Development Authority in Schenectady. 

The place Apkarian has in mind, a one-time Schenectady International building, is 
already outfitted with laboratories. 

Another site in Schenectady, at the Nott Street Industrial Park, holds promise, too, 
Ciovacco said. 



— In Watervliet, Ciovacco has looked at the Arsenal That location would come with 
the services of Benet Laboratories at his disposal - "the most sophisticated laboratory 
in metallurgical sciences in the country," said Tony Gaetano, president of the Arsenal 
Business and Technology Partnership. "They're the best at what they do." 

Gaetano has been trying to bring private companies to the arsenal for months now, 
though his policy is to not speak of any ongoing negotiations. His first private tenant, 
copper-foil maker Oak-Mitsui Inc. of Hoosick Falls, will rely on Benet. And Ciovacco 
was intrigued by working with the laboratory. 

Not to mention that the arsenal is located in an Empire Development Zone, which 
opens the door to significant incentives and other tax breaks. 

~ But he hasn't ruled out moving into a brand-new building that Broadway 
Development Group of Rensselaer would build near his current headquarters, a 
57,000-square-foot plant. 

The communities in the running for Cyclics are not gearing up for a no-holds-barred 
scrap to lure the company, from the sounds of things. 

"These guys have not tried to start a bidding war," said George Robertson, chairman of 
Schenectady Economic Development Corp. "And good companies don't." 

Ciovacco, for his part, said he expects whatever deal results will be similar to anything 
he could win by heading south. Not that he wants to. 

Of course, the company's impending relocation is shaping up at the same time that 
General Electric Co.'s Power Systems headquarters appears poised to move to Atlanta. 

The reason, said new Power Systems head John Rice, is that recruitment and retention 
is easier down there. 

But that's not what Ciovacco has found. The airport here, he said, is so much more 
pleasant to navigate than in a really big city. "There's also a lot of technology that's 
specific to our business right in this area," he said, from GE Plastics' headquarters in 
Pittsfield, Mass., to GE's research and development labs in Niskayuna, to the local 
colleges that are a source of talent. 

The plastic that Cyclics hopes to make will churn out of a factory somewhere else. 
New York is a tough state to build a chemical factory in, Ciovacco said. 

Its new building will be home to research and development, customer service and other 
functions. 

The company's plastics are based off 48 patents bought from GE last year. The resins, 
when melted down, are easilv moldable and readilv combined with other strengthening 



materials, such as carbon fiber. 



To see more of the Times Union, or to subscribe to the newspaper, go to 



Lyondell Announces 2001 Capital Budget 
PR Newswire 

December 21, 2000 

HOUSTON, Dec 21, 2000 /PRNewswire via COMTEX/ - Lyondell Chemical 
Company (NYSE: LYO) today announced the 2001 capital expenditure budget for 
Lyondell and its Equistar Chemicals, LP and LYONDELL-CITGO Refining LP 
(LCR) ventures. Lyondell's capital budget is approximately $348 million, including 
the Company's proportionate share of capital spending for Equistar and LCR. 

The components of the 2001 capital budget, 2000 estimated capital expenditures 
and 2001 estimated depreciation and amortization are shown below. 

CAPITAL EXPENDITURES AND DEPRECIATION & AMORTIZATION 

Millions Intermediate Equistar LYONDELL- Lyondell and 
of dollars Chemicals & Chemicals(B) CITGO Proportionate 
Derivatives Lyondell has Refming(B) Share of 
Lyondell owns 41% Lyondell has Equity 
100% ownership 58.75% Investments 
ownership 

2001 Capital Budget $ 216 $ 166 $ 109 $ 348 

2000 Estimated 

Capital 

Expenditures $ 1 15(A) $ 130 $ 60 $ 204 



2001 Estimated 
Depreciation & 

Amortization $ 240 $ 300 $ 1 15 $ 443 



(A) Amount does not reflect reimbursement from Bayer related to PO-1 1 
joint venture. 

(B) Amounts shown for joint ventures are on 100% basis. 

The increase in the capital budget for Intermediate Chemicals and Derivatives 
primarily reflects Lyondell's 50 percent share of capital for the PO-1 1 joint venture 
with Bayer AG. As previously announced, Lyondell and Bayer have formed a 
manufacturing joint venture for the world-scale propylene oxide/styrene monomer 
facility, which is currently under construction in the Netherlands. Lyondell and 
Bayer will each have a 50 percent interest in the joint venture. Under the terms of 
the agreement, Bayer has purchased its interest in PO-1 1 from Lyondell with a cash 
reimbursement of approximately $50 million, or 50 percent of the project costs 
incurred by Lyondell for PO-1 1 to date. Future costs will be shared on an equal 
basis by both companies. 

Equistar's capital spending in 2001 primarily will target projects to improve 
operational excellence and plant efficiencies, as well as high return business 
opportunity projects. 

Capital expenditures in 2001 at LCR will increase from 2000 because of higher 
spending on regulatory compliance, maintenance and cost reduction projects. 

Lyondell Chemical Company (www.lyondell.com), with headquarters in 
Houston, Texas, is the world's largest producer of propylene oxide (PO); the world's 
number two supplier of TDI (toluene diisocyanate); a leading producer of propylene 
glycol; a leading producer of other PO derivatives such as BDO (butanediol) and 
PGE (propylene glycol ether); and a producer of styrene monomer and MTBE as 
co-products of PO production. Through its 41% interest in Equistar Chemicals, LP, 
Lyondell also is one of the largest producers of ethylene, propylene and 
polyethylene in North America and a leading producer of polypropylene, ethylene 
oxide, ethylene glycol, high value-added specialty polymers and polymeric powder. 
Through its 58.75% interest in LYONDELL-CITGO Refining LP, Lyondell is one 
of the largest refiners in the United States, processing extra heavy Venezuelan crude 
oil to produce gasoline, low sulfur diesel and jet fuel. Lyondell is the third largest 
methanol producer in the U.S.. throueh its 75% interest in Lvondell Methanol 



Company, L.P. 

The statements in this release relating to matters that are not historical facts are 
forward-looking statements that are subject to risks and uncertainties, including, but 
not limited to, future global economic conditions, industry production capacity and 
operating rates, the supply/demand balance for the Company's products, competitive 
products and pricing pressures, further increases in raw material costs, changes in 
governmental regulations and other risks and uncertainties detailed in the Securities 
and Exchange Commission filings of Lyondell. 

SOURCE Lyondell Chemical Company 



CONTACT: media, Marvin Brown, 713-309-2643, or investors, Sami Ahmad, 

713-309-7141, both of Lyondell Chemical Company 

Photo: NewsCom: http://www.newscom.com/cgi- 
bin/prnh/20000921/LYOLOGO AP Archive: http://photoarchive.ap.org PRN Photo 
Desk, 888-776-6555 or 201-369-3467 

URL: http://www.Ivondell.com http://www.prnewswire.com 

(C) 2000 PR Newswire. All Rights Reserved. 



Pechiney unit wins patent infringment recommendation against 
Continental PET 

AFX News Limited 



December 19, 2000 

CHICAGO (AFX) - Pechiney Plastic Packaging Inc said it won a key 
recommendation against Continental PET Technologies Inc saying Continental PET 
has infringed Pechiney patents in making bottles for HR Heinz Co ketchup and 
Miller beer. 

Pechiney said the recommendation in a lawsuit begun in 1990 involved patents for 
plastic container coinjection technology used primarily for products such as ketchup 
and beer. 

Under the District Court's procedures, Continental PET has 30 days to appeal the 
recommendation. 

If the recommendation is confirmed, "Pechiney believes that it will be able to 
establish its entitlement to significant damages and other relief from CPT, based 
upon the large number of allegedly infringing products manufactured by CPT for 
almost a decade," it said. 



Copyright 2000 AFX News Limited. All Rights Reserved. 



Solutia to Cut 700-800 Jobs, Miss 4th-Qtr Projections (Update3) 



Bloomberg 

Mark Johnson 

December 18, 2000 

St. Louis, Dec. 18 (Bloomberg) - Solutia Inc. will eliminate as many as 800 jobs, or 
as much as 7.5 percent of its workforce, as the specialty chemical maker struggles 
with slowing economies in the U.S. and Europe and rising natural gas prices. 

The company will cut 700 to 800 full-time jobs and reduce its senior management, 
which includes vice presidents and general managers, by 20 percent, spokeswoman 
Liesl Livingston said. The St. Louis-based company also said fourth-quarter 
earnings will miss expectations. 

The higher cost of natural gas, which is used by Solutia both as a raw material and 
an energy source, has hurt earnings, along with a slowdown in the U.S. and 
European economies, the company said. Solutia reported in October that third- 
quarter profit fell 59 percent from a year earlier. 

* "Certainly they're getting heavily hurt by higher natural gas prices," said Jeffrey 
Peck, an analyst with Bear, Stearns & Co. "Lowering their headcount is something 
they probably need to do. Will it make up for the rising cost of energy? No way." 

Natural gas is the company's main energy source and prices have more than tripled 
in the past year. Natural gas also is a component in the production of ammonia, used 
in many of the company's products. 

The shares of Solutia rose 6 cents to $10.94 in New York Stock Exchange trading. 
They have fallen 29 percent this year. The company makes Wear-Dated brand nyloa 
carpet fibers as well as chemicals, resins and plastics used to make detergents, 
paints, tires and other products. 

The company also will cut the number of contractors it uses by 400. 

The job cuts are expected to save the company about $100 million pretax annually. 
Decisions on where the reductions will occur will be made in the first quarter, 
Livingston said. The company has about 10,600 employees. 

Solutia now expects to earn about 12 cents a share in the fourth quarter, before 
charges of $90 million to $100 million. It was expected to earn 17 cents a share, the 
average estimate of nine analysts polled by First Call/Thomson Financial. 



COPYRIGHT 2000 Bloomberg. All rights reserved. 



Eastman CEO Says Units' Sales Unlikely in 2001: Bloomberg Forum 



Bloomberg 

Brett Chase 

December 18, 2000 

Kingsport, Tennessee, Dec. 18 (Bloomberg) Eastman Chemical Co., the largest 
maker of plastics used in soda bottles and fibers used in cigarette filters, wants out 
of those businesses, though a 2001 sale is unlikely, its chief executive said. 

Earnest Deavenport, chairman and CEO of Kingsport, Tennessee- based Eastman, 
said the chemical company wants to sell or cut back its polyethylene terephthalate, 
or PET, business, which makes plastics used in bottles and other containers, and its 
acetate tow unit, which makes fibers for cigarette filters. 

Eastman has said it wants to buy faster-growing specialty plastics and chemicals 
businesses. Investors are anxious for Eastman to shed all or part of its slow-growing 
lines, though Deavenport said an exit isn't likely next year. That, he said, is good 
news for now, since both the cigarette-filter and PET units are expected to 
contribute substantially to earnings next year. 

PET is "going to be a very good business, 11 Deavenport told the Bloomberg Forum. 
"It's growing at greater than 10 percent. The margins are improving on the business. 
We think the up cycle could last another three years." 

Eastman is forecast to earn $3.90 a share in 2000 and $4.19 in 2001, the average 
estimates of analysts polled by First Call/Thomson Financial. 

Deavenport declined to say when Eastman, spun off by Eastman Kodak Co. in 
1994, would shed its slow-growth businesses, which include a smaller polyethylene 
business that makes films and plastic sheets. 

"Obviously you can f t wait till you get to the peak of the cycle and then say, 'Well, I 
don't want this business anymore.' So you have to lay plans to do something well 
ahead of that time," he said. 



Market Share 



Finding a buyer for either the cigarette-filter or PET plastics business could be 
difficult because a sale would give Eastman's competitors too much control of the 
dobal market. Its bieeest rivals are KoSa BV of Houston and Nan Ya Plastic Core. 



of Taiwan in PET plastics and Celanese AG of Germany in acetate tow. 

One option, Deavenport said, is some sort of joint venture that would leave Eastman 
as a partial owner while reducing its exposure to down cycles. One such period hurt 
Eastman's earnings in 1999, when the company fired 1,200 workers, or 7.5 percent 
of its workforce. 



High Growth 



Eastman would rather be known for creating coatings, adhesives and other products 
that are considered higher-growth areas than commodity plastics and chemicals. 

Eastman acquired McWhorter Technologies Inc. of Carpentersville, Illinois, in July 
for cash and assumed debt of about $355 million to build its coatings and adhesives 
business. 

Its polyethylene business will likely be sold because Eastman is too small a player. 
A fine-chemicals unit, which makes a variety of products such as the non-chlorine 
bleach in laundry detergent, is being auctioned, and an agreement to sell could be 
struck by the first quarter, Eastman Chief Financial Officer James Rogers said. 

Eastman will continue to look for acquisitions of as much as $500 million in 
specialty plastics and chemicals, Deavenport said. 

"You can count on us being very opportunistic," Deavenport said. 

Eastman, which was created in 1920 to make photographic chemicals for Eastman 
Kodak, the world's biggest photography company, isn't interested in a merger with a 
like-sized competitor, Deavenport said. 

Eastman, like other chemical makers, faces problems as the cost of materials rises 
and the economy slows. Oil prices have risen about 16 percent this year, while 
natural gas prices have nearly tripled. Oil and gas affect about a third of Eastman's 
production, Deavenport said. 

PET plastics are unlikely to get hit hard in a soft economy because bottled soft- 
drink sales are generally not significantly affected, Deavenport said. 



COPYRIGHT 2000 Bloomberg. All rights reserved. 



Riverside, Calif., Approves Bonds for Sayreville, N.J.-Based Plastics 
Firm 

Knight Ridder/Tribune 

Jared O. Wadley , The Press-Enterprise, Riverside, Calif. 

December 20, 2000 

Dec. 20--RIVERSIDE, Calif.-Plastics manufacturer Sabert Corp. received approval 
Tuesday from the city of Riverside to receive up to $8 million in bonds, completing the 
first step toward constructing a new plant in the city next year. 

The Sayreville, NJ.-based company wants to build the plant on 16.6 acres on the 
southeast corner of Palmyrita Avenue and Northgate Street in Hunter Business Park. 
The plant will be developed in three phases, totaling 325,000 square feet and creating 
300 jobs. 

On Tuesday, the Riverside City Council, sitting as the city's Industrial Development 
Authority, unanimously approved a motion for Sabert to receive bonds not exceeding 
$8 million. A public hearing is set for Jan. 9, 2001 , 

Before the city can issue the bonds, they must be approved by the state, said Gary 
Ziznewski, Sabert vice president of finance and logistics. 

Two state agencies will review the bonds — the California Debt Limit Allocation 
Committee and the California Industrial Development Financing Advisory 
Commission. Voting from both agencies should be completed by February, said Kevin 
Palmer, director of Riverside's economic development department. 

Palmer said the financing team has not determined the length of the loan, but it's 
typically 15 to 20 years. The loan is guaranteed through a letter of credit from the 
borrower, so the city is not responsible for any loan defaults, he said. 

The company might begin construction on the new facility during the second quarter 
2001. First-phase work should be completed in six to nine months, Palmer said. 

Founded in 1982, Sabert makes plastic platters, bowls, plates, containers lids and 
utensils. The company also recycles plastic. 

By opening a Riverside plant, it eases the capacity constraints at Sabert's corporate 
headquarters and allows for better service to West Coast customers, officials said. 

Palmer said Sabert picked the Hunter Park site for it's rail accessibility and location in 
an enterprise zone. Also, the company could better control its costs because Riverside 
operates its own public utility, he said. 



The first phase which involves a 120,000-square-foot building with office, 
manufacturing and warehouse space ~ will employ 35 people. 

Phase Two, built at least two years later, will add 102,000 square feet. This building 
will hold finished goods packaging and warehousing, while the first phase building 
will specialize in manufacturing. 

The third phase, built by 2005, adds another 103,000 square feet. 



To see more of The Press-Enterprise, or to subscribe to the newspaper, go to 



Auto Supplier Helps Boost GM Diversity Minority-Owned Firm 
Lands Five- Year, $1.2 Billion Contract to Make Fuel Tanks for 
Automaker 

The Detroit News 

Tenisha Mercer The Detroit News 
December 20, 2000 

DETROIT The 20 pounds of black plastic that sits on Chuck Young's desk is not 
ordinary plastic. It's the beginning of a plastic fuel tank that Young's employer, 
Vitec LLC, manufactures. 

Vitec makes 800,000 fuel tanks annually for General Motors Corp., Ford Motor 
Company and DaimlerChrysler AG. Housed in a 144,000- square-foot plant on 
Clark in Detroit's Empowerment Zone, the auto supplier is a joint venture between 
Greenwood Holdings and TI Group Automotive Suppliers. 

Greenwood Holdings is owned by a group of minority investors, including 
industrial mogul William Pickard, owner of Regal Plastics in Roseville and 
chairman of Vitec. Greenwood owns 52.5 percent of Vitec. TI Group is a London- 
based auto supplier that manufactures fuel tanks and fuel storage delivery systems 
and owns the rest of Vitec. 

"The Big Three recognize that, in order to sell cars to more minorities, they need 
to employ more minority (companies)," said Young, chief financial officer for 
Vitec. 

Young points to Vitec's diverse executive staff with pride. At least 80 percent of 
the company's executive management is African American or Hispanic, Young said. 

"Minorities play a huge role in the company," Young said. "We don't just talk 
diversity." 

Vitec, which has 250 employees and earned $150 million in sales last year, just 
landed a five-year, $1 .2-billion contract to supply fuel tanks for General Motors, its 
largest client. Begun in 1997, the company manufactures fuel tanks for the Pontiac 
Grand Prix, Chevrolet Monte Carlo, Buick Regal and Buick Century, Young said. 

Vitec's business with GM is part of the automaker's goal to increase spending 
with minority suppliers. Last year, GM spent 5 percent - or $3.3 billion - of its 
purchases with minority suppliers and subcontractors, said J. David Allen, director 
of the supplier diversity group at GM. 

GM plans to spend 5.5 percent of its purchases with minority suppliers this year, 
and Allen said he exoects the comoanv to exceed that soal. GM awarded Vitec a 



five-year, $700-million contract that runs from 1999 to 2004. In June, Vitec was 
awarded an additional five- year, $500-million contract beginning in 2004, 

Before Vitec, GM had no minority suppliers manufacturing fuel tanks, Allen 
said. 

"We're very proud of Vitec," Allen said. "We think very highly of the company. 
We want to make sure minorities participate in all phases of our supplier process." 

Still, challenges are ahead for Vitec, which, like other auto suppliers, is battling 
consolidation, shrinking market share and increased technology costs. 

"Managing growth is a challenge," Young said. "We don't want to grow too 
quickly, but we don't want to be stagnant." 

For now, ideas about expansion loom. The company has options to buy four 
additional acres on its property and plans to add four blow molding machines, 
which manufacture fuel tanks, to its three machines, Young said. 



(C) 2000 The Detroit News, via Bell&Howell Information and Learning 
Company; All Rights Reserved 



Jury Hits Phillips in Blast Trial 



Tulsa World 

AP 

December 19, 2000 

HOUSTON (AP) - Though a jury awarded about $117 million Monday to the 
family members of a worker killed in the June 1999 explosion at a Phillips 
Petroleum Co. chemical plant, Texas law will allow them to receive only a fraction 
of the money if the judgment is upheld. 

A Harris County jury ordered Bartlesville-based Phillips to pay $7.85 million in 
damages and $110 million in punitive damages. The company quickly promised an 
appeal. 

However, state law limits punitive damages, and plaintiffs' attorney John Eddie 
Williams said the end sum could be much less. 

"It looks like it could take away over $100 million of the punitive/ 1 said 
Williams, who represents the widow of Juan Martinez Jr., one of two workers killed 
in the blast. 

Company attorney Reagan Simpson estimates the punitive award will shrink to 
about $3.2 million. 

Some jurors were angry afterwards that state law would drastically reduce the 
damages they prescribed. The reduction will occur because jurors found no 
intentional wrongdoing by the company. 

Williams had asked jurors for about $440 million. Company lawyer Kenneth 
Tekell argued for damages closer to $3 million. 

"Our sympathy goes out to the Martinez family for their loss, and we agree that 
the family deserves to be compensated at a reasonable level," the company said in a 
statement. "However, we believe this verdict is excessive and in error and, 
accordingly, we intend to file an appeal." 

Martinez and his uncle, Jose Inez Rangel, were working near the K- Resin 
reactor at Phillips' Houston Chemical Complex on June 23, 1999, when a series of 
operator errors caused the explosion that killed them and injured four others. 

K-Resin is a clear plastic used in drinking cups and other applications. 



(C) 2000 Tulsa World, via Bell&Howell Information and Learning Company; 
AH Rights Reserved 



Solatia Plans to Trim As Many As 800 Jobs Softening Economy, 
Higher Natural Gas Prices Have Led to Lower Earnings 

St. Louis Post-Dispatch 

Cynthia Wilson Of The Post-Dispatch Bloomberg News Contributed Information 
For This Story. 
December 19, 2000 

St. Louis-based Solutia Inc. said Monday that its fourth-quarter earnings will miss 
expectations and that the specialty-chemical maker will eliminate as many as 800 
jobs as part of a plan to cut costs. 

Solutia, which was spun off from Monsanto in 1997, will also reduce its pool of 
contractors by 400, said Liesl Livingston, Solutia's director of investor relations. 
The job reductions, which will range from 700 and 800 full-time positions, account 
for about 7.5 percent of Solutia's workforce. 

It's unclear how many jobs will be lost in the St. Louis area. But most of the cuts 
are expected to occur in Solutia's Integrated Nylon business, Livingston said. That 
business has operations in Atlanta, Ga., Greenwood, S.C., Pensacola, Fla., Decatur, 
Ala., and Chocolate Bayou, Texas. 

About 20 percent of Solutia's senior management team are included in the job 
reduction tally, Livingston said. Decisions on where the reductions will take place 
will be made in the first quarter, she said. Solutia employs about 10,600 workers, 
including 1,500 locally. 

Solutia makes high performance chemical materials for industrial firms and 
provides research and development services for pharmaceutical companies. It 
expects to earn about 12 cents a share, before charges of $90 million to $100 
million. The company was expected to earn 17 cents a share, the average estimate of 
nine analysts polled by First Call/Thomson Financial. 

The higher cost of natural gas, which Solutia uses as a raw material and as an 
energy source, along with a slowdown in the U.S. and European economies, has 
hurt earnings, Livingston said. Solutia had about 50 percent of its natural gas cost 
hedged in the fourth quarter. But the company was at the mercy of the spot market 
for the remaining 50 percent, Livingston said. 

Solutia said in October that third-quarter profit fell 59 percent from a year 
earlier. Despite the profit decline, demand for its nylon products was still good, 
Livingston said. But that suddenly slowed in the last couple of months. She said 
some customers are resisting recent price increases. 

"We did a sood iob of estimating the inventory corrections that needed to 



occur," Livingston said."But we didn't do a good job of estimating the impact of the 
economy." 

Livingston said the job cuts, coupled with savings from a new integrated 
software system, are expected to save Solutia about $100 million pre-tax annually. 
About 50 percent of those savings are expected in the coming year, with the full 
amount realized in fiscal year 2002, Livingston said. 

Solutia shares closed unchanged at $ 1 1 . The shares are down 27 percent this 
year. 



(C) 2000 St. Louis Post-Dispatch, via Bell&Howell Information and Learning 
Company; All Rights Reserved 



Solvay CEO says co's contribution to polymers deal Tar bigger' than 
BP f s 

AFX News Limited 



December 19, 2000 

BRUSSELS (AFX) - The size of the assets Solvay SA has put into today's asset 
exchange and joint venture establishment with BP Amoco PLC on their polymers 
businesses in Europe and the U.S. is far larger than those BP has contributed, 
Solvay CEO Alois Michielsen said. 

Asked what top-up financial payments would be made, he declined to give financial 
details of the deal - on which the companies signed a memorandum of 
understanding - saying these will only be revealed in the second half of next year 
after completion of the deal in June. 

"The size of Solvay's contribution is significantly higher than that of BP. This is a 
megadeal, covering assets with sales of 2.9 bin eur a year," he said in a conference 
call 

The deal will be "positive" for EPS, he said, adding it allows Solvay to concentrate 
on core, high added value and highly profitable sectors like engineering polymers, 
where its sales will double to 700 mln eur as a consequence of the agreement. 

The joint ventures with BP in high density polyethylene will make the combined 
business the second or third largest player in the world, compared with fifth for 
Solvay and 12th for BP at present, he said. 

By transferring its polypropylene business, which has annual sales of 500 mln eur, 
to BP, Solvay is exiting a highly cyclical sector where major restructuring has 
produced larger leading players and it is harder to compete, he said. 

He said Solvay is leaving the polypropylene sector to further its strategy of 
developing its leadership positions elsewhere and moving into growing innovative 
high-yield markets. 



Copyright 2000 AFX News Limited. All Rights Reserved, 



Castle Harlan Purchases Leading Maker of Specialty Packaging for 
Frozen Foods 

PR Newswire 



December 19, 2000 

NEW YORK, Dec 19, 2000 /PRNewswire via COMTEX/ Castle Harlan, Inc., the 
New York merchant bank, announced today that it has acquired a controlling 
interest in Associated Packaging Enterprises, Inc. (APEI), a leading manufacturer of 
specialty packaging for frozen foods. Terms of the transaction were not disclosed. 

Senior APEI management will retain a significant ownership stake in the 
company, Castle Harlan said. 

APEI is one of the world's largest producers of crystallized polyethylene 
terephthalate (CPET) containers and is the largest supplier of CPET packaging to 
the frozen food industry throughout the world. APEI employs proprietary formulas 
and processes, which combine to create containers that are unparalleled in cost and 
performance. The company sells more than one billion trays per year. 

APEI's primary customers in the frozen food industry include Nestle Frozen 
Foods, ConAgra Frozen Foods, Celentano and Luigino's, Inc. The packaging can be 
used in both conventional and microwave ovens and is recyclable. 

"APEI has grown rapidly by delivering high quality, proprietary containers at 
competitive prices," said Marcel Founder, managing director at Castle Harlan. "The 
company develops customized solutions to the unique packaging needs of its 
customers. Its blue-chip customer base and leading market share attest to the value 
of its products." 

"Demographic trends support continued strong growth in the frozen food 
industry," Fournier said. "In addition, we are confident that APEI's experienced 
management team will maintain the company's outstanding position in its core 
business, and we expect to be able to develop important new growth opportunities." 

The closely held, private company is based in Jupiter, Florida, and has 
manufacturing and distribution facilities in Cambridge, Ontario, and Waynesville, 
North Carolina. 

"We are very fortunate to have found a partner with the strengths and the 
experience of Castle Harlan," said Jon C. Buff, APEI's chief executive officer. 
"Castle Harlan is well known for the outstanding support it gives to its portfolio 
companies, and we look forward to a successful and rewarding relationshio with the 



firm. 



The investment in APEI will be made by Castle Harlan Partners III, L.P., a $630 
million private equity investment fund organized and managed by Castle Harlan, 
Inc. 

Since its founding in 1987, Castle Harlan has completed acquisitions exceeding 
$4.5 billion. Its portfolio companies currently include Universal Compression, a 
leading independent provider of natural gas compression equipment and services, 
and Marie Calender's Restaurant and Bakery, a chain of family restaurants best 
known for its freshly baked pies. 

Other portfolio companies include Worldwide Flight Services, the leading 
global provider of ground services to the aviation industry; the Verdugt B.V. group, 
a leading producer and distributor of organic salts; Adobe Air, one of the nation's 
leading manufacturers of evaporative coolers and portable electric heaters, and 
Gravograph Industrie International, the world's leading maker and seller of 
machines, accessories and materials used in the engraving industry. 

Castle Harlan was founded by John K. Castle, an early pioneer of 
institutionalized private equity investing and the former president and chief 
executive officer of Donaldson, Lufkin & Jenrette, Inc., and by Leonard M. Harlan, 
founder and former chairman of the Harlan Company, a diversified real estate and 
corporate finance advisory firm. 

SOURCE Castle Harlan, Inc. 



CONTACT: Charles Storer, 212-371-2200, for Castle Harlan, Inc. 
http://www.prnewswire.com 
(C) 2000 PR Newswire. All Rights Reserved. 



Rohm And Haas Updates Outlook for Fourth Quarter 
PR Newswire 



December 19, 2000 

PHILADELPHIA, Dec 19, 2000 /PRNewswire via COMTEX/ Rohm and Haas 
Company (NYSE: ROH) today said that, after two months of financial performance 
that were on track with expectations, it is seeing further slowing in end-use markets 
in both North America and Europe. Lower demand, as well as higher energy costs, 
will result in a deterioration in December's financial performance. Chairman and 
CEO Raj L. Gupta noted that the company booked earnings of $.12 per share in 
both October and November, but now expects December earnings to be in the range 
of $.05 to $.10 per share, bringing the expected total to $.29 to $.34 per share for the 
fourth quarter of 2000. 

Gupta cited the number of recent warnings from paint and coatings companies, 
building materials suppliers and home improvement stores as strong evidence of 
additional slowing in key markets for the company's Performance Polymers 
Business Group. Some customers also have recently announced plant shut downs 
and major inventory corrections for the end of the year. Consequently, Performance 
Polymers' volume growth is likely to be down compared with the same period a 
year ago. And even though raw materials should remain at current levels, a recent 
surge in energy costs, most notably natural gas prices, continues to plague 
profitability as the year comes to a close. In addition, results for some segments of 
the Chemical Specialties Business Group have been weaker than anticipated. 

Continued strong demand for Electronic Materials' technologies, a solid 
performance by the North American Salt business, and good internal cost control 
remain bright spots for Rohm and Haas. Gupta said that Electronic Materials has not 
seen evidence of slowing in its businesses, in spite of concerns voiced by customers 
about selected market segments. Gupta attributed the ongoing strength of Electronic 
Materials to that fact that many of its products are targeted to fast-growing 
technologies such as deep UV photoresists and CMP pads and slurries, while the 
remainder of its products are used across diverse market segments. 

In accordance with SEC guidelines, including the recent Fair Disclosure 
guidelines, Rohm and Haas will issue final results for its fourth quarter and full-year 
financial performance on January 29, 2001. Information on how to participate in the 
fourth quarter earnings teleconference which will be held on January 30, 2001 will 
be available on the company's website (www.rohmhaas.com) as of January 15th. 
After December 23rd, Rohm and Haas will observe a "quiet period" which will 
extend until the January 29th earnings release. During this quiet period, Rohm and 
Haas representatives will be unable to comment about Rohm and Haas's exoected 



financial results for the quarter. 



This release includes forward-looking statements. Actual results may vary 
materially, due to changes in raw material and energy costs, foreign currency 
exchange rates, global economic demand, selling prices, competitive pressures and 
changes in technology. Additional factors related to future expectations are detailed 
in the company's filings with the Securities and Exchange Commission, including 
the Form 10-Q for the third quarter of 2000. 

Rohm and Haas technology is found in paints and coatings, adhesives and 
sealants, household products, personal computers and electronic components, and 
construction materials. It also helps bring food to the table - fruits and vegetables - 
and salt, an essential ingredient for life. The company has annual sales of 
approximately $7 billion and employs more than 20,000 people. The company 
operates approximately 150 manufacturing and research sites in 27 countries around 
the world. 

SOURCE Rohm and Haas Company 



CONTACT: Investors: Cheryl Martin, Investor Relations Manager, 
215-592-2664, or Media: Laura Hadden, Business Communications Manager, 
215-592-3054 

Company News On-Call: http://www.prnewswdre.com/comp/763050.html or fax, 
800-758-5804, ext. 763050 

URL: http://w r ww.rohmhaas.com http://www.prnewswire.com 
(C) 2000 PR Newswire. All Rights Reserved. 



Royal Dutch/Shell-BASF venture temporarily to shut down German, 
UK, U.S. lines 

AFX News Limited 



December 19, 2000 

AMSTERDAM (AFX) - Royal Dutch/Shell and BASF AG ? s 50-50 pet joint venture 
Basell NV said it plans temporarily to shut down polypropylene production lines 
due to a "serious supply/demand imbalance in the polypropylene industry". 

Two production lines will be shut down in Wesseling, Germany, for 12-18 months, 
Basell's president for its European polypropylene business Robert Genin said. 

The Carrington, UK, line will go into shutdown in January for an undefined period 
while the one in Texas will be "idled", Basell said. 

The total annual capacity of all the lines shut down represents about 5,000 
kilotonnes, it added. 

"We will now have the time and opportunity to do maintenance and technology 
upgrades so the line will be a more cost effective unit with enhanced capability 
when the situation improves," Basell North America president Charles Platz said. 



Copyright 2000 AFX News Limited. All Rights Reserved. 



BP, Solvay in polymers agreement in Europe, U.S. 
AFX News Limited 



December 19, 2000 

LONDON (AFX) - BP and Solvay said they signed a memorandum of 
understanding in a bid to strengthen their polymers business in Europe and the U.S. 

In Europe, Solvay will transfer its polypropylene business to BP. The two 
companies will also combine their European high-density polyethylene (HDPE) 
businesses into a 50-50 joint venture. 

In the U.S., the agreement will lead to Solvay and BP creating a 5 1 -49 joint venture 
for Solvay's current HDPE business and Solvay transferring its polypropylene 
business to BP. 

In addition, BP will transfer its engineering polymers business to Solvay. The 
transaction involves businesses with a combined turnover of 2.6 bin usd. 

BP said the deal gives BP an equity position in the U.S. HDPE market to support 
the growth of its olefins business. 

BP's polypropylene production will increase to 3.1 mln tonnes per year, while the 
U.S. and European joint ventures in HDPE will give BP and Solvay about 2.2 
million tonnes of annual production. 

The proposed transaction will be subject to the final agreement of both parties and 
to regulatory approval by the relevant authorities, as well as consultation with 
workers' representatives. Completion is anticipated in mid-2001. 



Copyright 2000 AFX News Limited. All Rights Reserved, 



Princedale considering reverse takeovers, offers for company 
AFX News Limited 



December 19, 2000 

LONDON (AFX) - Princedale Group PLC, the display and merchandising and 
plastics group, said it is considering a range of strategic options, including reverse 
takeover opportunities or offers for the company. 

"These considerations will take a number of weeks and the board will revert to 
shareholders as appropriate," said Princedale chairman Stephen Bennett. 

The group also announced the sale of Sloane Group for 14.8 mln stg in cash to The 
Marmon Group Ltd, a unit of Marmon Holdings Inc. 

Princedale said that following the sale, it will have net cash in excess of 15 mln. 

The company said it sold the Sloane Group because the market in which it operates 
is currently highly fragmented, and, in the next few years, is likely to consolidate 
into a smaller number of larger operators. 

Princedale also announced interim results for the six months to Oct 31, 2000 that 
showed pretax profit of 1 .58 mln stg, compared with 1 .62 mln a year earlier. 

Turnover was 21.14 mln stg, compared to 21.4 mln a year earlier, while earnings 
per share were 1.8 pence, compared to 2.1 1 pence. The lower EPS was due to a 12 
pet tax charge this year, compared to no charge in the year-earlier period. 

Princedale said its net cash position improved in the first half to 2.15 mln stg, 
600,000 stg more than a year earlier. There is no interim dividend. 

Bennett said following the disposal of the Sloane Group, the company's trading 
activities in the short term will be confined to Hallam Plastics. 

Hallam posted an operating profit after central costs of 346,000 in the first six 
months, up 13 pet from a year earlier on turnover of 2.8 mln stg, which was little 
changed. 

"Hallam's trading in the second half has remained ahead of expectations and we 
expect it to show growth for the full year," said Bennett. "This, together with 
income derived from funds on deposit after the Sloane Group's disposal, will exceed 
central costs, thereby preserving the group's net cash position." 



Copyright 2000 AFX News Limited. All Rights Reserved. 



Polymer Maker f s Layoffs a Reminder of Texas 1 1980s Economic 
Troubles 

Knight Ridder/Tribune 

Dan Wallach , The Beaumont Enterprise, Texas 
December I9 f 2000 

Dec. 16-PORT NECHES, Texas-Most of the layoffs in the past decade in Southeast 
Texas occurred in the paper and fiber industries as the petrochemical industry enjoyed 
relative stability compared to its massive dislocations in the 1980s. 

The workforce reductions at Ameripol Synpol Corp. are a reminder of what the region 
endured less than 20 years ago. 

~ The job losses began April 15, 1982, when Dresser Industries Inc.'s Ideco division in 
Beaumont cut half of its 900-employee roster and had reduced it further to 350 by 
1985 when the company closed its doors. 

Ideco built drilling rigs. Its layoffs signaled the start of the freefall in the oil sector. 

~ Bethlehem Steel in Beaumont and Levingston Shipbuilding in Orange both cut a 
combined 5,000 jobs in 1983. They had built barges and offshore oil rigs. 

Both companies soon after closed for good. 

- Oilfield equipment manufacturer N.L. Shaffer laid off 300 of its 500-person 
workforce in late 1982. By 1985, Shaffer had closed. 

-Texaco Inc.'s Port Arthur refinery idled 2,000 of its employees from 1983 through 
mid- 1984, and further cut its workforce by 1,400 people on Sept. 7, 1984. 

Between 1981 and 1985, Southeast Texas lost more than 14,000 jobs in ship repair and 
oil-related industries, according to a study commissioned by the former John Gray 
Institute, now called John Gray Center. 

From December 1982 through June 1985, 42 area manufacturing plants lost a third of 
its workforce, the report said. The greatest decline was in 1982 as almost 9,000 jobs 
disappeared. 

In October 1975, Southeast Texas refineries alone employed 14,350 people, according 
to figures from the Texas Workforce Commission. 

By October 1985, that figure shrank to 8,300. 



By October 2000, the refinery workforce stood at 4,400. 

Part of the reduction is in shifting workers to independent maintenance and 
construction contractors from direct employment in the plants. 

Petrochemical manufacturing remained fairly stable in that period, said Robert 
Crawley, a workforce commission labor market analyst. 

In October 1975, the petrochemical sector employed 10,400. By October 1985, it had 
contracted to 8,800. This October, the sector employed 7,800. 

Ameripol Synpol is reducing its workforce by 214 positions, leaving 271 em-ployed at 
the plant. 

The reductions and the original employment levels for the affected categories are: ~ 
100 out of 252 for the Paper Allied-Industrial Chemical and Energy Local No. 4-228, 
the operators' union. 

~ 17 of 37 from Pipe Fitters Local No. 195. 
~ 22 of 46 machinists. 

— 3 of 5 painters. 

— 1 1 of 25 electrician-instrumentation. 

— 3 of 5 carpenters. 

— 58 of 1 15 salaried staff. 

Through Thursday, 16 of 78 eligible employees had opted for the plant's offer of an 
early retirement package. The final accounting of early retirement, and employees 
have until Dec. 27 to decide, will affect the final layoff numbers. 

The Texas Workforce Commission and Ameripol Synpol are providing tran-sition 
services for the affected workers. 

Pay will continue through Jan. 21 and benefits such as medical insurance will continue 
through April at current rates, said Jerry Penick, the plant's human resources manager. 

Ameripol Synpol also will pay accrued vacation and severance to laid-off employees. 



To see more of The Beaumont Enterprise, or to subscribe to the newspaper, go to 




Lyondell And Bayer Announce Propylene Oxide/Styrene Monomer 
Joint Venture in the Netherlands 

PR Newswire 



December 19, 2000 

HOUSTON, Dec 19, 2000 /PRNewswire via COMTEX/ Lyondell Chemical 
Company (NYSE: LYO) and Bayer AG announced today the formation of a 
manufacturing joint venture for the previously announced, world-scale propylene 
oxide (PO)/styrene monomer (SM) facility, known as PO-1 1, now under 
construction at the Maasvlakte site in Rotterdam, the Netherlands. The agreement 
has been approved by the Boards of Directors of both companies, and PO-1 1 is 
scheduled for start-up in early 2003. 

Lyondell and Bayer will each have a 50 percent interest in the joint venture, 
which will be a partnership under Dutch law. Under the terms of the agreement, 
Bayer has purchased its interest in PO-1 1 from Lyondell with a cash payment of 50 
percent of the costs incurred by Lyondell for the project to date. Future costs will be 
shared on an equal basis by both companies. 

M We are pleased to have Bayer participating with Lyondell in this state- of-the- 
art facility, which will benefit from integration with the existing Lyondell 
operations in the Netherlands," said Dan F. Smith, President and Chief Executive 
Officer of Lyondell. "By building PO-1 1 together, Lyondell and Bayer can take 
advantage of the economies of a world-scale plant and better match each company's 
growing needs for propylene oxide and styrene monomer." 

The world-scale PO-1 1 plant will have a capacity of 625 million pounds 
(285,000 metric tons) of PO and 1.4 billion pounds (640,000 metric tons) of styrene. 
Each partner will independently off-take its 50 percent share of the PO and styrene 
products from PO-1 1. Lyondell, with approximately 30 years of operating 
experience and technology improvements for the PO/SM process, will operate the 
facility using its proprietary technology. 

A large portion of Lyondell's share of the PO output will be used to supply 
feedstock for Lyondell's new butanediol (BDO) plant being built at the Botlek site 
and scheduled for start-up in early 2002. With annual capacity of 280 million 
pounds (127,000 metric tons) of BDO, this new facility will be the lowest cost BDO 
plant in the world. Lyondell's 50 percent share of the SM output will be used to 
supply its established European merchant position and to support its global network 
of customers. 

As previously announced, ABB Lummus Global has been awarded the facility's 
engineering, nrocurement and construction contract. Letters of intent have been 



signed for utilities and key raw materials, and site preparation is under way. The 
project is expected to create jobs for approximately 1,800 to 2,000 construction 
employees and 200 permanent operating employees. 

Currently, Lyondell operates world-scale PO plants in Europe, at Botlek in 
Rotterdam and at Fos-sur-Mer in southern France, and in the United States at 
Channelview and Bayport, Texas (in part for its U.S. PO partnership with Bayer). 
The Maasvlakte site is located near Lyondell's Botlek facility. 

Lyondell Chemical Company, (www.lyondell.com), with headquarters in 
Houston, Texas, is the world's largest producer of propylene oxide (PO); the world's 
number two supplier of TDI (toluene diisocyanate); a leading producer of propylene 
glycol; a leading producer of other PO derivatives such as BDO (butanediol) and 
PGE (propylene glycol ether); and a producer of styrene monomer and MTBE as 
co-products of PO production. Through its 41% interest in Equistar Chemicals, LP, 
Lyondell also is one of the largest producers of ethylene, propylene and 
polyethylene in North America and a leading producer of polypropylene, ethylene 
oxide, ethylene glycol, high value-added specialty polymers and polymeric powder. 
Through its 58.75% interest in LYONDELL-CITGO Refining LP, Lyondell is one 
of the largest refiners in the United States, processing extra heavy Venezuelan crude 
oil to produce gasoline, low sulfur diesel and jet fuel. Lyondell is the third largest 
methanol producer in the U.S., through its 75% interest in Lyondell Methanol 
Company, L.P. 

SOURCE Lyondell Chemical Company 



CONTACT: media, Marvin Brown, 713-309-2643, or investors, Sami Ahmad, 

713-309-7141, both of Lyondell Chemical Company 

Photo: NewsCom: http://www.newscom.com/cgi- 
bin/prnh/20000921/LYOLOGO AP Archive: http://photoarchive.ap.org PRN Photo 
Desk, 888-776-6555 or 201-369-3467 

URL: http://www.lvondell.com http://www.prnewswire.com 

(C) 2000 PR Newswire. All Rights Reserved. 



Honeywell Buy to Get Tough Review 

The Cincinnati Post 

Compiled from Post news services 
December 18, 2000 

U.S. Justice Department Officials are expected today to ask for documents and 
depositions in a formal "second request" for information in General Electric Co.'s 
$45 billion bid to buy Honeywell International Inc. 

The request signals that the deal will face tough antitrust review. 

Sources say Justice Department's investigation is focusing on military 
electronics and engine parts. 

The acquisition combines the companies 1 businesses in aerospace, power 
generation, plastics and industrial systems. In aerospace, it would create a business 
with an estimated $20 billion in annual revenue. 



(C) 2000 The Cincinnati Post via Bell&Howell Information and Learning 
Company; All Rights Reserved 
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and their 

street lamps dimmed, Brazilians on Monday faced their first day of 
energy rationing ordered by the government to stave off blackouts. 
</p><p>Across the country - from the sprawling metropolis of Sao Paulo 
to tiny fishermen f s villages in northern Ceara - households and 
businesses were calculating how they could cut their electricity 
bills by a fifth, as the emergency plan demands. 

</p><p>Brazil is suffering its worst energy crunch ever after drought 
has left many reservoirs at record low levels, meaning the power 
network - almost entirely run off hydroelectric power - cannot keep 
pace with demand. 

</pxp>Moving to stave off a collapse of the national grid, the 
government ordered consumers to lower their consumption or face 
hefty surcharges on their electricity bills and power cuts of up to 
six days. 

</pXp>Industry must cut its bill by between 15 and 25 percent. The 



rationing is expected to last until at least October. 

</p><p>The cuts have sparked anger among Brazilians, but most say they 
are cooperating for the public good. 

</p><p>"I don't agree with any of this, but I ? m doing it out of 
solidarity, for social reasons," said Amarilis Saraiva, a 
66-year-old homemaker from Sao Paulo, who has already managed to 
cut consumption in her three-room apartment by the required 20 
percent . 

</p><p>She, her husband and her elderly mother now watch television in 
the dark, run the washing machine only once a week and have 
unplugged the microwave. 

</p><p>Candlelit dinners might be romantic, and watching television in 
the dark may be cozy. But waking up early to take a cold showers 
and walking to the bus stop through darkened streets are neither, 
she said. 

</p><p>"It's absurd, electricity is a basic, not a luxury," she said. 
"With this rationing, the people are losing their rights." 
</p><p>Nevertheless, government appeals to Brazilians' sense of civic 
duty in television and magazine ads seem to have worked. 
</p><p>Eletropaulo, the Sao Paulo distributor, consumers were using 5 
percent less electricity Monday than they were a week ago, and 
average consumption was already 20 percent lower than at the 
beginning of May, Eletropaulo said. 

</pxp>Critics say the government has failed to invest in alternative 
energy sources, and that the hydroelectric system is too vulnerable 
to the whims of nature. Plans to build 4 9 natural-gas power plants 
are far behind schedule. Only 15 are expected to come on line next 
year. 

</p><p>By then, the energy crunch could have bitten hard into Brazil's 
economic growth rates. 

</p><p>A panel of economists surveyed by respected weekly Veja predict 
the rationing will cut economic growth from 4.2 percent to 2.3 
percent. Unemployment was expected to rise from 6.9 percent to 7.5 
percent, Veja said. 

</pxp>Mines and Energy Minister Jose Jorge Vasconcelos said Monday he 
would not rule out importing extra energy from Brazil's neighbors 
if the 20 percent savings were not made. 

</p>< /body, content x/bodyx/DataContentx/Content I temx/NewsComponentx/NewsI tern 
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</pre><p>Special Drawing Rights SDR are based on exchange rates for U.S., 
British, French, German, and Japanese currencies. Source: 
International Monetary Fund. 



</p><p>Euro: a common currency for 11 European countries. The Federal 
Reserve Board 1 s index of the value of the dollar against 10 other 
currencies weighted on the basis of trade was 105.88 Monday / up 
0.18 points or 0.17 percent from Friday's 105.70 . A year ago the 
index was 98.43 

</p><p>a-Russian Central Bank rate 

</p><p>c-commercial rate, d-free market rate, f-financial rate, 
y-official rate, z-floating rate. 

</pXp>Prices as of 3:00 p.m. Eastern Time from Bridge Telerate Markets 
and other sources. 
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urn : newsml : iptc . org : 2 0001006 : IptcMediaTypes 

</Urn><DefaultVocabularyFor Context="
MediaType
 " 

/></Resource><ResourceXUrn> 

urn: newsml : iptc . org : 20001006: IptcPriority 

</Urn><Def aultVocabularyFor Context="
 Priority
 " 

/ ></ResourceXResourcexUrn> 

urn: newsml : iptc . org: 20001006 : IptcUrgency 

</UrnXDef aultVocabularyFor Context="
 Urgency
 " 

/></ResourceXResourcexUrn> 

urn : newsml : ipt c.org:20001006: Language s 

</UrnxDef aultVocabularyFor Context="
 Language
 " 

/></ResourceX/CatalogXNewsEnvelope><TransmissionId>208778 96</TransmissionIdxS 
entFrom FormalName="Comtex" 

/><DateAndTime>20010604T15353K/DateAndTime><NewsService FormalName="Comtex" 
/XNewsProduct FormalName=" ! FINANCE 
 " /xNewsProduct FormalName=" ! fws
 " 
/XNews Product FormalName=" ! WALL+STREET
 " /xPriority FormalName="5 " 
/></NewsEnvelopexNews I temxidentificationXNews Identifier ><ProviderId>comtexnew 
s .net 

</ProviderIdxDateId>20010604</DateIdxNewsItemId>155r2 90 9</NewsItemIdxRevision 

Id PreviousRevision="0" Update="N"> 

1 

</RevisionId><PublicIdentifier>urn: newsml : comtexnews . net : 20010604 : 155r2909 : 1</Pu 
blicldentif ierx/NewsIdentif ierx/Identif icationXNewsManagementxNewsItemType 
FormalName= "News " 

/xFirstCreated>20010604T15353K/FirstCreatedXThisRevisionCreated>20010 604T1535 
31</ThisRevisionCreatedxStatus 

Vocabulary="urn : newsml : comtexnews . net : 20010101: ComtexStatus : 1" 
Scheme="ComtexStatus" FormalName="Usable" /xurgency FormalName="5" 
/></NewsManagementxNewsComponent Es sent ial-" yes" Equivalent sList=" no "xRole 
FormalName="Main" /><NewsLines><HeadLine>CFTC Commitments: CBT DJIA Index 
futures/options- Jun 4 

</HeadLinexDateLine>Jun 04, 2001 (FWN Select via COMTEX) — 
</DateLinexCopyrightLine> (C) Copyright 2001 FWN 
</CopyrightLineXKeywordLine Origin="
Comtex
 ">cbt 
</KeywordLineXKeywordLine Origin="
Comtex
 ">commercial 



</KeywordLine><KeywordLine 

Origin="
Comtex
 ">Dow+ Jones+Industrial+Average 
</KeywordLine><KeywordLine Origin="
 Comtex
 ">f utures 
</KeywordLine><KeywordLine Origin="
 Comtex
 ">index 
</KeywordLineXKeywordLine Origin="
Comtex
 ">trade 
</KeywordLinexKeywordLine Origin="FWN 

Select w >FINANCIAL</KeywordLinex/NewsLinesXAdministrativeMetadata><Catalog><Res 
ourcexUrn> 

urn : newsml : comtexnews . net : 2001 020 1 : Providers : 1 

</Urn><Def aultVocabularyFor Context="
 Provider/Party
 " 

/></ResourceXResource><Urn> 

urn: newsml : comtexnews . net : 20010201 : Source : 1 

</UrnXDef aultVocabularyFor Context="
 Source/Party
 " 
/></ResourceXResource><Urn> 

urn : newsml : comtexnews . net : 20010201 : SourceProperties : 1 
</UrnXDef aultVocabularyFor Context="
 Property
 " 

/></ResourceX/Catalog><FileName>2 08778 96. xmK/FileNameXProviderXParty 
FormalName="Comtex M /x/Provider><SourcexParty FormalName="FWN Select" 
/x/SourcexProperty ForinalName=" Source Code" Value="FWS" 

/></AdministrativeMetadataXRightsMetadataxCopyrightDate>2001</CopyrightDate></ 
RightsMetadataXDescriptiveMetadataxLanguage FormalName="en TI 

/></DescriptiveMetadataXContentItemxMediaType FormalName="Text" /XMimeType 
Fo r ma 1 Name = " t e x t / vnd . I P T C . N I T F " 

/XDataContentxheadx/headxbodyxbody.headxdistributor>FWN 

Select</distributorx/body.headxbody . contentxpre>Dow Jones Industrial Average 
- Chicago Board Of Trade 

Reportable Positions As Of 05/29/01 1 

j Nonreportable 

Non-Commercial | Commercial | Total | Positions 



Long | Short | Spreading! Long | Short | Long | Short i Long | Short 



8,173 9,765 3,040 24,029 17,923 35,242 30,727 5,504 10,019 
</pre><pre>Changes From 05/22/01 (Change In Open Interest: -1,163) 

-214 -518 247 -2,501 849 -2,468 578 1,304 -1,742 

</pre><pre>Percent Of Open Interest For Each Category Of Traders 

20.1 24.0 7.5 59.0 44.0 86.5 75.4 13.5 24.6 

</pre><pre>Number Of Traders In Each Category (Total Traders: 92) 

14 29 14 28 30 53 64 

</prexpre>($10 X Djia Index) Open Interest: 

40,746 

</pre><pre>Dow Jones Industrial Average - Chicago Board Of Trade 
Reportable Positions As Of 05/22/01 



Non-Commercial 



I 



Commercial | 



Total 



I , 

Long | Short [Spreading] Long | Short | Long | Short 



Nonreportable 
Positions 



Long 



Short 



8,387 10,283 2,792 26,530 17,073 37,710 30,149 4,200 11,761 
</pre><pre>Changes From 05/15/01 (Change In Open Interest: 2,356) 

307 1,382 -183 1,729 715 1,853 1,914 503 442 

</pre><pre>Percent Of Open Interest For Each Category Of Traders 

20.0 24.5 6.7 63.3 40.7 90.0 71.9 10.0 28,1 

</prexpre>Number Of Traders In Each Category (Total Traders: 92) 

12 33 14 28 29 53 64 

</preXpre> ($10 X Djia Index) Open Interest: 

41,910 



</prex/body. contentx/bodyx/DataContentx/Contentltemx/NewsComponentx/NewsIt 
emx/NewsML> 



FWN Financial News 

Wheat - Minneapolis Grain Exchange 

Reportable Positions As Of 05/29/01 



Nonreportable 

Non-Commercial I Commercial | Total \ Positions 
I , , 

Long | Short (Spreading! Long | Short | Long | Short | Long | 
Short 



1,575 2,775 3,376 13,006 14,157 17,957 20,307 8,398 
6,049 

Changes From 05/22/01 (Change In Open Interest: 931) 

-34 1,180 325 725 -169 1,016 1,336 -85 

405 

Percent Of Open Interest For Each Category Of Traders 

6.0 10.5 12.8 49.3 53.7 68.1 77.0 31.9 

23.0 

Number Of Traders In Each Category (Total Traders: 55) 

12 11 13 29 17 47 35 

{Contracts Of 5,000 Bushels) Open Interest: 

26,356 

Wheat - Minneapolis Grain Exchange 

Reportable Positions As Of 05/22/01 | 
1 

Nonreportable 

Non-Commercial j Commercial | Total | Positions 
I | , 

Long | Short | Spreading] Long | Short | Long | Short | Long | 
Short 



1,610 1,595 3,050 12,281 14,325 16,941 18,970 8,483 
6,454 

Changes From 05/15/01 (Change In Open Interest: 559) 

47 434 171 -569 -2,035 -351 -1,430 910 

1, 989 

Percent Of Open Interest For Each Category Of Traders 

6.3 6.3 12.0 48.3 56.3 66.6 74.6 33.4 

25.4 

Number Of Traders In Each Category (Total Traders: 56) 

12 10 13 29 18 47 35 

(Contracts Of 5,000 Bushels) Open Interest: 

25,424 



<?xml version-" 1. 0" encoding= M UTF-8 " ?><NewsML><Catalog><Resource><Urn> 
urn : newsml : comtexnews . net : 2 00 10201 : ComtexStatus 
</Urn><Def aultVocabularyFor Context="
 Status
 " 
/></ResourceXResource><Urn> 

urn : newsml : comtexnews . net : 20010201 : Delivery : 1 
</Urn><Def aultVocabularyFor Context="
 SentFrom
 " 
/x/ResourceXResourcexUrn> 

urn : newsml : comtexnews . net : 2 00 1 020 1 : Newsservice : 1 
</UrnXDef aultVocabularyFor Context="
NewsService
 " 
/x/ResourceXResourceXUrn> 

urn : newsml : comtexnews . net : 2 00 1 02 0 1 : News Product : 1 

</UrnxDefaultVocabularyFor Context="
 NewsProduct
 " 

/ ></Resource><ResourceXUrn> 

urn : newsml : iptc . org : 20001006 : IptcRoleTypes 

</UrnXDef aultVocabularyFor Context="
 Role
 " 

/x/ResourceXResourcexUrn> 

urn: newsml : iptc . org : 20001006 : IptcNewsItemTypes 

</UrnXDef aultVocabularyFor Context="
 NewsItemType
 " 

/x/Resource><Resource><Urn> 

urn : newsml : iptc . org : 20001006: IptcMimeTypes 

</UrnXDef aultVocabularyFor Context="
 MimeType
 " 

/></ResourceXResourceXUrn> 

urn : newsml : iptc . org: 20001006 : IptcMediaTypes 

</UrnxDefaultVocabularyFor Context=" 
MediaType
 " 

/x/ResourceXResourcexUrn> 

urn : newsml : iptc . org : 20001006 : IptcPriority 

</UrnXDef aultVocabularyFor Context="
 Priority
 " 

/></Resource><Resource><Urn> 

urn: newsml : iptc . org: 20001006 : IptcUrgency 

</UrnXDef aultVocabularyFor Context="
 Urgency
 " 

/x/ResourcexResourcexUrn> 

urn : newsml : iptc . org :20001006: Languages 

</Urn><Def aultVocabularyFor Context="
Language
 rf 

/></Resource></CatalogXNewsEnvelope><TransmissionId>20877 888</TransmissionIdxS 
entFrom FormalName="Comtex ?t 

/><DateAndTime>20010604T153452</DateAndTimeXNewsService FormalName="Comtex" 
/XNewsProduct FormalName=" ! FINANCE 
 " /xNewsProduct FormalName=" ! fwn
 " 
/xNewsProduct FormalName=" ! WALL+STREET
 " /xPriority FormalName="5" 
/x/NewsEnvelopeXNewsItemxidentif icationXNewsIdentif ier><ProviderId>comtexnew 
s . net 

</ProviderIdXDateId>20010604</DateIdXNewsItemId>155r2907</NewsItemIdxRevision 

Id PreviousRevision="0" Update="N"> 

1 

</RevisionId><PublicIdent if ier>urn: newsml: comtexnews .net : 20010604 : 155r2907 : 1</Pu 
blicldentif ierx/NewsIdentif ierx/ldentif icationXNewsManageraentXNewsItemType 
FormalName= rr News" 

/xFirstCreated>20010604T153452</FirstCreatedxThisRevisionCreated>20010604T1534 
52</ThisRevisionCreated><Status 

Vocabulary= M urn: newsml : comtexnews . net : 20010101 : ComtexStatus : 1" 
Scheme="ComtexStatus" FormalName="Usable" /xOrgency FormalName="5" 
/x/NewsManagementxNewsComponent Essential="yes" Equivalent sList="no"XRole 
FormalName="Main" /XNewsLinesXHeadLine>CFTC Commitments: KCBT wheat 
f utures/options-Jun 4 

</HeadLinexDateLine>Jun 04, 2001 (FWN Financial via COMTEX) — 
</DateLinexCopyrightLine>(C) Copyright 2001 FWN 

</CopyrightLine><KeywordLine Origin="
Comtex
 ">commercial 
</KeywordLinexKeywordLine Origin="
Comtex
 ">futures 



</KeywordLine><KeywordLine Origin="
Comtex
 ">kansas 
</KeywordLine><KeywordLine Origin="
Comtex
 ">kcbt 
</KeywordLine><KeywordLine Origin="
 Comtex
 ">trade 
</KeywordLineXKeywordLine Origin="
 Comtex
 ">wheat 
</KeywordLineXKeywordLine Origin="FWN Financial 

News">GRAIN</KeywordLinex/NewsLinesXAdministrativeMetadata><Catalog><Resource> 
<Urn> 

urn : newsml : comtexnews . net : 20010201 : Providers : 1 

</UrnXDefaultVocabularyFor Context="
 Provider/Party
 " 

/x/Resource><ResourceXUrn> 

urn : newsml : comtexnews . net : 20010201 : Source : 1 

</UrnXDefaultVocabularyFor Context="
Source/Party
 " 
/x/Resource><Resource><Urn> 

urn: newsml : comtexnews .net : 20010201 : SourceProperties : 1 
</UrnXDefaultVocabularyFor Context="
 Property
 " 

/></Resourcex/CatalogXFileName>20877888 . xml</FileNamexProviderxParty 
FormalName="Comtex" /></ProviderxSourceXParty FormalName=="FWN Financial News" 
/x/Source><Property FormalName="SourceCode" Value="FWN" 

/x/AdministrativeMetadataXRightsMetadataXCopyrightDate>200K/CopyrightDateX/ 
Right sMetadataXDescriptiveMetadataXLanguage FormalName="en" 

/></DescriptiveMetadataXContentItemXMediaType FormalName="Text " /xMimeType 
FormalName="text/vnd. IPTC.NITF" 

/><DataContentxheadx/headxbodyxbody.headxdistributor>FWN Financial 
News</distributor></body.headxbody.content><pre>Wheat - Kansas City Board Of 
Trade 

Reportable Positions As Of 05/29/01 | 

| Nonreportable 

Non-Commercial | Commercial | Total | Positions 
I ! ! 

Long | Short | Spreading | Long i Short | Long i Short | Long | Short 



9,985 9,729 13, 922 33,331 43,865 57,238 67,516 30,872 20,594 
</preXpre>Changes From 05/22/01 (Change In Open Interest: 4,272) 

-1,133 3,178 1,191 4,038 -723 4,095 3,645 177 627 

</pre><pre>Percent Of Open Interest For Each Category Of Traders 

11.3 11.0 15.8 37.8 49.8 65.0 76.6 35.0 23.4 

</prexpre>Number Of Traders In Each Category (Total Traders: 153) 

43 27 32 57 55 115 102 

</pre><pre> (Contracts Of 5,000 Bushels) Open Interest- 

88, 110 

</preXpre>Wheat - Kansas City Board Of Trade 

Reportable Positions As Of 05/22/01 | 

I Nonreportable 

Non-Commercial | Commercial I Total | Positions 



Long | Short | Spreading 1 Long 1 Short | Long | Short | Long | Short 



11,118 6,551 12,731 29,294 44,588 53,143 63,871 30,695 19,967 
</prexpre>Changes From 05/15/01 (Change In Open Interest: 1, 386) 

"630 942 917 907 -5,863 1,194 -4,005 192 5,391 

</pre><pre>Percent Of Open Interest For Each Category Of Traders 

13.3 7.8 15.2 34.9 53.2 63.4 76.2 36.6 23.8 

</prexpre>Number Of Traders In Each Category (Total Traders: 154) 

47 25 35 53 56 116 103 

</pre><pre> (Contracts Of 5,000 Bushels) Open Interest- 

83,838 



</pre></body. contentx/bodyX/DataContentx/Contentltemx/NewsComponentx/NewsIt 
emx/NewsML> 



FWN Financial News 

Soybean Meal - Chicago Board Of Trade 

Reportable Positions As Of 05/29/01 



Nonreportable 

Non-Commercial | Commercial I Total | Positions 



Long | Short | Spreading | Long | Short | Long | Short | Long | 
Short 



23,827 5,648 26,712 54,477 92,649 105,017 125,009 38,235 
18,243 

Changes From 05/22/01 (Change In Open Interest: 4,937) 

2,564 636 1,630 -1,234 1,098 2,960 3,364 1,977 

1,573 

Percent Of Open Interest For Each Category Of Traders 

16.6 3.9 18.6 38.0 64.7 73.3 87.3 26.7 

12.7 

Number Of Traders In Each Category (Total Traders: 141) 

44 21 46 58 57 121 110 

(Contracts Of 100 Tons) Open Interest: 

143,252 

Soybean Meal - Chicago Board Of Trade 

Reportable Positions As Of 05/22/01 | 
j 

Nonreportable 

Non-Commercial | Commercial | Total | Positions 
, , ( 

Long | Short (Spreading! Long | Short | Long | Short | Long | 
Short 



21,262 5,012 25,083 55,712 91,550 102,057 121,645 36,258 
16, 670 

Changes From 05/15/01 (Change In Open Interest: 9,027) 

7,578 -882 -98 -1,890 11,410 5,590 10,430 3,437 - 

1,403 

Percent Of Open Interest For Each Category Of Traders 

15.4 3.6 18.1 40.3 66.2 73.8 87.9 26 2 

12.1 

Number Of Traders In Each Category (Total Traders: 130) 

39 18 44 52 53 108 103 

(Contracts Of 100 Tons) Open Interest- 

138,315 
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<?xml version="1.0" encoding= ,F UTF-8"?XNewsML><Catalog><Resource><Urn> 
urn : newsml : comtexnews . net : 20010201 : ComtexStatus 
</Urn><DefaultVocabularyFor Context="
 Status
 " 
/x/ResourcexResourcexUrn> 

urn: newsml : comtexnews . net : 20010201 : Delivery : 1 
</UrnxDef aultVocabularyFor Context="St#xA; SentFrom
 M 
/x/ResourceXResourcexUrn> 

urn: newsml : comtexnews .net : 20010201 : Newsservice : 1 
</Urn><DefaultVocabularyFor Context="
NewsService
 " 
/></Resource><ResourceXUrn> 

urn: newsml : comtexnews . net : 20010201 : NewsProduct : 1 

</UrnxDefaultVocabularyFor Context="
NewsProduct
 " 

/ ></ResourcexResourcexUrn> 

urn: newsml : iptc . org: 20001006 : IptcRoleTypes 

</UrnxDefaultVocabularyFor Context="
 Role
 " 

/></ResourceXResource><Urn> 

urn: newsml : iptc . org : 20001006 : IptcNewsItemTypes 

</UrnxDefaultVocabularyFor Context="
NewsItemType
 " 

/ x/ResourceXResour cexUrn> 

urn : newsml : iptc . org : 20001006 : IptcMimeTypes 

</UrnXDef aultVocabularyFor Context="
MimeType
 " 

/x/ResourcexResourcexUrn> 

urn : newsml : iptc . org : 2000 1006 : IptcMediaTypes 

</UrnXDef aultVocabularyFor Context="
MediaType
 " 

/x/ResourceXResourcexUrn> 

urn: newsml : iptc . org : 20001006 : IptcPriority 

</Urn><Def aultVocabularyFor Context="
 Priority
 " 

/></ResourceXResource><Urn> 

urn : newsml : iptc . org: 20001006 : IptcUrgency 

</UrnxDef aultVocabularyFor Context="
 Urgency
 " 

/x/Resource><Resource><Urn> 

urn : newsml : iptc . org : 20001006 : Languages 

</UrnXDef aultVocabularyFor Context="
 Language 
 " 

/></Resourcex/Catalog><NewsEnvelopexTransmissionId>20877 87 8</TransraissionIdxS 
entFrom FormalName="Comtex" 

/><DateAndTime>20010604T153410</DateAndTimexNewsService FormalName="Comtex" 
/xNewsProduct FormalName-" ! FINANCE 
 " /XNewsProduct FormalName-" ! f wn
 " 
/XNewsProduct FormalName=" ! WALL+STREET
 " /xPriority FormalName="5" 

/x/NewsEnvelopeXNewsItemxidentification><NewsIdentifierxProviderId>comtexnew 
s .net 

</ProviderIdXDateId>20010604</DateIdXNewsItemId>155r2905</NewsItemIdXRevision 

Id PreviousRevision^"0" Update="N"> 

1 

</RevisionId><PublicIdentif ier>urn: newsml: comtexnews.net : 20010604 : 155r2905: 1</Pu 

blicIdentifierX/NewsIdentifierx/IdentificationXNewsManagementxNewsItemTvpe 
FormalName="News " 

/XFirstCreated>20010604T153410</FirstCreatedXThisRevisionCreated>20010604T1534 
10</ThlsRevisionCreatedxstatus 

Vocabulary="urn : newsml : comtexnews . net : 20010101 : ComtexStatus : 1" 
Scheme="ComtexStatus" FormalName="Usable" /xUrgency FormalName="5" 
/></NewsManagementXNewsComponent Essential="yes " Equivalent sList="no M xRole 
FormalName="Main" /xNewsLinesXHeadLine>CFTC Commitments: CBT soyoil 
futures /opt ions- Jun 4 

</HeadLinexDateLine>Jun 04, 2001 (FWN Financial via COMTEX) -- 
</DateLineXCopyrightLine>(C) Copyright 2001 FWN 
</CopyrightLinexKeywordLine Origin="
 Comtex
 ">cbt 
</KeywordLineXKeywordLine Origin="
Comtex
 ">commercial 



</KeywordLine><KeywordLine Origin-" 
Comtex
 ">futures 
</KeywordLine><KeywordLine Origin="
 Comtex
 ">oil 
</KeywordLine><KeywordLine Origin="
 Comtex
 ">soybean 
</KeywordLine><KeywordLine Origin="
 Comtex
 ">trade 
</KeywordLineXKeywordLine Origin="FWN Financial 

News">GRAIN</KeywordLinex/NewsLinesxAdrainistrativeMetadata><CatalogXResource> 
<Urn> 

urn : newsml : comtexnews • net : 2 00 1 02 0 1 : Providers : 1 

</Urn><DefaultVocabularyFor Context="
 Provider/Party
 " 

/x/ResourceXResource><Urn> 

urn: newsml : comtexnews . net : 20010201 : Source : 1 

</Urn><DefaultVocabularyFor Context="
 Source/Party
 " 
/></ResourceXResource><Urn> 

urn: newsml : comtexnews . net : 20010201 : SourceProperties : 1 
</Urn><DefaultVocabularyFor Context="
 Property
 " 

/x/Resourcex/CatalogXFileName>208 7787 8.xml</FileNamexProviderxParty 
FormalName="Comtex" /x/ProviderXSourcexParty FormalName="FWN Financial News" 
/x/Source><Property FormalName="SourceCode" Value="FWN" 

/x/AdministrativeMetadataXRightsMetadataXCopyrightDate>200K/CopyrightDateX/ 
RightsMetadataXDescriptiveMetadataxLanguage FormalName="en" 

/></DescriptiveMetadataxContentItemXMediaType FormalName="Text " /xMimeType 
FormalName="text/vnd. IPTC.NITF" 

/xDataContentxheadx/headxbodyxbody.headxdistributor>FWN Financial 

News</distributorx/body.headxbody.contentxpre>Soybean Oil - Chicago Board Of 
Trade 

Reportable Positions As Of 05/29/01 



Non-Commercial 



Commercial | 



Total 



■I- 



Long i Short [Spreading] Long | Short | Long | Short 



Nonreportable 
Positions 



Long 



Short 



12,178 40 7 778 38,623 88,403 66,985 139,204 146,386 29,416 22,233 
</preXpre>Changes From 05/22/01 {Change In Open Interest: 2,761) 



95 



421 967 1,287 1,401 412 3, 109 2, 666 -348 

</prex P re>Percent Of Open Interest For Each Category Of Traders 

7 - 2 24.2 22.9 52.4 39.7 82.6 86.8 17.4 13.2 

</prexpre>Number Of Traders In Each Category (Total Traders: 156) 

35 53 48 47 31 106 120 

</prexpre> (Contracts Of 60,000 Pounds) Open Interest 

168, 619 

</prexpre>Soybean Oil - Chicago Board Of Trade 
Reportable Positions As Of 05/22/01 



Non-Commercial 



I Commercial | 



Total 



I , 

Long | Short [Spreading! Long | Short | Long i Short 



Nonreportable 
Positions 



Long 



Short 



11,757 39,811 37,336 87,002 66,573 136,095 143,720 29,763 22,139 
</pre><pre>Changes From 05/15/01 (Change In Open Interest: 10,962) 

479 449 210 6,015 8,712 6,704 9,372 4,257 1,590 

</preXpre>Percent Of Open Interest For Each Category Of Traders 

7 - 1 24 -0 22.5 52.5 40.1 82.1 86.7 17.9 13.3 

</prexpre>Number Of Traders In Each Category (Total Traders: 154) 

36 50 48 46 34 104 121 

</prexpre> (Contracts Of 60, 000 Pounds) Open Interest 

165,859 



</pre></body.content></body></DataContent></ContentItem></NewsComponent></NewsIt 
emx/NewsML> 



AP Online 

30 Industrials 
20 Transport 
15 Utilities 
65 Stocks 



11046.74 + 56.33 

2873.72 - 13.33 

389.65 + .13 

3302.49 + 7.05 
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urn: newsml : comtexnews . net : 20010201 : Delivery: 1 
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 " 
/></Resource><ResourceXUrn> 

urn : newsml : comtexnews . net : 20010201 : Newsservice : 1 
</Urn><Def aultVocabularyFor Context="
 NewsService
 " 
/></ResourceXResource><Urn> 

urn : newsml : comtexnews . net : 200 10201 : NewsProduct : 1 

</UrnXDef aultVocabularyFor Context="
NewsProduct
 " 

/></ResourceXResourcexUrn> 

urn : newsml : iptc . org : 20 00 1 00 6 : Ipt cRoleTypes 

</Urn><Def aultVocabularyFor Context="
 Role
 " 

/></ResourceXResource><Urn> 

urn : newsml : iptc . org: 20001006 : IptcNewsItemTypes 

</UrnxDef aultVocabularyFor Context="
 NewsItemType
 " 

/x/ResourceXResourceXUrn> 

urn : newsml : iptc . org : 20001006 : IptcMimeTypes 

</UrnXDef aultVocabularyFor Context-"
MimeType
 " 

/></Resource><ResourcexUrn> 

urn: newsml : iptc . org : 20001006 : IptcMediaTypes 

</UrnxDef aultVocabularyFor Context=" 
MediaType
 " 

/></ResourceXResource><Urn> 

urn : newsml : iptc . org : 20001006 : IptcPriority 

</UrnxDef aultVocabularyFor Context="
 Priority
 " 

/></ResourceXResourcexUrn> 

urn : newsml : iptc . org : 2000 100 6 : IptcUrgency 

</UrnxDef aultVocabularyFor Context="
 Urgency
 " 

/></ResourcexResource><Urn> 

urn : newsml : ipt c • org : 2000100 6 : Languages 

</UrnXDef aultVocabularyFor Context="
 Language
 " 

/></Resourcex/CatalogXNewsEnvelopexTransmissionId>208778 69</TransmissionIdxS 
entFrom FormalName="Comtex" 

/XDateAndTime>20010604T153328</DateAndTimeXNewsService FormalName="Comtex" 
/xNewsProduct FormalName=" I EUROPEAN+COMMUNITY
 " /XNewsProduct 
FormalName=" ! FINANCES #xA; " /XNewsProduct FormalName=" 1 FOREIGN+BUSINESS
 " 
/XNewsProduct FormalName=" ! f ws
 " /XNewsProduct 

FormalName=" ! GLOBAL+NEWS
 " /xNewsProduct FormalName-" ! INTERNATIONALS #xA; " 
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 " /xNewsProduct 
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</ProviderIdxDateId>20010604</DateIdxNewsItemId>155r2903</NewsItemIdxRevision 

Id PreviousRevision="0" Update="N"> 

1 

</RevisionId><PublicIdentif ier>urn: newsml : comtexnews . net : 20010604 : 155r2903 : 1</Pu 

blicIdentifierx/NewsIdentifierx/IdentificationXNewsManagementxNewsItemType 
FormalName= "News " 
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/xDataContentxheadx/headxbodyxbody.headxdistributor>FWN 
Select</distributorx/body.headxbody.contentxp>TOP STORIES: 
</pXp>US stocks holding on to modest gains 

</pxp>New York, June 4 (BridgeNews) - U.S. stocks held on to modest gains in 
afternoon trade, led by strength in oil and biotech stocks. Oil stocks 
rose after Valero Energy (VLO) and Sunoco (SUN) said they expect to exceed 
second-quarter estimates. In the biotech sector, IDEC Pharmaceuticals 
(IDPH) rose 5% to 68.74 after Morgan Stanley raised its 2001 and 2002 
estimates. The Dow industrials were up 57 points at 1104 9 while the Nasdaq 



was up 5 points at 2155. 
( Story .1300 ) 

</p><p>US bonds lifted by Greenspan 

</pxp>New York, June 4 (BridgeNews) - Treasuries posted modest gains, 
particularly at the long end of the curve, buoyed by Federal Reserve 
Chairman Alan Greenspan's comment Sunday night that he sees few signs of 
inflationary pressure. The 30-year bond was up 11/32 to yield 5.681%, 
while the two-year note was up 3/32, yielding 4.150%. 
( Story .312 ) 

</p><p>Euro makes modest recovery against major currencies 

</pxp>New York, June 4 (BridgeNews) - One day after sinking to a six-month 
low of 84.31 cents, the euro marked a four-day high of 85.38 cents to the 
dollar as traders realized profits on their short positions. The dollar 
followed a similar route against the yen, climbing to a four-day high of 
119.86 after bottoming out Friday at a three-month low of 118.30. Faced 
with a light U.S. 

event agenda, trading will be biased toward position squaring. 
( Story .901 ) 

</pXp>European stocks move ahead on strong US start 

</pXp>London, June 4 (BridgeNews) - Europe's major stock market indices 
moved ahead as investors anticipated a strong start for the Dow Jones 
Industrials and Nasdaq. Markets in France and the Netherlands were closed 
for the Pentecost holiday. The FTSE Eurotop 100 Index was up 14.76 points, 
or 0.45%, at 3307.16. 
( Story .1150 } 

</p><p>European credit market reaction to Greenspan muted by holidays 
</p><p>London, June 4 (BridgeNews) - Remarks from U.S. Federal Reserve 
Chairman Alan Greenspan overnight, showing him relaxed about inflation, 
failed to elicit much of a response from European bond markets. This was 
mainly a result of market holidays in most European countries. June German 
government bonds, or Bunds, were down 0.02 on the day to 106.68, while 
June U.K. government bonds, or Gilts, were last down 0.07 at 113.89. 
{ Story .337 ) 
</p><p>OF INTEREST: 

</pxp>Nikkei closes 0.4% higher in quiet trade 

</p><p>Tokyo, June 4 (BridgeNews) - Japanese shares closed slightly higher 
after trading in a narrow range of less than 100 points all day. Traders 
said high technology and banking issues remained weak due to earnings 
concerns while selected defensive stocks such as real estate, oil and coal 
issues were pushed higher. The Nikkei 225 Stock Average ended 50.51 
points, or 0.4% higher at 13,312.35. 
( Story .1105 ) 

</pXp>Japan bond futures end near flat 

</p><p>Tokyo, June 4 (BridgeNews) - Japanese government bond futures bounced 
off lows, closing near flat. JGB futures were trapped into typically slow, 
range-bound trades, while cash bonds also saw quiet trading, traders said. 
The lead June 10-year JGB futures closed at 140.53 yen, up 0.01, while the 
yield on the benchmark No. 231 June 10-year cash bond stood at 1.240%, 
down 0.005, as of 1/ 1520 JT. 
( Story .100 ) 
</pxpre>10 

</preX/body.contentx/bodyx/DataContentx/ContentItemx/NewsComponentx/NewsIt 
emX/NewsML> 
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Soybeans - Chicago Board Of Trade 

Reportable Positions As Of 05/29/01 | 

Nonreportable 

Non-Commercial | Commercial | Total | Positions 
_ I ! ! 

Long | Short | Spreading | Long | Short | Long | Short | Long | 
Short 



15,423 31,976 45,390 74,946 78,733 135,759 156,099 53,983 
33, 643 

Changes From 05/22/01 (Change In Open Interest: 5,570) 

-334 1,235 1,807 4,155 1,355 5,628 4,397 -59 
1,173 

Percent Of Open Interest For Each Category Of Traders 

8- 1 16.9 23.9 39.5 41.5 71.5 82.3 28.5 

17.7 

Number Of Traders In Each Category (Total Traders: 398) 

158 109 142 110 88 333 283 

(Contracts Of 5,000 Bushels) Open Interest* 

189,742 

Soybeans - Chicago Board Of Trade 

Reportable Positions As Of 05/22/01 | 

] 

Nonreportable 

Non-Commercial | Commercial | Total | Positions 
, , ! 

Long | Short | Spreading! Long | Short | Long | Short | Long | 
Short 



15,757 30,741 43,583 70,790 77,378 130,131 151,701 54,041 
32, 471 

Changes From 05/15/01 (Change In Open Interest: 2,690) 

1,315 -1,829 -427 1,811 4,800 2,699 2,544 -9 

145 

Percent Of Open Interest For Each Category Of Traders 

8-6 16.7 23.7 38.4 42.0 70.7 82.4 29.3 

17.6 

Number Of Traders In Each Category (Total Traders: 386) 

152 109 139 103 86 322 275 

(Contracts Of 5,000 Bushels) Open Interest" 

184,172 
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submitO OnMous eOuWavascript:document. images pbt showair"l.src=Temp 2.src 



OnMouseOver==Javascript:documentjmagesr'bt showain.src==Temp3.src> 



< ! — #INCLUDE FILE=" . . /include/Head. inc"—> 
<!~#INCLUDE FILE=" . . /include/ExchangeHead . inc" — > 
<% 

DIM Str 

IF Session ( "Typ" )<>"0" AND Session ( "Typ" ) <>"0S" AND Session ( "Typ" ) <>"0P" THEN 
Response. Redirect (". . /Mylndex . tpeO" ) 
IF Request. Form {"Add" )<>"" THEN 

Application. Lock 

Application ( "Flag" ) =1 

IF Request. Form {"Id" )<>"" THEN 

Connection . Execute { "UPDATE TRUST SET TRST_CONT=TRST CONT- 
POWER(2, CAST ("SRequest. Form <" Id") &" AS INT) -1) WHERE 

TRST_COMP="&Session("Comp")&" AND TRST_NOT_TRST— " &Request . Form ( "Add" ) ) 

Connection. Execute ("DELETE FROM TRUST WHERE 
TRST_COMP="&Session("Comp")&" AND TRST_NOT TRST-"&Request . Form ( "Add" ) &"AND 
TRST_CONT=0") ~~ 
ELSE 

Connection. Execute ("DELETE FROM TRUST WHERE 
TRST__COMP="&Session("Comp")&" AND TRST NOT TRST="&Request . Form ( "Add" ) ) 
END IF ~ 

Str="SELECT TOP 1 * FROM (SELECT * , VARFOB=CAST ( OFFR_FOB AS 
Numeric) ,VARSIZE=CAST(OFFR__SIZE AS Numeric) , OFFR_FOB* (SELECT (CASE OFFR SIZE WHEN 
0 THEN SHIP_PRCE__TRUC ELSE SHIP_PRCE_RAIL END) FROM SHIPPING WHERE 
SHIP_FROM__LOCL=OFFR_FROM__LOCL AND SHIP_TO_LOCL=BID__TO_LOCL) AS 

SHIP_PRCE,OFFR_FOB* (SELECT (CASE OFFR_SIZE WHEN 0 THEN SHIP_PRCE_FULL TRUC ELSE 
SHIP_PRCE_FULL_RAIL END) FROM SHIPPING WHERE SHIP_FROM_LOCL-OFFR FROM~LOCL AND 
SHIPJIO_LOCL=BIDJTO__LOCL) AS SHIP_FULL_PRCE, (SELECT CONT_LABL FROM CONTRACT 
WHERE CONT_ID-BID_CONT) AS CONT_LABL, (SELECT BRANJJAME FROM BRAND WHERE 
BRAN__ID=OFFR_BRAN) AS BRAN_NAME, I SNULL (( SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID-OFFR_FROM) , (SELECT LOCL_CITY+', ' +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=OFFR_FROM_LOCL) ) AS LOCL_FROM, ISNULL < (SELECT PLAC_LABL FROM PLACE WHERE 
PLAC_ID=BID_TO), (SELECT LOCL_CITY+\ 1 +LOCL_STAT FROM LOCALITY WHERE 
LOCL_ID=BID_TO_LOCL) ) AS LOCL_TO FROM " 
IF Request. Form ( "Id" )<>"" THEN 

IF Session ( "CompTyp" ) ="S" OR Session ( "Typ" ) ="OS" THEN 
Str=Str+" (SELECT * FROM OFFER WHERE 
OFFR_CONT="&Request.Form("Id") &" AND 

OFFR_SELR_COMP="&Session("Comp")&")Q0, (SELECT * FROM BID WHERE 
BID_BUYR_COMP="&Request . Form { "Add" ) &" ) Ql" 
ELSE 

Str=Str+" (SELECT * FROM BID WHERE 
BID_CONT="&Request.Form("Id")&" AND BID_BUYR_COMP="& Session ( "Comp" ) & " ) QO, (SELECT 
* FROM OFFER WHERE OFFR__BRAN_COMP="& Request . Form { "Add" ) &" AND 
"&Session("Comp") &" NOT IN (SELECT TRST_NOT_TRST FROM TRUST WHERE 
TRST_COMP=OFFR_SELR_COMP AND (TRST_CONT-0 OR TRST CONT & POWER ( 2 OFFR CONT- 
1)<>0) ))Q1" 

END IF 

ELSE 

IF Session ( "CompTyp") ="S" OR Session { "Typ" ) ="0S" THEN 
Str=Str+" (SELECT * FROM OFFER WHERE 
OFFR_SELR_COMP-"&Session("Comp")&")QO / (SELECT * FROM BID WHERE 
BID_BUYR_COMP="&Request . Form { "Add" ) & " ) Ql " 

ELSE 

Str=Str+" (SELECT * FROM BID WHERE 
BID_BUYR__COMP="&Session("Comp")&")QO f (SELECT * FROM OFFER WHERE 
OFFR_BRAN_COMP="&Request.Form("Add")&" AND "&Session ( "Comp" ) &" NOT IN (SELECT 



TRST_NOT_TRST FROM TRUST WHERE TRST_COMP=OFFR_SELR_COMP AND (TRST CONT=0 OR 
TRST_CONT&POWER(2 / OFFR_CONT-1)<>0) } )Q1" 
END IF 

END IF 

Str=Str+" WHERE BID_CONTOFFR_CONT AND BID_SIZE=OFFR_SIZE AND 
OFFR_BRAN_COMP NOT IN (SELECT TRS T_NOT_TRS T FROM TRUST WHERE 

TRST_COMP=BID_BUYR_COMP AND (TRST_CONT=0 OR TRST_CONT&POWER (2 , BID CONT-1 ) <>0 ) ) ) T 
WHERE OFFR_PRCE+SHIP_PRCE<=BIDJPRCE ORDER BY " 

IF Session ( "CompTyp" ) ="S" OR Session ( "Typ" ) -"OS" THEN 
Str=Str+"OFFR_PRCE+SHIP_PRCE" 

ELSE 

Str=Str+"BID_PRCE-SHIP_PRCE" 

END IF 
DO 

SET Rec0=Connection. Execute (Str) 
IF RecO.EOF THEN EXIT DO 

IF CDbl (RecO ("BID_QTY") ) >CDbl (RecO ( "OFFR_QTY" ) ) THEN 
i=RecO { "OFFR_QTY" ) 

Connection. Execute ("UPDATE BID SET BID QTY=BID QTY-"&i&" WHERE 
BID_ID="&Rec0 ("BID_ID") ) ~ 

Connection. Execute {"DELETE FROM OFFER WHERE 
OFFR_ID="&RecO ("OFFR_ID") ) 

ELSEIF CDbl (RecO ( "BID_QTY") ) <CDbl (RecO ( "OFFR_QTY" ) ) THEN 
i=RecO ( "BID_QTY" ) 

Connection. Execute ( "UPDATE OFFER SET OFFR QTY-OFFR QTY-"&i&" 
WHERE OFFR_ID="&RecO ("OFFR__ID") ) 

Connection. Execute ("DELETE FROM BID WHERE 
BID_ID="&RecO ("BID_ID") ) 
ELSE 

i-RecO ("BID_QTY") 

Connection. Execute ("DELETE FROM OFFER WHERE 
OFFR__ID="&RecO (OFFR_ID) ) 

Connection. Execute ("DELETE FROM BID WHERE 
BID_ID="&RecO ("BID_ID") ) 
END IF 

! k: selling price 

IF Session ( "Comp" ) ="S" OR Session ( "CompTyp" ) ="OS" THEN 
k=CDbl(RecO("BID_PRCE") ) -CDbl (RecO ( "SHIP PRCE") ) 

ELSE 

k-RecO ( "OFFR_PRCE" ) 

END IF 

IF CDbl(i)>l THEN 
StrQuat-"s" 

ELSE 

StrQuat="" 

END IF 

IF RecO ("OFFR_SIZE")=False THEN 

StrBis="#"&Rec0 ("OFFR_ID") &" You sold "&i&" 

Truckload"&StrQuat&" of %RecO ( "CONT_LABL") &" ( "&RecO ( "BRAN_NAME" ) &" ) for 

"&FormatCurrency(k,3,0,-2,-2)&" per pound. To be picked up from 

"&RecO("LOCL_FROM")&". Estimate Value of 

"SFormatCurrency (CStr (CDbl (k) *i*42000) ,0,-2,-2,-2) 

StrTer="#"&RecO("BID_ID")&" You bought "&i&" 

Truckload"&StrQuat&" of "SRecO ( "CONT_LABL" ) &" for 

"&FormatCurrency (CDbl (k)+CDbl (RecO ( "SHIP_PRCE" ) ) , 3, 0,-2,-2) &" per pound. 
Delivery to "&RecO { "LOCL_TO" ) & " . Estimate value of 

"SFormatCurrency (CStr ( (CDbl (k) +CDbl (RecO ( "SHIP_PRCE") ) ) *i*42000) , 0, -2, -2, -2 ) 



ELSE 

StrBis="#"&RecO("OFFR_ID")&" You sold "Sis" Railcar"SStrQuat&" 
of "SRec0("CONT_LABL")&" ( "SRecO ( "BRAN_NAME") &" ) for "SFormatCurrency ( k, 3, 0, -2, - 
2)&" per pound. To be picked up from " &RecO ( "LOCL_FROM" ) & " . Estimate Value of 
"S Forma tCurrency {CStr (CDbl (k) *i*190000) , 0,-2,-2,-2) 

StrTer="#"sRecO("BID_ID")&" You bought "Si&" 
Railcar"&StrQuat&" of "SRecO ( "CONT_LABL" ) S" for 

"SFormatCurrency (CDbl (k)+ CDbl (RecO ( "SHIP_PRCE" ) ) , 3, 0, -2, -2) &" per pound. 
Delivery to "SRecO ( "L0CL_T0" ) s" . Estimate value of 

"SFormatCurrency (CStr { (CDbl (k) +CDbl (RecO ( "SHIP_PRCE" ) ) ) *i*190000) , 0, -2, -2, -2 ) 
END IF 

Connection. Execute ( "INSERT INTO MESSAGE 
(MESS_COMP, MESSJTO, MESS_FROM, MESSJTEXT, MESS_DATE, MESSJTYPE) 

VALUES ("SRecO ( "OFFR_SELR_COMP" ) S", "SRecO ( "OFFR__SELR" ) & " , 0 , ' "SStrBisS" 1 , GETDATE ( ) 
, 1 1 T } ; INSERT INTO MESSAGE 

(MESS_COMP, MESS_TO, MESS_FROM, MESSJTEXT, ME SS_DATE, MESSJTYPE) 

VALUES ( "SRecO ( "BID_BUYR_COMP" } S ", "SRecO ( "BID BUYR")&",0, '"SStrTerS"' GETDATE ( ) ' 
1 T )") ~ / w, 

Connection. Execute ( "INSERT INTO ORDERS 
(ORDR_CONT, ORDR_BRAN, ORDR_BID, ORDRJDFFR, ORDR__BUYR, ORDR_SELR, ORDR_FROM, ORDR TO, OR 
DR_QTY,ORDR_PRCE,ORDR m SI2E,ORDR_SHIP,ORDR_DATE,ORDR SHIP PRCE, ORDR SHIP FULL PRC 
E,ORDR_GENE,ORDR_FOB) VALUES " ™ 

("SRecO ( "OFFR_CONT" ) &", "SRecO ( "OFFR_BRAN" ) &", "SRecO ( "BID_ID") S", "SRecO ( "OFFR ID" 
) S", "SRecO ( "BID_BUYR" ) " SRecO ( "OFFR_SELR" ) S " , "SRecO { "OFFR_FROM" ) S " , "SRecO ("BID 
_TO") &", "Sis", "&ks", "SRecO ("VARSIZE") &", 0, GETDATE () , "&Rec0 ("SHIP PRCE" ) S ", " SRecO 
( "SHI P_FULL_PRCE" ) S " , 0 , "SRecO ( "VARFOB" )&")") 

RecO.CloseO 

SET Rec0=NOTHING 

SET Rec0=Connection. Execute ("SELECT TOP 1 ORDR__ID, ORDR QTY FROM 
ORDERS WHERE ORDR_QTY IS NOT NULL ORDER BY ORDR_ID DESC") 
FOR i=i TO 0 

Connection . Execute { " INSERT INTO SHIP (SHIP ORDR) VALUES 
("SRecO (0) S") ") ~ 
NEXT 

RecO.CloseO 

SET Rec0=NOTHING 

LOOP 

RecO. Close 

SET Rec0=NOTHING 

Application ( "Flag" ) =0 
Application. Unlock 

END IF 

IF Request. Form ( "Delete" ) <>"" THEN 
Application. Lock 
Application ( "Flag" ) =1 
IF Request .Form ("Id") <>"" THEN 

SET Rec0=Connection. Execute ("SELECT COUNT (* ) FROM TRUST WHERE 
TRST_COMP="SSession("Comp")S" AND TRST_NOT_TRST="& Re quest . Form { "Delete" ) &"") 
IF Rec0(0)-0 THEN 

Connection. Execute ("INSERT INTO 
TRUST (TRST_COMP, TRST_NOT_TRST , TRST_CONT) VALUES 

("&Session("Comp") s", "SRequest . Form { "Delete" ) &", POWER (2 , CAST ( "& Request . Form { "Id" 
) S" AS INT) -1) ) ") 
ELSE 



Connection. Execute ( "UPDATE TRUST SET 
TRST_CONT=TRST_CONT+POWER(2 / CAST("&Request.Form("Id") &" AS INT)-1) WHERE 
TRST_COMP="&Session("Comp") &" AND TRST_NOT_TRST-"& Re quest . Form ( "Delete") &"") 
END IF 

ELSE 

Connection. Execute ("DELETE FROM TRUST WHERE 
TRST_COMP="&Session("Comp") &" AND 

TRST_NOT_TRST="&Request . Form ( "Delete") &"; INSERT INTO TRUST 
(TRST_COMP, TRST_CONT, TRST_NOT_TRST) 

VALUES { "& Session ( "Comp" )&", 268435455, "SRequest . Form ( "Delete" )&"}" ) 

'Connection. Execute ("DELETE FROM TRUST WHERE 
TRST_COMP="&Session("Comp") &" AND 

TRST_NOT_TRST-"&Request. Form ("Delete") &";INSERT INTO TRUST 
(TRST_COMP, TRST_CONT, TRST_NOT__TRST, TRST_NO_WAY) 
VALUES ( "& Session ( "Comp" ) & 0, "&Request . Form ( "Delete" ) &", 0) ") 
END IF 

Application { "Flag" ) =0 
Application. Unlock 

END IF 

DIM RecO, Height 

' Main Body '%> 

<!— #INCLUDE FILE=" . . /include/Body2 . inc"— > 

<% 1 LAYERS 

— • % > 

<!— #INCLUDE FILE=". . /include/Loading, inc"— > 
<%' Main Layer ' %> 

<SPAN ID="Main" style- ' position : absolute; x:0px; y:0px; visibility: hidden ? > 

<script> 

i=0 

function L(A,B,C,D) 

{i++;D.write< '<tr T , (i%2==0) ? * bgcolor=#E8E8E8 1 : 1 1 , T xtd>' , (C ! = ' 2 ' ) ? ( ' <a 
href=Javascript :Path. Wait (window) ;with(<%IF NOT MSIE AND NOT NN6 
THEN% >document . Main . <%END 

IF%>document.Form) { ' + ( (C-= 1 0 ' ) ? 1 Add' : 'Delete* ) + • . value= 1 +A+ T ; submit ( ) }ximg 
src=. . /Images/butt ons/BT_W_ T + ( (C— = ' 0 T ) ? f Red ' : 'Green' )+' .gif 
border=0x/a>' ) : '<img src=. . /images/but tons /BT_W_GreenLocked. gif > T , T <img 
src=/images/lxl .gif width=7 height=l> r , <%IF Request . Form ( "Id" )=" " 
THENI>(C!= f 0 T ) ? T <a CLASSES 2 href=" Javascript : Path .Wait (window) ; with (<%IF NOT 
MSIE AND NOT NN6 THEN%>document .Main . <%END 

IF%>document . Form) { Id . value= • +A+ 1 ; Name . value-\ 1 ' +B+ ' \ 1 ; action=\ ' Of f icer%20Exchan 
ge%20Filters%20Contract.tpeO\' ; submit () }">. . . </a>  Snbsp; ' :<%END 
IF%>' '</tdxtd CLASS=S2>',B, '</tdx/tr>' ) } 

</script> 

<form method=post name=Form> 
<input type=hidden name=Add> 
<input type=hidden name=Delete> 

<input type=hidden name=Id valuer ' <%=Request . Form ( "Id" )%> f > 

<input type-hidden name=Name value- '<%=Request. Form ( "Name" ) %>'xbr> 

<table cellpadding=0 cellspacing^O width=100% border=0> 

<%IF NN6 THEN%> 

<tr> 

<td colspan=2ximg src=/images/lxl . gif height=l width«700x/td> 
</tr> 

<%END IF%> 

<tr valign=middlextdxdiv align=center> 

<table border=0 cellpadding=0 cellspacing=0 width=320> 



<tr valign=bottom bgcolor=#OOOOOOxtd colspan=2 CLASSES 5 ximg 
src=/images/lxl . gif 

width=3>Define the companies  f or  your  exchange<%IF 
Request . Form ( "Id" ) <>" " 

THEN%>  f or  the  contract  <%=Request . Form ( "Name" ) %><%END 

IF%X/tdx/tr> 

<script> 

<% 

IF Request. Form ( "Id" )<>"" THEN 

SET RecO=Connection. Execute ("Exec spOEFilters 
@CompId=" ^Session ( "Comp" ) & " , @CompTyp- < " SSession ( "CompTyp" ) & " ' , @PersTyp= ' "&Sessio 
n ( "Typ" ) & " ' , @Case= ' Company 1 , @ ld= ■ " SReques t . Form ( " Id" ) & " 1 " ) 
ELSE 

SET RecOConnection. Execute ("Exec spOEFilters 
@CompId="&Session ("Comp") &", eCompTyp^ 1 "&Session( "CompTyp" ) &" 1 , @PersTyp= ' "&Sessio 
n ( "Typ " ) & " ' , @Case- 1 Company 1 " ) 
END IF 

DO UNTIL RecO.EOF 

Response .write "L ( 1 " &RecO ( 0 ) & " ' , ' " &RecO ( 1 ) & " ' , T " &RecO ( 2 ) & " ' , document ) ; " 
RecO .MoveNext { ) 

LOOP 
%> 

</script> 
</tableX/div> 

</tdxtd valign^topxdiv align=center> 

<table border=0 cellspacing=0 cellpadding=0 width-300 bgcolor=#E8E8E8> 

<tr valign-bottomxtd colspan-3 CLASS-S5 bgcolor-blackximg src=/images/lxl . gif 

width-3>Message</tdx/tr> 

<trxtdximg src=/images/lxl . gif width-10 height=6 border-Ox/tdxtdximg 
src=/images/lxl.gif height=6 border=Ox/tdxtdximg src=/images/lxl . gif width=10 
height-6 border=Ox/tdx/tr> 

<trxtdximg src=/images/lxl . gif width=10 border=Ox/td> 
<td CLASS=S9> 

<img src=/images/buttons/BT_W_Green. gif >  This contract is enable for your 
company on the exchange. To disable it, press this button<br> 

<img src=/images/buttons/BT_W_Red. gif >  This contract is disable for your 
company on the exchange. To enable it, press this button<%IF 
Request . Form ( "Id") ="" THEN%xbr> 

. . .  Click here to specify the contracts you authorize your company to 
<%IF Session ( "Typ" )="P" OR Session { "Typ" ) ="OP" THEN%>buy<%ELSE%>sell<%END IF%> 
for the specified company . <%END IF%xbr> 

<brxspan class=S8>Disdaimer : </span> We have listed all manufactures whose 
brands conform to the specifications of at least one of our contracts. 
This should not be an indication that each company listed is a member of The 
Plastics Exchange. 

All brands and trademarks are the property of their respective company. 

</tdxtdximg src=/images/lxl . gif width=10 border=Ox/tdx/tr> 

<trxtd colspan«3ximg width=280 height=10 src=. . /images/lxl . gif ></tdx/tr> 

</tablex/div> 

</tdx/trx/table> 

</form> 

< 1 — #INCLUDE FILE=" . . /include/Bottom. inc"— > 
</SPAN> 

</bodyx/html> 

<scriptx%iF session ("Typ") ="0S" 

THEN%>window. top . upFrame . sel ( 9 ) ; <%ELSE%>window . top . upFrame . sel ( 8 ) ; <%END 
IF%>Path. Start (window) </script> 



Define the contracts for your exchange for the company 
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Location's Information 
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Thank you for registering and welcome to The DEMO Exchange . <br> 

<br> 

<UL> 

<LI>Click on a contract to get the ACTION BOX. 
<LI>Feel free to place many orders and generate trades 
<LI>Check your working and filled orders 
<UL> 

<LI>From the action box — only for that contract 
<LI>From the side bar — all contracts 

</UL> 

<LI>Cancel or Change a working order 

<LI>View your system messages for permanent records 

<LI>Select different destination cities and see the delivered prices chancre 

</UL> 

<BR> 

Call Member Services with any questions or suggestions: 800-850-2380<BR> 
<BR> 

Have fun with the DEMO; let us know when you are ready for The LIVE Exchange<BR> 
<BR> 

Sincerely, <BR> 
<BR> 

Michael Greenberg, CEO<BR> 
The Plastics Exchange 



1 # Choose an Application: 

2. Choose an Index: 

^ Product Name index M Generic Name Index 

3 . Choose a Standard: 

® ASTM Data Sheets ° ISO Data Sheets 



FreeMDS is a no-charge service that provides Plastic Material Data Sheets. This 
growing database contains over 35,000 Material Data Sheets from North America, 
Europe, and the Pacific Rim. 

1 9 Select Your Job Function: 
2 . Select Your Primary Business: 




3 



Select Your Country: 




If you agree with the EULA below, click to proceed: 
End-User License Agreement (EULA) 
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Departements 
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wget — spider "http: //asterix/private/datasheet/Cleaner . tpeO?Id=10128 



wget — spider "http : //asterix/private/BackupII/cleaner . tpeO?Id=10725" 



wget — spider "http: //asterix/private/backupl/cleaner . tpeO?Id=l" 




wget —spicier "http: //asterix/private/backup/cleaner . tpeO?Id-183" 




<% 

DIM pFile, Input, Output, Str, StrO, Strl, Str2, k, 1, Temp 
SET pFile = server . CreateObj ect ( "Scripting. FileSystemObject " ) 
SET 

Input=pFile . Opent ext File (Server. mappath ( " /private /Backupl / " &Reques t . QueryString ( 
"Id") &'\txt") , 1) 

SET Output-pFile.OpentextFile {Server. mappath ( Vprivate/Backupl/Script . txt " ) , 8, 
True) 

Output . WriteBlanklines ( 1 ) 

Output . WriteLine ( " " &Request . QueryString { " Id" ) & " " ) 

DO 

Str^Input . readline ( ) 

IF InStr {Str, "</html>" ) <>0 THEN EXIT DO 
IF InStr {Str, "javascript :ds { 1 ")<>0 THEN 
Output . Write { " INSERT INTO LIST 
(LIST_ID, LIST_CONT, LIST_BRAN, LIST_COMP) VALUES 
( ' "&Mid(Str, InStr (Str, "javascript : ds ( ■ ")+15, InStr {Str, " ' ) ; ") - 
InStr (Str, "javascript :ds ( ' ") -15) &" 1 , 1 " ) 
Str^Input . readline ( ) 
k=0 
1-0 

DO UNTIL k=5 
Temp=l 

l=l+InStr (Mid(Str,Temp+3) ,"','") 
k=k+l 

LOOP 

Output. Write (Mid(Str, 1+5, InStr (Str, " • ) ; ") -1-5) &" 1 , • ") 

Input . readline { ) 

Str=Input . readline { ) 

k=0 

1=0 

DO UNTIL k=4 
Temp=l 

l=l+InStr (Mid(Str,Temp+6) , " ") 
k-k+1 

LOOP 

Output. Write (Mid (Str, 1+11, InStr (Str, "<i>" ) -1-11 ) &" 1 , 1 ") 

Output . Writeline (Mid (Mid (Str , InStr (Str, "<i>" ) +3 ) , 2, InStr (Mid (Str, InStr (Str 
, "<i>") +3) , "</i>") -3) &" ' ) ; ") 
END IF 

LOOP 
r End 

Input .close 

Output . close 

SET Input=NOTHING 

SET Output=NOTHING 

SET pFile=NOTHING 

%> 



<% 

DIM pFile, Input, Output, Str, StrO, Strl, Str2, k, 1, Temp 
SET pFile = server. CreateObject ("Scripting. FileSystemObject" } 

SET Input^pFile . Opent ext File (Server . raappath ( Request . QuerySt ring ( " Id" ) & " . txt " ) , 

1) 

SET Output=pFile.OpentextFile(Server.mappath("Script .txt") , 8, True) 
Output . WriteBlanklines ( 1 ) 

Output . Wri teLine ( " " ^Request . QueryString ( "Id" ) & " " ) 

DO 

Str=Input . readline ( ) 

IF InStr(Str / "</html>" ) <>0 THEN EXIT DO 
IF InStr(Str, "varAAA— 11 ) <>0 THEN 
Output .Writ eline (Str) 

END IF 

LOOP 
'End 

Input . close 

Output . close 

SET Input-NOTHING 

SET Output-NOTHING 

SET pFile=NOTHING 

%> 
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- Privacy Statement - © 2000 The Plastics Exchange.com, LLC. All Rights Reserved. 
Patent Pending. - News provided by Comtex - 



Comtex News End-User Agreement Provisions 




Charts 




<!— #INCLUDE FILE=" . . /include/Head2 . inc"— > 
< ! — # INCLUDE FILE=" . . /include/Body . inc"— > 
</bodyx/html> 

<!—# INCLUDE FILE-". . /include/Bottom, inc"— > 



< ! — #INCLUDE FILE=" . . /include/Head . inc"--> 

< ! — #INCLUDE FILE=" . . /include/Body . inc"~> 
</bodyx/html> 

<!~#INCLUDE FILE=". ./include/Bottom. inc"—> 



< ! INCLUDE FILE=" . . /include/Head. inc"~> 
< ! — #INCLUDE FILE=" . . /include/Body . inc"— > 
< ! — # INCLUDE FILE=" . . /include/Loading. inc" 
</bodyx/html> 

<i— #INCLUDE FILE=" . . /include/Bottom. inc"- 



document.onmousedown=noclick;onselectstart="return false" oncontextmenu-'return 
false"> 



onLoad=init()> 



> 



1 



CheckO 

OnMouseOut=Javascript:document.imagesr'bt ok'l.src='/images/buttons/bwOK.gif 
OnMouseOver=Javascript:docunient.imagesr'bt ok'1.src=Temp.src> 0* 



Define the contracts for your exchange 



a 
■& 

ill 

Hi 
ii-i 

4;; 
Q 

C> 

m 
\j 
m 

a 



Change Bid Number 



150168 height=l> 



165173 height=l> 



O 

" checked checked 
>Truckloads* (42 ooo lbs) 
O 

" checkedchecked >Rail 
Cars* (190.000 lbs) 



FOB Delivery Point 

"."".""."0"."".""); document.writerStr2) L __ „Ji 



<b>Jan 5</b> Polystyrene remains the strongest of the commodity resins. With a 
limited number of producers, the supply /demand equilibrium has remained fairly 
stable. Indeed prices are off a bit, but not like PE or PP. Producers are 
standing behind the December 1, 2000 $.0.02/lb price increase; this may be more 
viable for GPPS, but HIPS demand seems a bit soft. 

With a slowing economy, polystyrene demand may see some further weakness as it 
is generally considered to be a mature product with demand growth closely 
related to GNP. Feedstock prices remain high and this has put a squeeze on PS 
margins, if this continues as forecasted, additional price increases may be on 
the horizon. Nova announced on November 28th, 2000 that due to industry margins 
remaining weak and high plant production costs they will be closing their 
Joliet, IL facility by the end of the 1st quarter, 2001. Overall PS growth is 
projected to be flat for 2001. 



<b> For spot market pricing visit the <a 

href=. . /Public%20Registration%20StepO%20Demo. tpe0>Live Prices/Demo 
Exchange . </a></b> 

<u>New Polystyrene Capacity : </u> 

<lixb>Dow Chemical</b>-in USA-7 5 million pounds from debottle-necking . 
<lixb>ATOFINA</b>-in Carville, LA-500 million pounds-startup early 2002. 



<b>Jan 5</b> The Polypropylene market moved into the New Year without much 
excitement. For producers, both the costs of propylene monomer and selling price 
of polypropylene remain uncomfortably unchanged. While the margins on PP are 
dismal, at least they did not appear to deteriorate over the past month or so, 
this may be of little consolation for PP producers. 

The supply/demand imbalance for polypropylene is the least attractive of the 
polyolefins. Most people feel that the imbalance will remain for at least all of 
2001. With a slowing economy, and the effect that will have on several 
significant PP applications, the outlook is not very promising. PP producers 
are looking for some relief on feedstock costs; natural gas futures prices 
indicate that they will get some in the spring, but probably not enough. 

Many producers had one or more lines down for as much as 3 to 4 weeks in 
December and a few producers were ?making to order? as to not build any 
inventory. The December announcement by Basell Polyolefins of the shutdown of 
1.1 billion lbs of production, nearly half of which is in the USA is not enough 
to establish equilibrium in the market. 

Because so much capacity was taken out of the market in December and inventory 
levels have been reduced, there perhaps could be a tightness in supply by the 
end of the 1st quarter, this may give producers the ability to get some price 
increase, but they will probably not be sustained. 

<b> For spot market pricing visit the <a 

href=. . /Public%20Registration%20StepO%20Demo. tpeO>Live Prices/Demo 
Exchange * </ax/b> 



<b>Jan 5</b> Effective Jan. 1st., all of the North American Polyethylene 
producers have increased prices by $0.05/lb. While some buyers will notice the 
change immediately, others have contractual agreements protecting prices for 30 
to 60 days after the effective dates. An additional increase of $0.06/lb has 
been announced to be effective Feb. 1st. Given recent market conditions, buyers 
are already balking/complaining about this first price increase. Careful 
buyers, the supply really may get tight. 

In effort to help bring a more balanced supply/demand relationship, it is also 
apparent that most if not all producers have taken steps to reduce production. 
It may take some time for production cuts to impact the actual market and 
overall supply. This time factor will vary by supplier and customer depending on 
inventory levels, market demand, and commitment to keep production curbed. It 
is too early to accurately define the effects of these changes. 

Some things remain as reported in mid December. The economics for the 
polyethylene producers are still very unattractive. Even with the first price 
increase in place, a majority of polyethylene sales will be at or below cash 
cost. Producers are committed to doing whatever is necessary to correct this 
situation. This includes at least one major producer notifying their customers 
that they may restrict sales to a level that is equal to the monthly average of 
the preceding three months purchases. 

There is some question if the buying community really believes that the 
situation with the producers is real and that they are truly committed to making 
the production and price changes as announced. But it is possible that the 
market could become very snug, and some buyers may not being able to buy all 
that they want over the next few months. 

<b> For spot market pricing visit the <a 

href=. . /Public%20Registration%20Step0%20Demo.tpe0>Live Prices/Demo 
Exchange . </a></b> 



<u>New Polyethylene Capacity : </u> 

<lixb>Union Carbide</b>-2 plants in Canada-650 million pounds each — starting up 
now. 

<lixb>Nova Chemicals</b>-in Canada-850 million pounds-startup 1st quarter 2001. 
<lixb>Equistar</b>-in Illinois-expanding HDPE capacity by 70 million pounds-2nd 
quarter 2001. 

<lixb>Equistar</b>-in Texas-considering expanding LDPE capacity by 240 million 
pounds . 

<lixb>Solvay Polymers</b>-in Texas-700 million pounds-HDPE-startup 4th quarter 
2002. 

<lixb>Elenac</b> 50/50 JV for Shell and BASF- in Germany-550 million pounds- 
HDPE. 

<li><b>Elenac</b>-in Iran-650 million pounds-LDPE-startup in 2003. 
<lixb>Elenac</b>-in India-450 million pounds-LDPE-startup in 2004. 
<lixb>Elenac</b>-in India-550 million pounds-HDPE-startup in 2004 . 
<lixb>Basell</b>-in France-700 million pounds-LDPE. 



How Quickly the market changes I Major suppliers shutting down capacity has led 
to a tightening of the market. Suppliers have re-announced the $.05 price 
increase for October, the same one that did not hold in April. Dow and Equistar 
have indicated an additional $.03 increase slated for Nov. 1st. 

Higher resins sales prices help out suppliers that have been plagued with high 
feedstocks and slumping resin prices. With oil prices well off their highs, 
producers are in much better shape going into the final quarter. 

New LLDPE capacity from Union Carbide and Nova may negatively impact prices in 
the long term. While Nova has delayed start up of their new facility until 2001, 
Union Carbide is still scheduled to start production later this year. 
Additionally, substantial new capacity has developed in Europe and the Middle 
East. 



Rising oil prices and falling polyethylene have had producers in an 
uncomfortable situation. But shutting down capacity to force up prices has been 
effective . 

Several producers have reinstated the 5 cent per pound increase that had been 
tabled since June for and now set effective Oct 1. At least 3 Producers have 
also announced an additional 3 cents per pound effective Nov 1. 

The probability of the success of this increase lies in processor demand. It 
appears as though inventories at the processor level are fairly lean, so the 
probability for success for some amount of this increase appears high. 

If oil/natural gas remain at these levels, PE producers could be looking at 2-3 
cpp increases in Ethylene over the next 60 days. After a tough 3rd quarter, 
producers can use some relief. 



Polyethylene producers have nominated 2 price increases of 3 cents/lb each 
for planned implementation on 11/1/00 and 12/1/00 respectively. While the 
market timing may not be quite right for this move (4th Quarter is 
historically slow for PE demand) , continued rising feedstocks (especially 
natural gas) are forcing costs up 1-2 cent/pound on Ethylene. 

Many producers are now selling large volume accounts at or below cash costs. 
With no relief in feedstocks appearing in the next 60 days,many producers are 
either going to raise prices or take some capacity offline. 

So far in October, offgrade and some lower end prime pricing has firmed. 
Many of the so-called deals are disappearing, and there appears to be some 
discipline in pricing. The rub now will be whether demand stays strong; 
and the October order books look good. November will be pivotal to the success 
of the increase; it depends on whether producers will be able to walk away 
from orders . 

New Polyethylene Capacity: 

<b>Union Carbide</b>-2 plants in Canada-650 million pounds each — starting up 
now. 

<b>Nova Chemicals</b>-in Canada-850 million pounds-startup 1st quarter 2000. 
<b>Solvay Polymers</b>-in Texas-700 million pounds-HDPE-startup 4th quarter 
2002. 

<b>Elenac</b> 50/50 JV for Shell and BASF- in Germany-550 million pounds-HDPE. 
<b>Elenac</b>-in Iran-650 million pounds-LDPE-startup in 2003. 
<b>Elenac</b>-in India-450 million pounds-LDPE-startup in 2004. 
<b>Elenac</b>-in India-550 million pounds-HDPE-startup in 2004. 
<b>Basell</b>-in France-700 million pounds-LDPE. 

<b>Equistar</b>-in Illinois-expanding HDPE capacity by 70 million pounds-2nd 
quarter 2001. 

<b>Equistar</b>-in Texas-considering expanding LDPE capacity by 240 million 
pounds . 
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